كيفية تمرير البيانات الى Microsoft Report باستخدام الباراميترات

سنتعلم في هذا الموضوع كيفية تمرير القيم الى تقارير Microsoft Report وكيفة التعامل معها باستخدام الباراميترات وذلك عن طريق لغتي #C و VB وقاعدة بيانات أكسس لكي تعم الفائدة للجميع ان شاءالله Smile

اولا: نقوم بتصميم جدول فيه ثلاث حقول (std_ID, std_Name, std_Age)

ثانيا: نفتح نفتح مشروع جديد ونسميه على سبيل المثال ReportViewer ونضع عليه الادوات المطلوبة

ثالثا: من شريط القوائم نختار Projrect ومن ثم Add New Item
وبعد ان نضغط Add تظهر لنا نافذة تصميم التقرير صممه بالشكل الذي تريد
بعد الانتهاء من تصميم التقرير من حيث المظهر بقي لنا ان نضيف ثلاث باراميارات الى التصميم لتستقبل القيم المرسلة من قبل المستخدم ,لعمل ذلك نختار View من شريط القوائم ومن ثم نختار Report Data
الآن نضغط بالزر الماوس الايمن على Parameters ونختار Add Parameter
وننشىء ثلاث باراميترات.

الآن نضيف الباراميترات الى التصميم
الى هنا والحمد لله انتهينا من تصميم التقرير وبقي لنا ان نربطه بالReportViewer وذلك عن طريق السهم الموجود في اعلى اليمين للReportViewer ومن Choose Report نخنار التقرير الذي صممناه.

الآن جاء دور كتابة الاكواد ,لنبدأ بعد التوكل على الله:

اولا: مجالات الاسماء:

#C

PHP كود :

using System.Data.OleDb;
using Microsoft.Reporting.WinForms; 

PHP كود :

Imports System.Data.OleDb
Imports Microsoft.Reporting.WinForms 

ثانيا: تعريف المتغيرات:

#C

PHP كود :

private OleDbConnection olecon;
        private OleDbDataAdapter oleadp;
        private DataTable mytable;
        private DataSet myset;
        private string constr = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" + Application.StartupPath + "/student.mdb;";
        private int pos = 0;

        ReportParameter[] rep_param;
        ReportDataSource rep_source; 

PHP كود :

Private olecon As OleDbConnection
    Private oleadp As OleDbDataAdapter
    Private mytable As DataTable
    Private myset As DataSet
    Private constr As String = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" + Application.StartupPath + "/student.mdb;"
    Private pos As Integer = 0

    Private rep_param() As ReportParameter
    Private rep_source As ReportDataSource 

ملاحظة: تعريف المتغيرات يكون ضمن الفئة From.

ثالثا: تعريف دالة الConnection

#C

PHP كود :

private bool connection()
        {
            olecon = new OleDbConnection(constr);
            oleadp = new OleDbDataAdapter("select * from std", olecon);

            myset = new DataSet("Student");
            mytable = new DataTable();

            try
            {

                olecon.Open();
                oleadp.Fill(myset, "Student");
                mytable = myset.Tables["Student"];

                return true;
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.Message);
                return false;
            }
            finally
            {
                olecon.Close();
            }
        } 

PHP كود :

Private Function connection() As Boolean

        olecon = New OleDbConnection(constr)
        oleadp = New OleDbDataAdapter("select * from std", olecon)

        myset = New DataSet("Student")
        mytable = New DataTable()

        Try


            olecon.Open()
            oleadp.Fill(myset, "Student")
            mytable = myset.Tables("Student")

            Return True

        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return False

        Finally

            olecon.Close()

        End Try

    End Function 

ثاثا: دالة Filling:

#C

PHP كود :

private void Filling(int p)
        {
            id_txt.Text = mytable.Rows[p]["std_ID"].ToString();
            name_txt.Text = mytable.Rows[p]["std_Name"] as string;
            age_txt.Text = mytable.Rows[p]["std_Age"] as string;
        } 

PHP كود :

Private Sub Filling(ByVal p As Integer)

        id_txt.Text = mytable.Rows(p)("std_ID").ToString()
        name_txt.Text = mytable.Rows(p)("std_Name").ToString()
        age_txt.Text = mytable.Rows(p)("std_Age").ToString()

    End Sub 

