[VB.NET] การจัดกลุ่มรายงานให้กับ ActiveReports แบบวิธีการ UnBound Data

thongkorn

จากบทความเรื่อง [VB.NET] การพิมพ์รายงานด้วย ActiveReports .NET แบบวิธีการ UnBound Data เราสามารถปรับแต่งเล็กน้อยเพื่อทำการจัดกลุ่ม (Grouping) ให้กับรายงานได้ไม่ยากเลยครับ ...

การกำหนดฟิลด์เพื่อจัดกลุ่มให้กับ GroupHeader ...


ข้อมูลของ DepartmentName จะมีอยู่ 5 กลุ่ม ...


การเพิ่ม Group Header/Footer ...


มาดูโค้ดฉบับเต็มกันเถอะ ... ฟอร์มหลัก

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

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

โค้ดในส่วนของโมดูล (หากิน) ในการเชื่อมต่อกับฐานข้อมูล ...

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. 
    
17.     Public Function ConnectDataBase() As Boolean
    
18.         Try
    
19.             strPathData = MyPath(Application.StartupPath) & "Data"
    
20.             Dim strConn As String = _
    
21.                 "Provider = Microsoft.ACE.OLEDB.12.0;" & _
    
22.                 "Data Source = " & strPathData & "Contact.accdb"
    
23. 
    
24.             Conn = New OleDb.OleDbConnection(strConn)
    
25.             Conn.Open()
    
26.             ' Return
    
27.             Return True
    
28.         Catch ex As Exception
    
29.             MessageBox.Show(ex.Message)
    
30.             Return False
    
31.         End Try
    
32.     End Function
    
33. 
    
34.     ' / --------------------------------------------------------------------------------
    
35.     ' / Get my project path
    
36.     ' / AppPath = C:\My Project\bin\debug
    
37.     ' / Replace "\bin\debug" with ""
    
38.     ' / Return : C:\My Project\
    
39.     Function MyPath(AppPath As String) As String
    
40.         '/ MessageBox.Show(AppPath);
    
41.         AppPath = AppPath.ToLower()
    
42.         '/ Return Value
    
43.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
44.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
    
45.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
46.     End Function
    
47. End Module

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

โค้ดในส่วนของ ActiveReports .NET ...

1. Imports System.Data.OleDb
   
2. Imports DataDynamics.ActiveReports
   
3. Imports DataDynamics.ActiveReports.Document
   
4. 
   
5. Public Class NewActiveReport1
   
6.     Private ItemNo As Integer
   
7.     '// Start Here.
   
8.     Private Sub NewActiveReport1_ReportStart(sender As Object, e As System.EventArgs) Handles Me.ReportStart
   
9.         '/ การตั้งค่าหน้ากระดาษ
   
10.         With PageSettings
    
11.             '/ หน่วยวัดเป็นนิ้ว แต่ใช้การแปลงหน่วยด้วย CmToInch เข้าช่วย หากเราถนัดหน่วยวัด ซม.
    
12.             .Margins.Left = CmToInch(0.7) '// แปลงค่า 0.7 ซม. เป็นนิ้ว
    
13.             .Margins.Right = CmToInch(0.5)
    
14.             .Margins.Top = 1.0
    
15.             .Margins.Bottom = 1
    
16.             ' ตั้งค่ากระดาษแนวตั้ง
    
17.             .Orientation = PageOrientation.Portrait
    
18.             ' กระดาษขนาด A4
    
19.             .PaperKind = Drawing.Printing.PaperKind.A4
    
20.         End With
    
21. 
    
22.         '// เคลียร์ค่าก่อนการพิมพ์
    
23.         txtFullName.Text = ""
    
24.         txtNickName.Text = ""
    
25.         txtPositionName.Text = ""
    
26.         txtDepartmentName.Text = ""
    
27.         ItemNo = 0
    
28.         '// เริ่มต้นการอ่านข้อมูล
    
29.         Try
    
30.             '// ทำการ Query ฟิลด์ข้อมูลที่ต้องการมาแสดงผล
    
31.             strSQL = _
    
32.                 " SELECT tblContact.ContactPK, tblContact.Fullname, tblContact.Nickname, tblPosition.PositionName, tblDepartment.DepartmentName  " & _
    
33.                 " FROM tblDepartment INNER JOIN (tblPosition INNER JOIN tblContact ON tblPosition.PositionPK = tblContact.PositionFK) ON " & _
    
34.                 " tblDepartment.DepartmentPK = tblContact.DepartmentFK " & _
    
35.                 " ORDER BY DepartmentName, ContactPK "
    
36.             '// Open connection and create DataReader.     
    
37.             Cmd = New OleDbCommand(strSQL, Conn)
    
38.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
39.             DR = Cmd.ExecuteReader()
    
40. 
    
41.         Catch ex As Exception
    
42.             MessageBox.Show(ex.Message)
    
43.         End Try
    
44. 
    
45.     End Sub
    
46. 
    
47.     '// Add fields to the report's fields collection.
    
48.     Private Sub NewActiveReport1_DataInitialize(sender As Object, e As System.EventArgs) Handles Me.DataInitialize
    
49.         Fields.Add("FullName")
    
