[VB.NET] การควบคุมตารางกริด (DataGridView) เพื่อจำลองการขายสินค้า

thongkorn

โค้ดชุดนี้เป็น การจำลองการขายสินค้า (Detail) เพื่อคำนวณจากจำนวนสินค้า X ราคาสินค้า ในแต่ละแถวข้อมูลของตารางกริด จากนั้นนำมาหาผลรวมยอดเงินทั้งหมด ซึ่งจะมีการเพิ่มแถว ลบแถวรายการได้ เพื่อจะให้เห็นผลลัพธ์ของการเปลี่ยนแปลง โดยที่ไม่ได้ติดต่อกับฐานข้อมูลใดๆเลย แต่ใช้ข้อมูลสมมุติขึ้นมา จุดประสงค์หลักของงานชิ้นนี้ ก็เพื่อเรียนรู้ในการควบคุมตารางกริด ในลักษณะที่เรียกว่า In Line Edit ซึ่งจะมีความเป็นมิตรกับผู้ใช้งาน (Friendly Use) ... เป็นการใช้โค้ดทั้งหมด หรือที่เรียกว่า Run Time ซึ่งจะทำให้เกิดความยืดหยุ่นในการปรับแต่งโปรแกรม







มาดูโค้ดต้นฉบับกันดีกว่า ...

1. Public Class frmDetailDataGridView
   
2. 
   
3.     ' / --------------------------------------------------------------------------------
   
4.     '/ Don't forget to set Form has KeyPreview = True
   
5.     Private Sub frmDetailDataGridView_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   
6.         Select Case e.KeyCode
   
7.             Case Keys.F7
   
8.                 '/ Add Row
   
9.                 Call btnAddRow_Click(sender, e)
   
10.             Case Keys.F8
    
11.                 '/ Remove Row
    
12.                 Call btnRemoveRow_Click(sender, e)
    
13.         End Select
    
14.     End Sub
    
15. 
    
16.     ' / --------------------------------------------------------------------------------
    
17.     Private Sub frmDetailDataGridView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
18.         Me.KeyPreview = True  '/ สามารถกดปุ่มฟังค์ชั่นคีย์ลงในฟอร์มได้
    
19.         Call InitializeGrid()
    
20.         '/
    
21.         txtSumTotal.ReadOnly = True
    
22.         txtSumTotal.Text = "0.00"
    
23.     End Sub
    
24. 
    
25.     ' / --------------------------------------------------------------------------------
    
26.     Private Sub InitializeGrid()
    
27.         With dgvData
    
28.             .RowHeadersVisible = False
    
29.             .AllowUserToAddRows = False
    
30.             .AllowUserToDeleteRows = False
    
31.             .AllowUserToResizeRows = False
    
32.             .MultiSelect = False
    
33.             .ReadOnly = False
    
34.             .RowTemplate.MinimumHeight = 27
    
35.             .RowTemplate.Height = 27
    
36.             '/ Columns Specified
    
37.             '/ Index = 0
    
38.             .Columns.Add("PK", "Primary Key")
    
39.             With .Columns("PK")
    
40.                 .ReadOnly = True
    
41.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
    
42.                 .Visible = True 'False '/ ปกติหลัก Primary Key จะต้องถูกซ่อนไว้
    
43.             End With
    
44.             '/ Index = 1
    
45.             .Columns.Add("ProductID", "Product ID")
    
46.             '/ Index = 2
    
47.             .Columns.Add("ProductName", "Product Name")
    
48.             '/ Index = 3
    
49.             .Columns.Add("Quantity", "Quantity")
    
50.             .Columns("Quantity").ValueType = GetType(Integer)
    
51.             '/ Index = 4
    
52.             .Columns.Add("UnitPrice", "Unit Price")
    
53.             .Columns("UnitPrice").ValueType = GetType(Double)
    
54.             '/ Index = 5
    
55.             .Columns.Add("Total", "Total")
    
56.             .Columns("Total").ValueType = GetType(Double)
    
57.             .Font = New Font("Tahoma", 11)
    
58.             '/ Total Column
    
59.             With .Columns("Total")
    
