[مقال] كيفية التعامل مع XtraReport - نسخة قابلة للطباعة

كود :

Imports System

Imports System.Windows.Forms

Imports DevExpress.LookAndFeel

Imports DevExpress.XtraReports.UI

Imports DevExpress.XtraPrinting

Imports DevExpress.XtraPrinting.Preview

Public Class RepViewerFrm

    Private Sub RepViewerFrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim rprt As XtraReport = masterdetailreport1()

        Dim report As New MasterDetailRep

        report.Pages.AddRange(rprt.Pages)

        PrintControl1.PrintingSystem = report.PrintingSystem

    End Sub

End Class

كود :

Imports System

Imports System.Drawing

Imports System.Windows.Forms

Imports DevExpress.XtraReports

Imports DevExpress.XtraReports.UI

Imports DevExpress.XtraPrinting

Imports System.Data.OleDb

Imports System.Data

Module ConProAndFun

    Public Cn As New OleDbConnection("Provider=MicrosoftCJetCOLEDBC4C0;Data Source=" & ApplicationCStartupPath & "\XtraReportCmdb;OLE DB Services=-1")

Public Function masterdetailreport1() As XtraReport

'=============================================================

Dim DA1 As New OleDbDataAdapter("SELECT ID, CategoryName, CategoryNotes FROM Category_Table", Cn)

'=============================================================

Dim DA2 As New OleDbDataAdapter("SELECT ID, ProductCategory, ProductName, ProductUnit, ProductQuantity, ProductPrice, ProductNotes  FROM Product_Table", Cn)

'=============================================================

Dim fDS As New DataSet

fDS.Clear()

'=============================================================

DA1.Fill(fDS, "HeaderTbl")

DA2.Fill(fDS, "DetailTbl")

'=============================================================

Dim RelShp As New DataRelation("HeadDetailID", fDS.Tables("HeaderTbl").Columns("ID"), fDS.Tables("DetailTbl").Columns("ProductCategory"), True)fDS.Relations.Add(RelShp)

'=============================================================

        Dim report As New MasterDetailRep

        report.DataSource = fDS

        report.DataAdapter = DA1

'=============================================================

        ' Create the Group Header of the Report

        Dim bead As New GroupHeaderBand

        report.Bands.Add(bead)

        Dim gfield As New GroupField("ID")

        bead.GroupFields.Add(gfield)

        ' Assign the Group Header to the Data

        report.XrLabel8.DataBindings.Add("Text", Nothing, "CategoryName")

'=============================================================

        report.DetailReport.DataSource = fDS

        report.DetailReport.DataMember = "HeadDetailID"

        report.DetailReport.DataAdapter = DA2

'=============================================================

        report.XrTableCell22.DataBindings.Add("Text", Nothing, "HeadDetailID.ProductName")

        report.XrTableCell23.DataBindings.Add("Text", Nothing, "HeadDetailID.ProductUnit")

        report.XrTableCell24.DataBindings.Add("Text", Nothing, "HeadDetailID.ProductQuantity")

        report.XrTableCell25.DataBindings.Add("Text", Nothing, "HeadDetailID.ProductPrice")

        report.XrTableCell26.DataBindings.Add("Text", Nothing, "HeadDetailID.ProductNotes")

'=============================================================

        report.CreateDocument()

        DA1.Dispose()

        DA2.Dispose()

        fDS.Dispose()

        Cn.Close()

        Return report

    End Function