[VB.NET] การพิมพ์รายงานด้วย ActiveReports .NET แบบวิธีการ UnBound Data

thongkorn

วิธีการ Bound Data และการ UnBound Data ได้กล่าวซ้ำๆไปหลายรอบแล้ว แอดมินเลยขอข้ามในส่วนนี้ไปนะครับ ตามปกติเราๆท่านๆก็มักจะใช้วิธี Bound โดยการเลือก Data Source เข้ามา จากนั้นก็นำ TextBox มาผูกเข้าไว้กับฟิลด์ข้อมูล ในขณะทำการออกแบบ หรือ Design Time ซึ่งวิธีการนี้มันง่าย รวดเร็วดี แต่มีข้อจำกัดอยู่หลายประการ ทำให้ขาดความยืดหยุ่นไป เช่น หากเราต้องการเปลี่ยน Data Source จาก MS Access ไปเป็น MySQL Server หรือหาก Data Source เกิดมีปัญหา ไฟล์พังหรือหายไป เอ้อเหรอ (Error) อย่างแน่นอน ทำให้เราต้องเริ่มกระบวนการใหม่ทั้งหมด  แต่บทความนี้คือการไม่ผูกแหล่งจ่ายข้อมูล (Data Source) เอาไว้กับหน้ารายงานของ ActiveReports อ้าววว !!! แล้วมันผูกฟิลด์ข้อมูลเข้ากับ TextBox ได้อย่างไร ... แอดมินจะไล่เรียงการทำงานไปในแต่ละขั้นตอนให้ดูครับ

เริ่มจาก ReportStart ใน ActiveReports เพื่อทำการเชื่อมต่อฐานข้อมูล ... ปกติแล้วกระบวนการนี้เราจะเริ่มต้นมาตั้งแต่การเปิดฟอร์มหลัก แต่แอดมินนำมาแปะไว้เพื่อเป็นตัวอย่าง สำหรับท่านที่เผลอเข้ามาที่เว็บบอร์ดแห่งนี้ ต้องทำความเข้าใจในจุดประสงค์ของไฟล์ modDataBase.vb ซึ่งเป็นโมดูลเพื่อประกาศตัวแปรแบบ Public ด้วย เพราะว่าตัวแปรเหล่านี้เราจะต้องใช้งานมันบ่อยครั้งมากครับผม

1.     '// Start Here.
   
2.     Private Sub NewActiveReport1_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
   
3.         '/ การตั้งค่าหน้ากระดาษ
   
4.         With PageSettings
   
5.             '/ หน่วยวัดเป็นนิ้ว แต่ใช้การแปลงหน่วยด้วย CmToInch เข้าช่วย หากเราถนัดหน่วยวัด ซม.
   
6.             .Margins.Left = CmToInch(1) '// แปลงค่า 1.0 ซม. เป็นนิ้ว
   
7.             .Margins.Right = 0.1
   
8.             .Margins.Top = 1.0
   
9.             .Margins.Bottom = 0.2
   
10.             ' ตั้งค่ากระดาษแนวตั้ง
    
11.             .Orientation = PageOrientation.Portrait
    
12.             ' กระดาษขนาด A4
    
13.             .PaperKind = Drawing.Printing.PaperKind.A4
    
14.         End With
    
15. 
    
16.         '// เคลียร์ค่าก่อนการพิมพ์
    
17.         txtFullName.Text = ""
    
18.         txtNickName.Text = ""
    
19.         txtPositionName.Text = ""
    
20.         txtDepartmentName.Text = ""
    
21. 
    
22.         '// เริ่มต้นการเชื่อมต่อฐานข้อมูล
    
23.         Try
    
24.             '// Connect to DataBase. ปกติเราเชื่อมต่อฐานข้อมูลจากฟอร์มหลักมาเลยก็ได้
    
25.             Conn = ConnectDataBase()
    
26.             '// ทำการ Query ฟิลด์ข้อมูลที่ต้องการมาแสดงผล
    
27.             strSQL = _
    
28.                 " SELECT tblContact.ContactPK, tblContact.Fullname, tblContact.Nickname, tblPosition.PositionName, tblDepartment.DepartmentName " & _
    