رابعا: استدعاء الدالة Connection داخل الحدث Load للFrom:

#C

PHP كود :

private void Form1_Load(object sender, EventArgs e)
        {
            if (connection())
            {
                MessageBox.Show("Connection Succeed");
            }
            else
            {
                MessageBox.Show("Connection Fail");
            }

 this.reportViewer1.RefreshReport();
        } 

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If (connection()) Then

            MessageBox.Show("Connection Succeed")

        Else

            MessageBox.Show("Connection Fail")
        End If

        Me.ReportViewer1.RefreshReport()

    End Sub

خامسا: استدعاء الدالة Filling داخل ShowData:

#C

PHP كود :

private void show_btn_Click(object sender, EventArgs e)
        {
            Filling(pos);
        } 

PHP كود :

Private Sub show_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles show_btn.Click

        Filling(pos)

    End Sub

سادسا: كتابة اكواد السجل التالي والسابق:

#C

PHP كود :

private void next_btn_Click(object sender, EventArgs e)
        {

            if (pos < mytable.Rows.Count - 1)
            {
                pos++;
                Filling(pos);
            }
        }

        private void prev_btn_Click(object sender, EventArgs e)
        {
            
            if (pos > 0)
            {
                pos--;
                Filling(pos);
            }
        } 

PHP كود :

Private Sub next_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles next_btn.Click

        If (pos < mytable.Rows.Count - 1) Then
            pos = pos + 1
            Filling(pos)
        End If

    End Sub

    Private Sub prev_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prev_btn.Click

        If (pos > 0) Then
            pos = pos - 1
            Filling(pos)
        End If

    End Sub 

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

#C

PHP كود :

private void to_btn_Click(object sender, EventArgs e)
        {
            rep_source = new ReportDataSource("mytable", mytable);
            this.reportViewer1.LocalReport.DataSources.Add(rep_source);

            rep_param = new ReportParameter[mytable.Columns.Count];
            rep_param[0] = new ReportParameter("id", id_txt.Text);
            rep_param[1] = new ReportParameter("name", name_txt.Text);
            rep_param[2] = new ReportParameter("age", age_txt.Text);

            this.reportViewer1.LocalReport.SetParameters(rep_param);
            this.reportViewer1.RefreshReport();
        } 

PHP كود :

Private Sub to_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles to_btn.Click

        rep_source = New ReportDataSource("mytable", mytable)
        Me.ReportViewer1.LocalReport.DataSources.Add(rep_source)

        ReDim rep_param(mytable.Columns.Count - 1)
        rep_param(0) = New ReportParameter("id", id_txt.Text)
        rep_param(1) = New ReportParameter("name", name_txt.Text)
        rep_param(2) = New ReportParameter("age", age_txt.Text)

        Me.ReportViewer1.LocalReport.SetParameters(rep_param)
        Me.ReportViewer1.RefreshReport()

    End Sub 

الى هنا والحمد لله انتهينا من كتابة الاكواد ,بقي لنا ان نشرح الجزء الاهم وهي كيفية تمرير القيم كباراميترات.

في البداية يجب تحديد مصدر البيانات للتقرير ويمكن عمل ذلك باستخدام فئة الReportDataSource كما مبين في الكود اعلاه لل#C والVB
ومن ثم اضافة مصدر البيانات الى الReportViewer.

بعد تحديد مصدر البيانات نأتي الى الباراميترات:
نكون مصفوفة من الباراميترات حجمها يساوي عدد الحقول في الجدول اذا اردنا تمرير قيم كل الحقول الموجودة لسجل واحد فقط في الجدول وإلا نحددها بعدد الباراميترات التي أنشأناها في التقرير.
يكون تمرير القيم عن طريق فئة الReportParameter التي تستقبل اسم الباراميتر مع القيمة الممررة اليها.

ومن ثم نسند المصفوفة الى الreportviewer عن طريق دالة الSetParameters للفئة Local Report.

إلى هنا وبفضل الله نكون قد وصلنا الى نهاية الموضوع حيث تعلمنا كيفية تمرير القيم الى Microsoft Report باستخدام الباراميترات وباستخدام لغتي #C و VB , وفي النهاية لا تنسوني و والدي من صالح دعواتكم واسأل الله أن يوفقنا واياكم لمراضيه Smile

ملاحظة: المثال في المرفقات (C#, VB).