[VB.NET] จัดกลุ่มด้วยวิธีการเขียนโค้ดให้กับ GridGrouping ของฟรีจาก Syncfusion

thongkorn

แอดมินได้แจกโค้ดวิธีการใช้งาน GridGrouping Control ของฟรีจากค่าย Syncfusion ไปหลายรอบแล้ว คราวนี้มาดู วิธีการจัดกลุ่มให้กับ Control ตัวนี้ โดยการเขียนด้วยโค้ดเข้าไปควบคุมแทนการใช้ Drag & Drop ซึ่งแม้ว่าวิธีนี้มันดูง่าย แต่กลับจะทำให้ผู้ใช้งานสับสนหรือไม่ค่อยกล้าใช้งาน แน่นอนล่ะว่าต้องเพิ่มความยากในการเขียนโปรแกรมขึ้นมาอยู่แล้วครับ สำหรับ Control ของค่ายนี้ค่อนข้างจะมีโค้ดของตารางกริด ที่แตกต่างไปจากค่ายอื่นๆเขาเยอะมาก ทำให้เราเรียนรู้ได้ช้า และจดจำได้ยาก ดังนั้นควรจะศึกษาจากโค้ดแบบ Run Time ทดแทนการจดจำด้วยวิธีการ Design Time ครับผม ...

Add References ... ต้องใช้ Net FrameWork 4.0 ชุดเต็มด้วยน่ะครับ


มาดูโค้ดต้นฉบับกันเถอะ ...

1. '// https://help.syncfusion.com/windowsforms/classic/gridgroupingcontrol/overview
   
2. Imports Syncfusion.Windows.Forms
   
3. Imports Syncfusion.Windows.Forms.Grid
   
4. Imports Syncfusion.Grouping
   
5. 
   
6. '// DataBase
   
7. Imports System.Data.OleDb
   
8. 
   
9. Public Class frmGroupGGC
   
10. 
    
11.     Private Sub frmGGCSample_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
12.         Me.Dispose()
    
13.         Application.Exit()
    
14.     End Sub
    
15. 
    
16.     Private Sub frmGGCSample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
17.         Call ConnectDataBase()
    
18.         '//
    
19.         With cmbGroup
    
20.             .Items.Add("Show all records")
    
21.             .Items.Add("Zone Name")
    
22.         End With
    
23.         cmbGroup.SelectedIndex = 0
    
24.     End Sub
    
25. 
    
26.     ' / --------------------------------------------------------------------------------
    
27.     Private Sub cmbGroup_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbGroup.SelectedIndexChanged
    
28.         strSQL = _
    
29.             " SELECT Countries.CountryPK, Countries.A2, Countries.Country, Countries.Capital, " & _
    
30.             " Countries.Population, Zones.ZoneName " & _
    
31.             " FROM Countries INNER JOIN Zones ON Countries.ZoneFK = Zones.ZonePK " & _
    
32.             " ORDER BY Countries.A2 "
    
33.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
34.         '// Creates Data Adapter.
    
35.         DA = New OleDbDataAdapter(strSQL, Conn)
    
36.         '// Creates and fills Data Set.
    
37.         DS = New DataSet
    
38.         DA.Fill(DS)
    
39.         Me.GGC.DataSource = DS.Tables(0)
    
40.         '//
    
41.         Select Case cmbGroup.SelectedIndex
    
42.             '// Show all records.
    
43.             Case 0
    
44.                 '// Delete Grouping
    
45.                 GGC.TableDescriptor.GroupedColumns.Remove("ZoneName")
    
46.                 '// Show ZoneName Column
    
47.                 GGC.TableDescriptor.VisibleColumns.Add("ZoneName")
    
48. 
    
49.                 '// Make group.
    
50.             Case 1
    
51.                 '// Grouping with ZoneName
    
52.                 GGC.TableDescriptor.GroupedColumns.Add("ZoneName")
    
53.                 '// Hidden ZoneName
    
54.                 GGC.TableDescriptor.VisibleColumns.Remove("ZoneName")
    
55.         End Select
    
56.         DA.Dispose()
    
57.         DS.Dispose()
    
58.         Conn.Close()
    
59.         '//
    
60.         Call InitGridGroup()
    
61.     End Sub
    
62. 
    
63.     ' / --------------------------------------------------------------------------------
    
64.     Private Sub InitGridGroup()
    
65.         '// Initialize Columns GridGroup
    
66.         With Me.GGC.TableDescriptor
    
67.             '// Hidden Primary Key Column
    
68.             .VisibleColumns.Remove("CountryPK")
    
69.             '/ Using Column Name
    
70.             .Columns("A2").HeaderText = "A2"
    
71.             .Columns("Country").HeaderText = "Country"
    
72.             .Columns("Capital").HeaderText = "Capital"
    
73.             '// Format Population
    
74.             With .Columns("Population")
    
75.                 .HeaderText = "Population"
    
76.                 .Appearance.AnyRecordFieldCell.CellValueType = GetType(Double)
    
77.                 .Appearance.AnyRecordFieldCell.Format = "N2"
    
78.             End With
    
79.             .Columns("ZoneName").HeaderText = "Zone Name"
    
80.         End With
    
81.         '// GridVerticalAlignment.Middle
    
82.         For i As Byte = 0 To 5
    
83.             With Me.GGC
    