29.                 " FROM tblDepartment INNER JOIN (tblPosition INNER JOIN tblContact ON tblPosition.PositionPK = tblContact.PositionFK) ON tblDepartment.DepartmentPK = tblContact.DepartmentFK " & _
    
30.                 " ORDER BY ContactPK, FullName ASC "
    
31.             '// Open connection and create DataReader.     
    
32.             Cmd = New OleDbCommand(strSQL, Conn)
    
33.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
34.             DR = Cmd.ExecuteReader()
    
35. 
    
36.         Catch ex As Exception
    
37.             MessageBox.Show(ex.Message)
    
38.         End Try
    
39. 
    
40.     End Sub

คัดลอกไปที่คลิปบอร์ด

สร้าง Field Collection ใน DataInitialize ... ก็เพราะเราไม่ได้ผูก Data Source จึงจำเป็นต้องสร้างฟิลด์ข้อมูลต่างๆขึ้นมาใหม่ ในตัวอย่างนี้จะใช้งานง่ายๆเพียง 4 ฟิลด์

1.     '// Add fields to the report's fields collection.
   
2.     Private Sub NewActiveReport1_DataInitialize(sender As Object, e As System.EventArgs) Handles Me.DataInitialize
   
3.         Fields.Add("FullName")
   
4.         Fields.Add("NickName")
   
5.         Fields.Add("PositionName")
   
6.         Fields.Add("DepartmentName")
   
7.     End Sub

คัดลอกไปที่คลิปบอร์ด

การนำข้อมูลไปผูกเข้ากับฟิลด์ ใน FetchData ... การ Fetch ก็คือการเรียกข้อมูลเขามาใหม่ในแต่ละรายการ (Record) ที่เราทำการ Query เข้ามา หากข้อมูลนั้นยังไม่หมดรายการ หากค่า EOF (End Of File) = False (เท็จ) นั่นคือมันยังไม่หมดข้อมูล ก็จะนำค่าที่ Fetch เข้ามาไปพิมพ์ที่ Detail1_Format แต่หาก EOF = True (จริง) แสดงว่าไม่มีรายการข้อมูลที่จะพิมพ์ ก็จะไปที่ ReportEnd แทน เพื่อสิ้นสุดงานพิมพ์

1.     '// Retrieve information to populate the report fields.
   
2.     Private Sub NewActiveReport1_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
   
3.         Try
   
4.             DR.Read()
   
5.             '// นำข้อมูลมาผูกเข้ากับฟิลด์ที่เรากำหนดบน ActiveReports
   
6.             Me.Fields("FullName").Value = DR("FullName")
   
7.             Me.Fields("NickName").Value = DR("NickName")
   
8.             Me.Fields("PositionName").Value = DR("PositionName")
   
9.             Me.Fields("DepartmentName").Value = DR("DepartmentName")
   
10.             '// ยังไม่หมดข้อมูล End Of File = เท็จ ... กระโดดไปพิมพ์ที่ Detail1_Format อีกครั้ง
    
11.             eArgs.EOF = False
    
12. 
    
13.         Catch ex As Exception
    
14.             '// แสดงว่าหมดข้อมูลแล้ว นั่นคือสิ้นสุดการพิมพ์
    
15.             eArgs.EOF = True
    
16.         End Try
    
17.     End Sub

คัดลอกไปที่คลิปบอร์ด

การพิมพ์รายละเอียดใน Detail1_Format ... จากเหตุการณ์ FetchData หาก EOF = False มันจะเกิดการพิมพ์รายละเอียดของรายงานที่นี่

1.     '// หากเหตุการณ์ FetchData ทำให้ EOF = False แสดงว่ายังไม่หมดข้อมูล จะเกิดการพิมพ์ไปเรื่อยๆ
   
2.     Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
   
3.         '// นำค่าจากฟิลด์ที่เรากำหนดมาแสดงผลใน TextBox ของ ActiveReports
   
4.         txtFullName.Text = Me.Fields("FullName").Value
   
5.         txtNickName.Text = Me.Fields("NickName").Value
   
6.         txtPositionName.Text = Me.Fields("PositionName").Value
   