60.                 .ReadOnly = True
    
61.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
    
62.                 .DefaultCellStyle.ForeColor = Color.Blue
    
63.                 .DefaultCellStyle.Font = New Font(dgvData.Font, FontStyle.Bold)
    
64.             End With
    
65.             '/ Alignment MiddleRight only columns 3 to 5
    
66.             For i As Byte = 3 To 5
    
67.                 '/ Header Alignment
    
68.                 .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    
69.                 '/ Cell Alignment
    
70.                 .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
71.             Next
    
72.             '/ Auto size column width of each main by sorting the field.
    
73.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
74.             '/ Adjust Header Styles
    
75.             With .ColumnHeadersDefaultCellStyle
    
76.                 .BackColor = Color.RoyalBlue
    
77.                 .ForeColor = Color.White
    
78.                 .Font = New Font("Tahoma", 11, FontStyle.Bold)
    
79.             End With
    
80.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
81.             .ColumnHeadersHeight = 36
    
82.             '/ กำหนดให้ EnableHeadersVisualStyles = False เพื่อให้ยอมรับการเปลี่ยนแปลงสีพื้นหลังของ Header
    
83.             .EnableHeadersVisualStyles = False
    
84.         End With
    
85. 
    
86.     End Sub
    
87. 
    
88.     ' / --------------------------------------------------------------------------------
    
89.     ' / Add new row
    
90.     Private Sub btnAddRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
    
91.         Dim Position As Integer = dgvData.Rows.Count - 1
    
92.         Dim PK As Integer = 1   '/ Initialize value if without rows.
    
93.         '/ Get value at the last row
    
94.         Dim LastRow As New DataGridViewRow
    
95.         '/ ตรวจสอบค่าแถวสุดท้ายว่ามีค่า Primary Key เท่าไหร่ก็ให้บวก 1 (เป็นการจำลองการทำงาน โดยไม่ติดต่อกับ DataBase)
    
96.         '/ กรณีใช้ฐานข้อมูลจริงๆ ให้ตัดส่วนนี้ทิ้งแล้วใช้ Primary Key ของสินค้าจากฐานข้อมูลแทน
    
97.         If Position >= 0 Then
    
98.             '/ ไปแถวสุดท้าย
    
99.             LastRow = dgvData.Rows.OfType(Of DataGridViewRow).Last()
    
100.             '/ จากนั้นให้เพิ่มค่าขึ้น +1 (Column Index = 0)
     
101.             PK = LastRow.Cells(0).Value + 1
     
102.         End If
     
103.         Dim RandomClass As New Random()
     
104.         '/ Sample data
     
105.         '/ Primary Key, Product ID, Product Name, Quantity, UnitPrice, Total
     
106.         Dim row As String() = New String() {PK, "PRO000" & PK, "Product " & PK, 1, Format(RandomClass.Next(1, 1000), "0.00"), "0.00"}
     
107.         dgvData.Rows.Add(row)
     
108.         '/ โฟกัสไปที่ Column(3) หรือ Quantity (จำนวน)
     
109.         dgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3)
     
110.         dgvData.Focus()
     
111. 
     
112.         '/ ไปคำนวณหาค่าผลรวม
     
113.         Call CalSumTotal()
     
114.     End Sub
     
115. 
     
116.     ' / --------------------------------------------------------------------------------
     
117.     ' / Remove select row
     
118.     Private Sub btnRemoveRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
     
119.         If dgvData.RowCount = 0 Then Exit Sub
     
120.         '/
     
121.         dgvData.Rows.Remove(dgvData.CurrentRow)
     
122.         dgvData.Refresh()
     
123.         '/ เมื่อแถวรายการถูกลบออกไป และยังคงมีแถวรายการอยู่ ต้องไปคำนวณหาค่าผลรวมใหม่
     
124.         If dgvData.RowCount > 0 Then Call CalSumTotal()
     
125.     End Sub
     
126. 
     
127.     ' / --------------------------------------------------------------------------------
     
128.     ' / Calcualte sum of Total (Column Index = 5)
     