50.         Fields.Add("NickName")
    
51.         Fields.Add("PositionName")
    
52.         Fields.Add("DepartmentName")
    
53.     End Sub
    
54. 
    
55.     '// Retrieve information to populate the report fields.
    
56.     Private Sub NewActiveReport1_FetchData(sender As Object, eArgs As DataDynamics.ActiveReports.ActiveReport.FetchEventArgs) Handles Me.FetchData
    
57.         Try
    
58.             DR.Read()
    
59.             '// นำข้อมูลมาผูกเข้ากับฟิลด์ที่เรากำหนดบน ActiveReports
    
60.             Me.Fields("FullName").Value = DR("FullName")
    
61.             Me.Fields("NickName").Value = DR("NickName")
    
62.             Me.Fields("PositionName").Value = DR("PositionName")
    
63.             Me.Fields("DepartmentName").Value = DR("DepartmentName")
    
64.             '// ยังไม่หมดข้อมูล End Of File = เท็จ ... กระโดดไปพิมพ์ที่ Detail1_Format อีกครั้ง
    
65.             eArgs.EOF = False
    
66.         Catch ex As Exception
    
67.             'MessageBox.Show(ex.ToString())
    
68.             '// แสดงว่าหมดข้อมูลแล้ว นั่นคือสิ้นสุดการพิมพ์
    
69.             eArgs.EOF = True
    
70.         End Try
    
71.     End Sub
    
72. 
    
73.     '// หากเหตุการณ์ FetchData ทำให้ EOF = False แสดงว่ายังไม่หมดข้อมูล จะเกิดการพิมพ์ไปเรื่อยๆ
    
74.     Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail1.Format
    
75.         '// นำค่าจากฟิลด์ที่เรากำหนดมาแสดงผลใน TextBox ของ ActiveReports
    
76.         txtFullName.Text = Me.Fields("FullName").Value
    
77.         txtNickName.Text = Me.Fields("NickName").Value
    
78.         txtPositionName.Text = Me.Fields("PositionName").Value
    
79.         ItemNo = ItemNo + 1
    
80.     End Sub
    
81. 
    
82.     Private Sub NewActiveReport1_ReportEnd(sender As Object, e As System.EventArgs) Handles Me.ReportEnd
    
83.         DR.Close()
    
84.         Conn.Close()
    
85.     End Sub
    
86. 
    
87.     Private Sub GroupHeader1_Format(sender As System.Object, e As System.EventArgs) Handles GroupHeader1.Format
    
88.         Me.GroupHeader1.ColumnLayout = True
    
89.         Me.GroupHeader1.DataField = "DepartmentName"
    
90.         txtDepartmentName.Text = Me.Fields("DepartmentName").Value
    
91.         'Me.GroupHeader1.GroupKeepTogether = GroupKeepTogether.None
    
92.         'Me.GroupHeader1.KeepTogether = True
    
93.         'Me.GroupHeader1.NewColumn = NewColumn.None
    
94.         'Me.GroupHeader1.NewPage = NewPage.None
    
95.         'Me.GroupHeader1.RepeatStyle = RepeatStyle.None
    
96.         'Me.GroupHeader1.UnderlayNext = False
    
97.     End Sub
    
98. 
    
99.     Private Sub GroupFooter1_Format(sender As System.Object, e As System.EventArgs) Handles GroupFooter1.Format
    
100.         '// NewPage.None จะพิมพ์กลุ่มต่อไป
     
101.         Me.GroupFooter1.NewPage = NewPage.After
     
102.         txtSum.Text = "Total: " & ItemNo
     
103.         ItemNo = 0
     
104.     End Sub
     
105. 
     
106. End Class

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

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

OUDONE

ไม่มี insert group   ครับ

thongkorn

OUDONE ตอบกลับเมื่อ 2022-10-15 11:52
ไม่มี insert group   ครับ

หากเอา ActiveReport 6 ไปใช้บน VS ที่สูงกว่า 2010 จะไม่มีครับ ดังนั้นต้องมาทำใน VS2010 ก่อน แล้วค่อยนำไปใช้บน VS รุ่นที่สูงกว่าครับ

OUDONE

thongkorn ตอบกลับเมื่อ 2022-10-15 11:56
หากเอา ActiveReport 6 ไปใช้บน VS ที่สูงกว่า 2010 จะไม่มีครับ ด ...

ขอบคุณครับ อย่าให้ค่ากาเฟ อจาร จ่ายผ่านทางใหมครับ

thongkorn

OUDONE ตอบกลับเมื่อ 2022-10-15 13:46
ขอบคุณครับ อย่าให้ค่ากาเฟ อจาร จ่ายผ่านทางใหมครับ

ขอบคุณมากๆครับผม แต่ผมไม่ขอรับการบริจาคใดๆ ผมแบ่งปันความรู้ให้ด้วยใจจริงล้วนๆ และก็ไม่ได้เดือดร้อนอะไรครับผม

OUDONE

thongkorn ตอบกลับเมื่อ 2022-10-15 15:34
ขอบคุณมากๆครับผม แต่ผมไม่ขอรับการบริจาคใดๆ ผมแบ่งป ...

ขอบคุณมากๆครับ