7.         txtDepartmentName.Text = Me.Fields("DepartmentName").Value
   
8.     End Sub

คัดลอกไปที่คลิปบอร์ด

โมดูลหากิน modDataBase.vb แอดมินทำการจัดเก็บตัวแปรที่สำคัญๆ และต้องใช้งานบ่อยๆเอาไว้ที่นี่ที่เดียว ดังนั้นจึงต้องประกาศตัวแปร และฟังค์ชั่นเป็นแบบ Public ทั้งหมด หมายความว่าทุกๆฟอร์ม จะสามารถมองเห็นได้ทั้งหมด

1. Imports System.Data.OleDb
   
2. Imports Microsoft.VisualBasic
   
3. 
   
4. Module modDataBase
   
5.     '// Declare variable one time but use many times.
   
6.     Public Conn As OleDbConnection
   
7.     Public Cmd As OleDbCommand
   
8.     Public DS As DataSet
   
9.     Public DR As OleDbDataReader
   
10.     Public DA As OleDbDataAdapter
    
11.     Public strSQL As String '// Major SQL
    
12.     Public strStmt As String    '// Minor SQL
    
13. 
    
14.     '// Data Path
    
15.     Public strPathData As String = MyPath(Application.StartupPath)
    
16.     '// Images Path
    
17.     'Public strPathImages As String = MyPath(Application.StartupPath)
    
18. 
    
19.     Public Function ConnectDataBase() As System.Data.OleDb.OleDbConnection
    
20.         strPathData = MyPath(Application.StartupPath) & "Data"
    
21.         'strPathImages = MyPath(Application.StartupPath) & "Images"
    
22.         Dim strConn As String = _
    
23.             "Provider = Microsoft.ACE.OLEDB.12.0;" & _
    
24.             "Data Source = " & strPathData & "Contact.accdb"
    
25. 
    
26.         Conn = New OleDb.OleDbConnection(strConn)
    
27.         ' Create Connection
    
28.         Conn.ConnectionString = strConn
    
29.         ' Return
    
30.         Return Conn
    
31.     End Function
    
32. 
    
33.     ' / --------------------------------------------------------------------------------
    
34.     ' / Get my project path
    
35.     ' / AppPath = C:\My Project\bin\debug
    
36.     ' / Replace "\bin\debug" with ""
    
37.     ' / Return : C:\My Project\
    
38.     Function MyPath(AppPath As String) As String
    
39.         '/ MessageBox.Show(AppPath);
    
40.         AppPath = AppPath.ToLower()
    
41.         '/ Return Value
    
42.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
43.         '// If not found folder then put the \ (BackSlash) at the end.
    
44.         If Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
45.     End Function
    
46. End Module

คัดลอกไปที่คลิปบอร์ด

ฟอร์มหลักที่ใช้ในการ Preview รายงานของ ActiveReports ...

1. Public Class frmUnBoundData
   
2. 
   
3.     Private Sub btnPreview_Click(sender As System.Object, e As System.EventArgs) Handles btnPreview.Click
   
4.         '// ประกาศตัวแปร rpt จากหน้ารายงาน ActiveReports
   
5.         Dim rpt As New NewActiveReport1
   
6.         '// สั่งรัน
   
7.         rpt.Run()
   
8.         Me.Viewer1.ReportViewer.Zoom = 1    '(100%)
   
9.         '// แสดงผลรายงานเอกสาร
   
10.         Me.Viewer1.Document = rpt.Document
    
11.     End Sub
    
12. 
    
13.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
14.         Me.Close()
    
15.     End Sub
    
16. 
    
17.     Private Sub frmUnBoundData_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
18.         Me.Dispose()
    
19.         Application.Exit()
    
20.     End Sub
    
21. 
    
22. End Class

คัดลอกไปที่คลิปบอร์ด

Conclusion: จะเห็นได้ว่าการพิมพ์รายงานด้วย ActiveReports .NET นั้นไม่ได้ยากเย็นแสนเข็ญอะไรเลย มันจึงเป็นอีกหนึ่งทางเลือกของการทำรายงาน ... สวัสดี

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

OUDONE

ขอบคุณครับอาจารย์ ที่มอบสิ่งดีดีให้