84.                 .TableDescriptor.Columns(i).Appearance.AnyRecordFieldCell.VerticalAlignment = GridVerticalAlignment.Middle
    
85.                 .TableDescriptor.Columns(i).AllowGroupByColumn = False
    
86.                 ' // Set Font any Columns.
    
87.                 .TableDescriptor.Columns(i).Appearance.AnyRecordFieldCell.Font = New Syncfusion.Windows.Forms.Grid.GridFontInfo(New Font("Tahoma", 11.0F, FontStyle.Regular))
    
88.             End With
    
89.         Next
    
90. 
    
91.         '// Initialize normal GridGrouping
    
92.         With Me.GGC
    
93.             '// Font Style Column Headers.
    
94.             .Appearance.ColumnHeaderCell.Font = New Syncfusion.Windows.Forms.Grid.GridFontInfo(New Font("Tahoma", 12.0F, FontStyle.Bold))
    
95.             '// Font Style Caption Cells.
    
96.             .TableDescriptor.Appearance.GroupCaptionCell.Font = New GridFontInfo(New Font("Tahoma", 12.0F, FontStyle.Bold))
    
97.             .Appearance.GroupCaptionCell.TextColor = Color.FromArgb(192, 64, 0)
    
98. 
    
99.             '/ Allows GroupDropArea to be visible
    
100.             .ShowGroupDropArea = False  ' Disable
     
101.             '// Hidden Top Level of Grouping
     
102.             .TopLevelGroupOptions.ShowCaption = False
     
103.             '// Styles
     
104.             .GridVisualStyles = Syncfusion.Windows.Forms.GridVisualStyles.SystemTheme
     
105.             '/ Disables editing in GridGroupingControl
     
106.             .ActivateCurrentCellBehavior = GridCellActivateAction.None
     
107.             '// Metro Styles
     
108.             .GridVisualStyles = Syncfusion.Windows.Forms.GridVisualStyles.Metro
     
109.             '/ Disables editing in GridGroupingControl
     
110.             .TableDescriptor.AllowNew = False
     
111.             '// Autofit Columns
     
112.             .AllowProportionalColumnSizing = False ' True
     
113. 
     
114.             '// Row Height
     
115.             .Table.DefaultRecordRowHeight = 28 '25
     
116.             '//
     
117.             .Table.DefaultCaptionRowHeight = 28 '25
     
118.             .Table.DefaultColumnHeaderRowHeight = 36 '30    '// Columns Header
     
119. 
     
120.             '// Selection
     
121.             .TableOptions.ListBoxSelectionMode = SelectionMode.One
     
122.             '/ Selection Back color
     
123.             .TableOptions.SelectionBackColor = Color.Firebrick
     
124.             '//
     
125.             .Appearance.ColumnHeaderCell.TextColor = Color.DarkBlue
     
126. 
     
127.             '/ Applies back color as LightCyan for alternative records in the Grid.
     
128.             .Appearance.AlternateRecordFieldCell.BackColor = Color.LightCyan
     
129.         End With
     
130. 
     
131.         With Me.GGC
     
132.             '/ Disable record preview row
     
133.             .TableOptions.ShowRecordPreviewRow = False
     
134.             '//
     
135.             '/ Will enable the Group Header for the top most group.
     
136.             .TopLevelGroupOptions.ShowGroupHeader = False ' True
     
137.             '/ Will enable the Group Footer for the group.
     
138.             .TopLevelGroupOptions.ShowGroupFooter = False 'True
     
139.             '//
     
140.             .TableOptions.GroupHeaderSectionHeight = 30
     
141.             .TableOptions.GroupFooterSectionHeight = 30
     
142.         End With
     
143.     End Sub
     
144. 
     
145.     ' / --------------------------------------------------------------------------------
     
146.     '// Double click event for show PrimaryKey which hidden in Column(0)
     
147.     Private Sub GGC_TableControlCellDoubleClick(ByVal sender As Object, ByVal e As Syncfusion.Windows.Forms.Grid.Grouping.GridTableControlCellClickEventArgs) Handles GGC.TableControlCellDoubleClick
     
148.         '// Row of Column Header
     
149.         If e.Inner.RowIndex <= 1 Then Return
     
150.         '/ Notify the double click performed in a cell
     
151.         Dim rec As Record = Me.GGC.Table.DisplayElements(e.TableControl.CurrentCell.RowIndex).ParentRecord
     
152.         If (rec) IsNot Nothing Then
     
153.             MsgBox("Primary key = " & rec.GetValue("CountryPK").ToString)
     
154.         End If
     
155.     End Sub
     
156. 
     
157.     ' / --------------------------------------------------------------------------------
     
158.     '// Full Select Row
     
159.     Private Sub GGC_TableControlCurrentCellActivating(ByVal sender As Object, ByVal e As Syncfusion.Windows.Forms.Grid.Grouping.GridTableControlCurrentCellActivatingEventArgs) Handles GGC.TableControlCurrentCellActivating
     
160.         '// Get Column Index 0 is the Primary Key. (Hidden column)
     
161.         e.Inner.ColIndex = 0
     
162.     End Sub
     
163. 
     
164.     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
     
165.         Me.Close()
     
166.     End Sub
     
167. 
     
168. End Class

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

โมดูลหากินในการเชื่อมต่อกับฐานข้อมูล ... modDataBase.vb

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

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

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

g2gsoftuser

ขอบคุณครับ