+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : تقارير مايكروسوفت (Report Viewer) (/showthread.php?tid=28016)
الصفحات:
1
2
تقارير مايكروسوفت (Report Viewer) - حريف برمجة - 24-12-18
مرحبا أعضاء الموقع الذي جمعنا بغير ميعاد .....
اقدم لكم اليوم موضوع مهم جداً وهو التقارير ....
وأخص بالذكر تقارير مايكروسوفت (Report Viewer)
الموضوع اسهل من ما نتوقع ولكن انا توسعت في الشرح وكثرة الصور لتتضح الفكرة كامله ...
لدينا عدد 2 جدول في قاعدة البيانات :
[attachment=20442]
[attachment=20443]
المثال كالتالي فورم 1 ،، عرض بيانات جدول واحد في القريد فيو :
[attachment=20444]
عرض بيانات جدولين في القريد فيو :
[attachment=20445]
حتى هنا أخذنا فكرة عن المثال ،، نأتي للمهم .
كود الفورم 1 :
كود :
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.accdb")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim dp As New OleDbDataAdapter("select * from ETable", conn) ' one Table
Dim dp As New OleDbDataAdapter("select ETable.EID, ETable.EName, ETable.EMobile, CTable.City from ETable, CTable where ETable.EID = CTable.C_EID", conn) ' Two Table
Dim dt As New DataTable
dp.Fill(dt)
DataGridView1.DataSource = dt
End Sub
End Classلا أريد التطرق لعملية الحفظ والتعديل والحذف ،،، فقط اردت توضيح التالي :
1- انشاء داتاسيت فارغة .
2- انشاء داتاتيبل داخل الداتاسيت وادراج الحقول في الداتا تيبل المراد إظهارها في الطباعة .
3- انشاء التقرير وادراج الحقول المراد إظهارها في الطباعة .
4- ربط التقرير بالكود مع الداتاسيت .
لإنشاء داتاسيت فارغة اتبع الصور :
[attachment=20446]
[attachment=20447]
[attachment=20448]
[attachment=20449]
[attachment=20450]
لإنشاء تقرير اتبع الصور :
[attachment=20451]
......... يتبع
بعد ادراج أداة التيبل على التقرير اتبع الصور :
[attachment=20452]
لإدراج أعمدة أو حذف أعمدة على التيبل الموجود بالتقرير اتبع الصور :
[attachment=20453]
الآن نبدأ في تصميم التقرير تابع الصور :
[attachment=20454]
الآن نعمل بيانات حقل التسلسل ترقيم تلقائي للصفوف لأن في الأصل ليس من الداتاسيت تابع الصور :
[attachment=20455]
[attachment=20456]
الآن ادرج فورم 2 ،، وادرج عليها أداة عرض التقارير (ريبورت فيور) ،،،، بدون عمل أي شي .
[attachment=20457]
كود الفورم 2 :
كود :
Imports System.Data.OleDb
Imports Microsoft.Reporting.WinForms
Public Class Form2
Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.accdb")
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dp As New OleDbDataAdapter("select * from ETable", conn) ' one Table
Dim dt As New DataTable
dp.Fill(dt)
Me.WindowState = FormWindowState.Maximized 'تكبير الفورم بالكود
ReportViewer1.Reset()
ReportViewer1.Dock = DockStyle.Fill 'جعل الريبورت فيور بكامل الفورم
'لاحظ ريبورتس = اسم المشروع
'ريبورت1 = اسم التقرير
ReportViewer1.LocalReport.ReportEmbeddedResource = "ReportS.Report1.rdlc"
''\\\'''DataSet1 dataset in report Default Name
Dim DataSource As New ReportDataSource("DataSet1", dt)
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.DataSources.Add(DataSource)
ReportViewer1.RefreshReport()
ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
ReportViewer1.ZoomMode = ZoomMode.PageWidth
End Sub
End Class## ملاحظة مهمة لتنسيق الموضوع :
سقطت صورة بالسهو ..
بالتحديد بعد كلمة ....... يتبع
وهي لإدراج أداة تيبل (جدول) على التقرير لعرض البيانات .
[attachment=20458]
لاحظ مسميات الأدوات على الفورم :
[attachment=20459]
بعد النقر على زر (Print All) لعرض جميع البيانات .
[attachment=20460]
لتنسيق التقرير :
[attachment=20461]
هذا شكل التقرير بعد التنسيق :
[attachment=20462]
لتصدير التقرير للبرامج المعتادة :
[attachment=20463]
حتى الآن انهينا أمور عديدة ،، والمتبقي تقريباً :
1- عرض سجل واحد فقط .
2- عرض بيانات جدولين أو أكثر في التقرير .
3- عرض البيانات متدرجة بألوان مثلاً :
صف ابيض
صف رمادي
صف ابيض
صف رمادي
............ وهكذا
4- وضع تاريخ ووقت الطباعة ورقم الصفحات على التقرير .
5- الطباعة المباشرة بدون عرض التقرير .
وإذا فاتني شي ما غطيته ابلغوني وتبشرون بالخير ....
RE: تقارير مايكروسوفت (Report Viewer) - a.wagdi - 24-12-18
موضوع مفصل بامتياز، بارك الله فيك.
حاولت التصويت في الاستفتاء الموجود في أعلى الموضوع ولكن اتضح أنه ليس لدي صلاحية لذلك.
عموما أنا اخترت (موضوع تقارير مايكروسوفت مهم والشرح مميز)
RE: تقارير مايكروسوفت (Report Viewer) - عبد العزيز البسكري - 24-12-18
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أخي و أستاذي الكريم " حريف برمجة " على الموضوع الرّائع و المميّز و الشّرح الأروع
أوّل مرّة أجد شرحًا لهذه الأداة بهذه الطريقة و هذا الأسلوب و الصّور التّوضيحيّة
بالنسبة لي لم يسبق لي إستعمالها و لذلك سأقوم بالتجربة و إن كانت لي تساؤلات سأطرحها بعد إذنك
تم التّصويت للعنصر الأوّل
تحياتي و تشكراتي و تقييماتي
RE: تقارير مايكروسوفت (Report Viewer) - Sajad - 24-12-18
جزاك الله خيرا كفيت و وفيت
شرح ممتاز
RE: تقارير مايكروسوفت (Report Viewer) - حريف برمجة - 25-12-18
(24-12-18, 11:16 AM)a.wagdi كتب : موضوع مفصل بامتياز، بارك الله فيك.
حاولت التصويت في الاستفتاء الموجود في أعلى الموضوع ولكن اتضح أنه ليس لدي صلاحية لذلك.
عموما أنا اخترت (موضوع تقارير مايكروسوفت مهم والشرح مميز)
ولا يهمك اخوي ،، الأهم وجودك معنا تفيد وتستفيد ،، بارك الله فيك .
(24-12-18, 01:41 PM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهبارك الله فيك و لك أخي و أستاذي الكريم " حريف برمجة " على الموضوع الرّائع و المميّز و الشّرح الأروعأوّل مرّة أجد شرحًا لهذه الأداة بهذه الطريقة و هذا الأسلوب و الصّور التّوضيحيّةبالنسبة لي لم يسبق لي إستعمالها و لذلك سأقوم بالتجربة و إن كانت لي تساؤلات سأطرحها بعد إذنكتم التّصويت للعنصر الأوّلتحياتي و تشكراتي و تقييماتي
بصراحه منذ فترة وانا لدي الجدية اشرح الأداة ووجدت لك تساؤولات عنها فقررت فوراً عمل الشرح .
تسلم اخي عبدالعزيز على ثناءك .
(24-12-18, 02:21 PM)Sajad كتب : جزاك الله خيرا كفيت و وفيت
شرح ممتاز
مرحبا أستاذ سجاد القدير الممتاز والله مرورك يالكريم .
جزاكم الله جميعاً خير ،، بالتوفيق للجميع
نكمل موضوعنا وهو :
1- عرض سجل واحد فقط .
تم عمل فقط زر واحد مسؤول عن طباعة سجل واحد و طباعة الكل كالتالي :
كود :
if TextBox1.Text = "" Then
Print All
Else
Print ID Only
End ifهذي فكرة الطباعة بزر واحد فقط .
[attachment=20468]
[attachment=20469]
كود الفورم 1 :
كود :
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.accdb")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim dp As New OleDbDataAdapter("select * from ETable", conn) ' one Table
Dim dp As New OleDbDataAdapter("select ETable.EID, ETable.EName, ETable.EMobile, CTable.City from ETable, CTable where ETable.EID = CTable.C_EID", conn) ' Two Table
Dim dt As New DataTable
dp.Fill(dt)
DataGridView1.DataSource = dt
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.Show()
End Sub
End Classكود الفورم 2 :
كود :
Imports System.Data.OleDb
Imports Microsoft.Reporting.WinForms
Public Class Form2
Dim conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & Application.StartupPath & "\db1.accdb")
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
'Dim dp As New OleDbDataAdapter("select * from ETable where EID=" & Form1.TextBox1.Text & " ", conn) ' one Table
If Form1.TextBox1.Text = "" Then
Dim dp As New OleDbDataAdapter("select ETable.EID, ETable.EName, ETable.EMobile, CTable.City from ETable, CTable where ETable.EID = CTable.C_EID", conn) ' Two Table All Data
dp.Fill(dt)
Else
Dim dp As New OleDbDataAdapter("select ETable.EID, ETable.EName, ETable.EMobile, CTable.City from ETable, CTable where
ETable.EID = CTable.C_EID and ETable.EID =" & Form1.TextBox1.Text & " ", conn) ' Two Table Single Data BY EID
dp.Fill(dt)
End If
Me.WindowState = FormWindowState.Maximized 'تكبير الفورم بالكود
ReportViewer1.Reset()
ReportViewer1.Dock = DockStyle.Fill 'جعل الريبورت فيور بكامل الفورم
'لاحظ ريبورتس = اسم المشروع
'ريبورت1 = اسم التقرير
ReportViewer1.LocalReport.ReportEmbeddedResource = "ReportS.Report1.rdlc"
''\\\'''DataSet1 dataset in report
Dim DataSource As New ReportDataSource("DataSet1", dt)
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.DataSources.Add(DataSource)
ReportViewer1.RefreshReport()
ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
ReportViewer1.ZoomMode = ZoomMode.PageWidth
End Sub
End Class2- عرض بيانات جدولين أو أكثر في التقرير .
[attachment=20470]
بما انه تم تعديل الداتاتيبل داخل الداتاسيت لابد من تحديث الداتاسيت الخاصة بالتقرير لظهور الحقل الجديد كالتالي :
[attachment=20471]
[attachment=20472]
[attachment=20473]
[attachment=20474]
3- عرض البيانات متدرجة بألوان مثلاً :
صف ابيض
صف رمادي
صف ابيض
صف رمادي
............ وهكذا
[attachment=20475]
كود التدرج اللوني لصفوف التقرير :
كود :
= IIF(RowNumber("DataSet1") Mod 2 = 0, "LightGrey", "Transparent")4- وضع تاريخ ووقت الطباعة ورقم الصفحات على التقرير .
[attachment=20476]
[attachment=20477]
............يتبع
هذي خيارات مثل تاريخ الطباعة ،، اسم التقرير ،، ........... اكتشفوها بأنفسكم .
[attachment=20478]
التدرج اللوني للصفوف :
[attachment=20479]
RE: تقارير مايكروسوفت (Report Viewer) - dell - 25-12-18
بارك الله فيك
RE: تقارير مايكروسوفت (Report Viewer) - حريف برمجة - 25-12-18
(25-12-18, 12:16 PM)dell كتب : بارك الله فيك
جزاك الله خير اخي الفاضل ،، ولك بالمثل واكثر
RE: تقارير مايكروسوفت (Report Viewer) - اسامه الهرماوي - 28-12-18
(25-12-18, 07:40 PM)حريف برمجة كتب :(25-12-18, 12:16 PM)dell كتب : بارك الله فيك
جزاك الله خير اخي الفاضل ،، ولك بالمثل واكثر
طب اخواني لو عايز اعمل تقرير وانا اضع البيانات في تيكست معين وتظهر بعدها هذه البيانات في اداة الريبورت
ماذا افعل؟؟؟؟؟؟؟
RE: تقارير مايكروسوفت (Report Viewer) - حريف برمجة - 12-06-19
(28-12-18, 04:54 PM)اسامه الهرماوي كتب :(25-12-18, 07:40 PM)حريف برمجة كتب :(25-12-18, 12:16 PM)dell كتب : بارك الله فيك
جزاك الله خير اخي الفاضل ،، ولك بالمثل واكثر
طب اخواني لو عايز اعمل تقرير وانا اضع البيانات في تيكست معين وتظهر بعدها هذه البيانات في اداة الريبورت
ماذا افعل؟؟؟؟؟؟؟
الطلب غير واضح !
كيف تضع بيانات في تكست معين وتظهر بعدها في الريبورت ؟
هل تقصد بدون قاعدة بيانات مثلاً ؟
RE: تقارير مايكروسوفت (Report Viewer) - AymanRamadanSaad - 21-07-19
بارك الله فيك وزادك من فضله