129.     ' / ทำทุกครั้งที่มีการเพิ่มหรือลบแถวรายการ และมีการเปลี่ยนแปลงค่าในเซลล์ Quantity, UnitPrice
     
130.     Private Sub CalSumTotal()
     
131.         txtSumTotal.Text = "0.00"
     
132.         '/ วนรอบตามจำนวนแถวที่มีอยู่ปัจจุบัน
     
133.         For i As Integer = 0 To dgvData.RowCount - 1
     
134.             '/ หลักสุดท้ายของตารางกริด = [จำนวน x ราคา]
     
135.             dgvData.Rows(i).Cells(5).Value = Format(dgvData.Rows(i).Cells(3).Value * dgvData.Rows(i).Cells(4).Value, "#,##0.00")
     
136.             '/ นำค่าจาก Total มารวมกันเพื่อแสดงผลในสรุปผลรวม (x = x + y)
     
137.             txtSumTotal.Text = Format(CDbl(txtSumTotal.Text) + CDbl(dgvData.Rows(i).Cells(5).Value), "#,##0.00")
     
138.         Next
     
139.     End Sub
     
140. 
     
141.     ' / --------------------------------------------------------------------------------
     
142.     ' / After you press Enter
     
143.     Private Sub dgvData_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit
     
144.         '/ เกิดการเปลี่ยนแปลงค่าในหลัก Index ที่ 3 หรือ 4
     
145.         Select Case e.ColumnIndex
     
146.             Case 3, 4 '/ Column Index = 3 (Quantity), Column Index = 4 (UnitPrice)
     
147.                 '/ Quantity
     
148.                 '/ การดัก Error กรณีมีค่า Null Value ให้ใส่ค่า 0 ลงไปแทน
     
149.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = "0"
     
150.                 Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
     
151.                 '/ UnitPrice
     
152.                 '/ If Null Value
     
153.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = "0.00"
     
154.                 Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
     
155. 
     
156.                 '/ Quantity x UnitPrice
     
157.                 dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
     
158. 
     
159.                 '/ Calculate Summary
     
160.                 Call CalSumTotal()
     
161.         End Select
     
162.     End Sub
     
163. 
     
164.     ' / --------------------------------------------------------------------------------
     
165.     Private Sub dgvData_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
     
166.         Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
     
167.             ' / Can use both Colume Index or Field Name
     
168.             Case "Quantity", "UnitPrice"
     
169.                 '/ Stop and Start event handler
     
170.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
171.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
172.         End Select
     
173.     End Sub
     
174. 
     
175.     ' / --------------------------------------------------------------------------------
     
176.     Private Sub ValidKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
     
177.         Dim tb As TextBox = sender
     
178.         Select Case dgvData.CurrentCell.ColumnIndex
     
179.             Case 3  ' Quantity is Integer
     
180.                 Select Case e.KeyChar
     
181.                     Case "0" To "9"   ' digits 0 - 9 allowed
     
182.                     Case ChrW(Keys.Back)    ' backspace allowed for deleting (Delete key automatically overrides)
     
183. 
     
184.                     Case Else ' everything else ....
     
185.                         ' True = CPU cancel the KeyPress event
     
186.                         e.Handled = True ' and it's just like you never pressed a key at all
     
187.                 End Select
     
188. 
     
189.             Case 4  ' UnitPrice is Double
     
190.                 Select Case e.KeyChar
     
191.                     Case "0" To "9"
     
192.                         ' Allowed "."
     
193.                     Case "."
     
194.                         ' can present "." only one
     
195.                         If InStr(tb.Text, ".") Then e.Handled = True
     
196. 
     
197.                     Case ChrW(Keys.Back)
     
198.                         '/ Return False is Default value
     
199. 
     
200.                     Case Else
     
201.                         e.Handled = True
     
202. 
     
203.                 End Select
     
204.         End Select
     
205.     End Sub
     
206. 
     
207.     Private Sub frmDetailDataGridView_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
208.         Me.Dispose()
     
209.         GC.SuppressFinalize(Me)
     
210.         Application.Exit()
     
211.     End Sub
     
212. 
     
213. End Class

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

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