[VB.NET] โค้ดในส่วนของรายละเอียดการขายสินค้า แบบไม่ต้องติดต่อกับฐานข้อมูล

thongkorn

โค้ดในส่วนของการขายสินค้า เป็นงานต้นแบบเพื่ออธิบายให้เห็นถึงหลักการวิธีคิดของการนำข้อมูลรายการสินค้าเข้าไปเก็บไว้ในตารางกริด เพื่อทำการขายสินค้า ตามหลักการของฐานข้อมูลก็คือมี ความสัมพันธ์แบบ One To Many (ใบขายสินค้า 1 ใบ ขายสินค้าได้หลายชนิด) แต่แอดมินจะตัดส่วนในเรื่องฐานข้อมูลทิ้งออกไปก่อน เพื่อไม่ให้เกิดความสับสน โดยโค้ดชุดนี้จะแสดงให้เห็นถึงการขายแบบมาตรฐาน แบบแรกคือการที่มีสินค้า A แล้วให้รวมจำนวนสินค้า A ไว้ในรายการเดียว และอีกแบบคือสินค้าเดียวกันแต่แยกจำนวนสินค้าออกจากกัน และทั้ง 2 แบบจะสามารถแก้ไขข้อมูล เช่น ราคาหรือจำนวนสินค้าได้ในขณะที่ทำรายการ ซึ่งเราเรียกว่า In Line Edit ด้วยวิธีการนี้จะมีความเป็นมิตรกับผู้ใช้ (Friendly Use) และทั้งหมดนี้คือการทำงานที่เรียกว่า UnBound Data หรือการไม่ผูกฟิลด์ข้อมูลใดๆเอาไว้กับตารางกริด ทำให้เราสามารถควบคุมการทำงานของโปรแกรมได้ดี ปรับแต่งความยืดหยุ่นได้ตามใจชอบ ... แอดมินฝากเอาไปคิดเป็นการบ้าน เช่น กรณีที่ไม่ได้ขายแบบเงินสด จะเช็คสต็อกได้อย่างไร ...

การจำลองตารางข้อมูล (DataTable) เพื่อทำการทดสอบ โดยที่ไม่ต้องไปติดต่อกับฐานข้อมูลใดๆ ...

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / S A M P L E ... D A T A T A B L E (Products)
   
3.     ' / --------------------------------------------------------------------------------
   
4.     Function GetDataTable() As DataTable
   
5.         '// Add Column
   
6.         Dim DT As New DataTable
   
7.         With DT.Columns
   
8.             .Add("ProductPK", GetType(Integer)) '<< Index = 0
   
9.             .Add("ProductID", GetType(String))    '<< 1
   
10.             .Add("ProductName", GetType(String)) '<< 2
    
11.             .Add("UnitPrice", GetType(Double)) '<< 3
    
12.             '// ในส่วนของการรวมจำนวนเงิน (Total) จำนวน X ราคา เราจะไม่เก็บในฐานข้อมูลให้เปลืองพื้นที่ แต่จะให้โปรแกรมคำนวณให้แทน
    
13.         End With
    
14.         '// ... Add rows for data.
    
15.         '/ ProductPK, ProductID, ProductName, UnitPrice
    
16.         '/ เหมือนการ Query เพื่อนำเอาเฉพาะข้อมูลที่ต้องการมาใช้งานเท่านั้น
    
17.         With DT.Rows
    
18.             .Add(1, "01", "กาแฟร้อน", "50.00")
    
19.             .Add(2, "02", "กาแฟเย็น", "60.00")
    
20.             .Add(3, "03", "คาปูชิโน่", "75.00")
    
21.             .Add(4, "04", "คาปูชิโน่ - ลาเต้", "80.00")
    
22.             .Add(5, "05", "เอ็กซ์เพรสโซ่", "90.00")
    
23.             .Add(6, "06", "Classic Chicken", "20.00")
    
24.             .Add(7, "07", "Mexicana", "25.00")
    
25.             .Add(8, "08", "Lemon Shrimp", "30.00")
    
26.             .Add(9, "09", "Bacon", "40.00")
    
27.             .Add(10, "10", "Spicy Shrimp", "45.00")
    
28.             .Add(11, "11", "Tex Supreme", "50.00")
    
29.             .Add(12, "12", "Fish", "55.00")
    
30.             .Add(13, "13", "Pepsi Can", "20.00")
    
31.             .Add(14, "14", "Coke Can", "20.00")
    
32.             .Add(15, "15", "7Up Can", "20.00")
    
33.             .Add(16, "16", "Pepsi 2 ลิตร", "50.00")
    
34.             .Add(17, "17", "Coke 2 ลิตร", "50.00")
    
35.             .Add(18, "18", "น้ำเปล่า", "15.00")
    
36.             .Add(19, "19", "เหล้าเป็ก", "100.00")
    
37.             .Add(20, "20", "เบียร์สิงห์ (กระป๋อง)", "50.00")
    
38.         End With
    
39.         Return DT
    
40.     End Function

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

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

1. Public Class frmPosDetail
   
2. 
   
3.     Private Sub frmPosDetail_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   
4.         Select Case e.KeyCode
   
5.             Case Keys.F8
   
6.                 '/ Remove Row
   
7.                 Call DeleteRow("btnDelRow")
   
8.         End Select
   
9.     End Sub
   
10. 
    
11.     ' / --------------------------------------------------------------------------------
    
12.     ' / S T A R T ... H E R E
    
13.     ' / --------------------------------------------------------------------------------
    
14.     Private Sub frmPosDetail_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
15.         Me.KeyPreview = True  '/ สามารถกดปุ่มฟังค์ชั่นคีย์ลงในฟอร์มได้
    
16.         Call InitializeGrid()
    
17.         '// Set all TextBox Control to Zero and ReadOnly except txtSearch.
    
18.         For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
    
19.             If tb.Name <> "txtSearch" Then
    
20.                 tb.Text = "0.00"
    
21.                 tb.ReadOnly = True
    
22.             End If
    
23.         Next
    
24.         With cmbTax
    
25.             .Items.Add("None Vat")
    
26.             .Items.Add("Include Vat (7%)")
    
27.             .Items.Add("Exclude Vat (7%)")
    
28.         End With
    
29.         cmbTax.SelectedIndex = 1    '// Include VAT
    
30.     End Sub
    
31. 
    
32.     ' / --------------------------------------------------------------------------------
    
33.     ' / S A M P L E ... D A T A T A B L E (Products)
    
34.     ' / --------------------------------------------------------------------------------
    
35.     Function GetDataTable() As DataTable
    
36.         '// Add Column
    
37.         Dim DT As New DataTable
    
38.         With DT.Columns
    
39.             .Add("ProductPK", GetType(Integer)) '<< Index = 0
    
40.             .Add("ProductID", GetType(String))    '<< 1
    
41.             .Add("ProductName", GetType(String)) '<< 2
    
42.             .Add("UnitPrice", GetType(Double)) '<< 3
    
43.             '// ในส่วนของการรวมจำนวนเงิน (Total) จำนวน X ราคา เราจะไม่เก็บในฐานข้อมูลให้เปลืองพื้นที่ แต่จะให้โปรแกรมคำนวณให้แทน
    
44.         End With
    
45.         '// ... Add rows for data.
    
46.         '/ ProductPK, ProductID, ProductName, UnitPrice
    
47.         '/ เหมือนการ Query เพื่อนำเอาเฉพาะข้อมูลที่ต้องการมาใช้งานเท่านั้น
    
48.         With DT.Rows
    
49.             .Add(1, "01", "กาแฟร้อน", "50.00")
    
50.             .Add(2, "02", "กาแฟเย็น", "60.00")
    
51.             .Add(3, "03", "คาปูชิโน่", "75.00")
    
52.             .Add(4, "04", "คาปูชิโน่ - ลาเต้", "80.00")
    
53.             .Add(5, "05", "เอ็กซ์เพรสโซ่", "90.00")
    
54.             .Add(6, "06", "Classic Chicken", "20.00")
    
55.             .Add(7, "07", "Mexicana", "25.00")
    
56.             .Add(8, "08", "Lemon Shrimp", "30.00")
    
57.             .Add(9, "09", "Bacon", "40.00")
    
58.             .Add(10, "10", "Spicy Shrimp", "45.00")
    
59.             .Add(11, "11", "Tex Supreme", "50.00")
    
60.             .Add(12, "12", "Fish", "55.00")
    
61.             .Add(13, "13", "Pepsi Can", "20.00")
    
62.             .Add(14, "14", "Coke Can", "20.00")
    
63.             .Add(15, "15", "7Up Can", "20.00")
    
64.             .Add(16, "16", "Pepsi 2 ลิตร", "50.00")
    
65.             .Add(17, "17", "Coke 2 ลิตร", "50.00")
    
66.             .Add(18, "18", "น้ำเปล่า", "15.00")
    
67.             .Add(19, "19", "เหล้าเป็ก", "100.00")
    
68.             .Add(20, "20", "เบียร์สิงห์ (กระป๋อง)", "50.00")
    
69.         End With
    
70.         Return DT
    
71.     End Function
    
72. 
    
73.     ' / --------------------------------------------------------------------------------
    
74.     ' / ตั้งค่าเริ่มต้นให้กับ DataGridView แบบ Run Time (ใช้โค้ดทั้งหมด)
    
75.     Private Sub InitializeGrid()
    
76.         With dgvData
    
77.             .RowHeadersVisible = False
    
78.             .AllowUserToAddRows = False
    
79.             .AllowUserToDeleteRows = False
    
80.             .AllowUserToResizeRows = False
    
81.             .MultiSelect = False
    
82.             .ReadOnly = False
    
83.             .RowTemplate.MinimumHeight = 27
    
84.             .RowTemplate.Height = 27
    
85.             '// Declare columns type.
    
86.             Dim PK As New DataGridViewTextBoxColumn()
    
87.             Dim ProductID As New DataGridViewTextBoxColumn()
    
88.             Dim ProductName As New DataGridViewTextBoxColumn()
    
89.             Dim Quantity As New DataGridViewTextBoxColumn()
    
90.             Dim UnitPrice As New DataGridViewTextBoxColumn()
    
91.             Dim Total As New DataGridViewTextBoxColumn()
    
92.             '// Add new Columns
    
93.             dgvData.Columns.AddRange(New DataGridViewColumn() { _
    
94.                                      PK, ProductID, ProductName, Quantity, UnitPrice, Total _
    
95.                                     })
    
96.             '/ Index = 0
    
97.             With PK
    
98.                 .Name = "PK"
    
99.                 .HeaderText = "PK"
    
100.                 .Visible = False
     
101.             End With
     
102.             '/ Index = 1
     
103.             With ProductID
     
104.                 .Name = "ProductID"
     
105.                 .HeaderText = "Product ID"
     
106.                 .ReadOnly = True
     
107.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
108.             End With
     
109.             '/ Index = 2
     
110.             With ProductName
     
111.                 .Name = "ProductName"
     
112.                 .HeaderText = "Product Name"
     
113.                 .ReadOnly = True
     
114.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
115.             End With
     
116.             '/ Index = 3
     
117.             With Quantity
     
118.                 .Name = "Quantity"
     
119.                 .HeaderText = "Quantity"
     
120.                 .ValueType = GetType(Integer)
     
121.             End With
     
122.             '/ Index = 4
     
123.             With UnitPrice
     
124.                 .Name = "UnitPrice"
     
125.                 .HeaderText = "Unit Price"
     
126.                 .ValueType = GetType(Double)
     
127.             End With
     
128.             '/ Index = 5
     
129.             With Total
     
130.                 .Name = "Total"
     
131.                 .HeaderText = "Total"
     
132.                 .ValueType = GetType(Double)
     
133.                 .ReadOnly = True
     
134.                 .ReadOnly = True
     
135.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
136.                 .DefaultCellStyle.ForeColor = Color.Blue
     
137.                 .DefaultCellStyle.Font = New Font(dgvData.Font, FontStyle.Bold)
     
138.             End With
     
139.             '// เพิ่มปุ่มลบ (Index = 6)
     
140.             Dim btnDelRow As New DataGridViewButtonColumn
     
141.             dgvData.Columns.Add(btnDelRow)
     
142.             With btnDelRow
     
143.                 .HeaderText = "Delete F8"
     
144.                 .Text = "Delete"
     
145.                 .UseColumnTextForButtonValue = True
     
146.                 .Width = 30
     
147.                 .ReadOnly = True
     
148.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
     
149.                 .SortMode = DataGridViewColumnSortMode.NotSortable  '/ Not sort order but can click header for delete row.
     
150.             End With
     
151.             '/ Alignment MiddleRight only columns 3 to 5
     
152.             For i As Byte = 3 To 5
     
153.                 '/ Header Alignment
     
154.                 .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
155.                 '/ Cell Alignment
     
156.                 .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
157.             Next
     
158.             '/ Auto size column width of each main by sorting the field.
     
159.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
160.             '/ Adjust Header Styles
     
161.             With .ColumnHeadersDefaultCellStyle
     
162.                 .BackColor = Color.RoyalBlue
     
163.                 .ForeColor = Color.White
     
164.                 .Font = New Font("Tahoma", 11, FontStyle.Bold)
     
165.             End With
     
166.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
167.             .ColumnHeadersHeight = 36
     
168.             '/ กำหนดให้ EnableHeadersVisualStyles = False เพื่อให้ยอมรับการเปลี่ยนแปลงสีพื้นหลังของ Header
     
169.             .EnableHeadersVisualStyles = False
     
170.         End With
     
171.     End Sub
     
172. 
     
173.     ' / --------------------------------------------------------------------------------
     
174.     ' / การค้นหาข้อมูลในช่อง TextBox และค้นหาว่ามีข้อมูลรายการสินค้าอยู่ในแถวรายการตารางกริดหรือไม่
     
175.     ' / หากไม่มี ก็ให้เพิ่มแถวเข้าไปใหม่
     
176.     ' / หากมี ก็ให้เพิ่มจำนวนขึ้นไปอีก 1 Unit.
     
177.     ' / --------------------------------------------------------------------------------
     
178.     Private Sub txtSearch_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress
     
179.         '// เมื่อกดคีย์ ENTER เพื่อเริ่มต้นการค้นหาข้อมูล
     
180.         If e.KeyChar = Chr(13) Then
     
181.             '/ Replace some word for reserved in DataBase.
     
182.             txtSearch.Text = txtSearch.Text.Trim.Replace("'", "").Replace("*", "").Replace("%", "")
     
183.             e.Handled = True    '// ปิดเสียง
     
184.             '/ สร้าง DataTable สมมุติขึ้นมา (เหมือนกับการดึงข้อมูลจาก DataBase เข้ามาเพื่อทำการค้นหา)
     
185.             Dim DT As DataTable = GetDataTable()
     
186.             '/ ค้นหาข้อมูลจาก DataTable แล้วรับค่ามาใส่ไว้ใน DataRow
     
187.             '/ การค้นหาข้อมูลแบบ String จะต้องใส่เครื่องหมาย Single Quote ครอบเอาไว้ เช่น ProductID = '01'
     
188.             Dim r() As DataRow = DT.Select(" ProductID = " & "'" & txtSearch.Text.Trim & "'")
     
189.             '// หากพบข้อมูลใน DataTable
     
190.             If r.Count > 0 Then
     
191.                 '/ ตัวแปรบูลีน Flag แจ้งการค้นหาข้อมูลในตารางกริด (True = พบรายการในแถว, False = ไม่พบ)
     
192.                 Dim blnExist As Boolean = False
     
193.                 '/ หากนับจำนวนรวมสินค้าชนิดเดียวกันใน 1 รายการ (ไม่ติ๊กเครื่องหมายถูกใน CheckBox)
     
194.                 '/ หากต้องการให้นับจำนวนรวมอย่างเดียวเท่านั้น ก็ตัดในส่วน IF - END IF และ CheckBox ทิ้งออกไปได้เลย
     
195.                 If Not chkSeparateQty.Checked Then
     
196.                     '/ ต้องค้นหาข้อมูลจากตารางกริดก่อน เพื่อค้นหาว่ามีรายการสินค้าเดิมหรือไม่?
     
197.                     '/ หากในตารางกริดยังไม่มีแถวรายการ ก็จะข้าม For Loop นี้ไปเพิ่มรายการใหม่ทันที
     
198.                     For iRow As Integer = 0 To dgvData.RowCount - 1
     
199.                         '/ ทดสอบด้วย Primary Key r(0).Item(0) หรือ Product ID r(0).Item(1) ก็ได้
     
200.                         If r(0).Item(0) = dgvData.Rows(iRow).Cells(0).Value Then
     
201.                             '/ เมื่อพบรายการเดิม ก็ให้เพิ่มจำนวนขึ้น 1
     
202.                             dgvData.Rows(iRow).Cells(3).Value += 1
     
203.                             '/ Flag แจ้งว่าพบข้อมูลเดิมแล้ว
     
204.                             blnExist = True
     
205.                             '/ เมื่อเจอสินค้าเดิมในตารางกริดแล้ว ไม่ว่าจะอยู่แถวลำดับที่เท่าไหร่ ก็ให้ออกจาก For Loop การค้นหาได้เลย
     
206.                             '/ เพราะรายการสินค้าใดๆ จะต้องมีอยู่เพียงแค่รายการเดียว ไม่ต้องเสียเวลาวนรอบกลับไปทำให้จนครบจำนวนแถว
     
207.                             Exit For
     
208.                         End If
     
209.                     Next
     
210.                 End If
     
211.                 '/ กรณีที่พบสินค้าในตารางกริด กำหนด blnExist = True ทำให้ Not True = False จะทำให้ข้ามเงื่อนไขนี้ออกไป
     
212.                 '/ กรณีที่ไม่พบข้อมูลสินค้าเดิมในตารางกริด กำหนด blnExist = False ทำให้ Not False = True เพิ่มรายการสินค้าแถวใหม่เข้าไปในตารางกริดได้
     
213.                 If Not blnExist Then
     
214.                     '/ เขียนเอาไว้หน่อยจะได้ไม่ลืมว่าแต่ละหลักเราเก็บค่าอะไร
     
215.                     '/ Primary Key, Product ID, Product Name, Quantity, UnitPrice, Total
     
216.                     dgvData.Rows.Add(r(0).Item(0), r(0).Item(1), r(0).Item(2), "1", Format(CDbl(r(0).Item(3).ToString), "0.00"), "0.00")
     
217.                 End If
     
218.                 '/ หากไม่ใช้ NOT ก็จะต้องเขียนโปรแกรมแบบนี้ แต่โค้ดจะไม่สวยงาม
     
219.                 '/ If blnExist = True Then
     
220.                 '/     ไม่ต้องทำอะไร
     
221.                 '/ Else
     
222.                 '/     ทำคำสั่งเพิ่มรายการแถว
     
223.                 '/ End If
     
224.                 '// คำนวณผลรวมใหม่
     
225.                 DT.Dispose()
     
226.                 Call CalSumTotal()
     
227.             End If
     
228.             txtSearch.Clear()
     
229.             txtSearch.Focus()
     
230.         End If
     
231.     End Sub
     
232. 
     
233.     ' / --------------------------------------------------------------------------------
     
234.     ' / Calcualte sum of Total (Column Index = 5)
     
235.     ' / ทำทุกครั้งที่มีการเพิ่ม/ลบแถวรายการ หรือมีการเปลี่ยนแปลงค่าในเซลล์ Quantity, UnitPrice
     
236.     ' / เพื่อคำนวณหาจำนวนเงินใหม่
     
237.     Private Sub CalSumTotal()
     
238.         txtTotal.Text = "0.00"
     
239.         '/ วนรอบตามจำนวนแถวที่มีอยู่ปัจจุบัน
     
240.         For i As Integer = 0 To dgvData.RowCount - 1
     
241.             '/ หลักสุดท้ายของตารางกริด = [จำนวน x ราคา]
     
242.             dgvData.Rows(i).Cells(5).Value = Format(dgvData.Rows(i).Cells(3).Value * dgvData.Rows(i).Cells(4).Value, "#,##0.00")
     
243.             '/ นำค่าจาก Total มารวมกันเพื่อแสดงผลในสรุปผลรวม (x = x + y)
     
244.             txtTotal.Text = Format(CDbl(txtTotal.Text) + CDbl(dgvData.Rows(i).Cells(5).Value), "#,##0.00")
     
245.         Next
     
246.         '// TAX - การคิดภาษี
     
247.         Dim SumPrice As Double = CDbl(txtTotal.Text)
     
248.         Select Case cmbTax.SelectedIndex
     
249.             '// ไม่คิดภาษี
     
250.             Case 0
     
251.                 txtTotal.Text = Format(SumPrice, "#,##0.00")
     
252.                 txtVat.Text = "0.00"
     
253.                 '// รวมจำนวนเงินทั้งหมด
     
254.                 txtNetTotal.Text = Format(CDbl(txtTotal.Text), "#,##0.00")
     
255.                 '// หรือ txtNetTotal.Text = Format(SumPrice, "#,##0.00")
     
256. 
     
257.                 '// รวมภาษี (Include Tax)
     
258.             Case 1
     
259.                 '// คิดภาษี 7% (Include VAT)
     
260.                 txtVat.Text = Format(SumPrice - (SumPrice / 1.07), "#,##0.00")
     
261.                 '// หาราคาสินค้าที่แท้จริงก่อน ... โดยเอาราคาสินค้าทั้งหมดลบออกจากภาษี
     
262.                 txtTotal.Text = Format(SumPrice - CDbl(txtVat.Text), "#,##0.00")
     
263.                 '// รวมจำนวนเงินทั้งหมด
     
264.                 txtNetTotal.Text = Format(SumPrice, "#,##0.00")
     
265. 
     
266.                 '// แยกภาษี (Exclude Tax)
     
267.             Case 2
     
268.                 txtTotal.Text = Format(SumPrice, "#,##0.00")
     
269.                 '// คิดแยกภาษี 7% (Exclude VAT)
     
270.                 txtVat.Text = Format(CDbl(txtTotal.Text) * 7 / 100, "#,##0.00")
     
271.                 '// รวมจำนวนเงินทั้งหมด + ภาษี
     
272.                 txtNetTotal.Text = Format(CDbl(txtTotal.Text) + CDbl(txtVat.Text), "#,##0.00")
     
273.         End Select
     
274.     End Sub
     
275. 
     
276.     ' / --------------------------------------------------------------------------------
     
277.     ' / โปรแกรมย่อยในการลบแถวรายการที่เลือกออกไป
     
278.     ' / --------------------------------------------------------------------------------
     
279.     Private Sub DeleteRow(ByVal ColName As String)
     
280.         If dgvData.RowCount = 0 Then Return
     
281.         '/ ColName เป็นชื่อของหลัก Index = 6 ของตารางกริด (ไปดูที่โปรแกรมย่อย InitializeGrid)
     
282.         If ColName = "btnDelRow" Then
     
283.             '// ลบรายการแถวที่เลือกออกไป
     
284.             dgvData.Rows.Remove(dgvData.CurrentRow)
     
285.             '/ เมื่อแถวรายการถูกลบออกไป ต้องไปคำนวณหาค่าผลรวมใหม่
     
286.             Call CalSumTotal()
     
287.         End If
     
288.         txtSearch.Focus()
     
289.     End Sub
     
290. 
     
291.     Private Sub dgvData_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick
     
292.         Select Case e.ColumnIndex
     
293.             '// Delete Button
     
294.             Case 6
     
295.                 'MsgBox(("Row : " + e.RowIndex.ToString & "  Col : ") + e.ColumnIndex.ToString)
     
296.                 Call DeleteRow("btnDelRow")
     
297.         End Select
     
298.     End Sub
     
299. 
     
300.     ' / --------------------------------------------------------------------------------
     
301.     ' / เหตุการณ์นี้จะเกิดขึ้นเมื่อแก้ไขรายการในเซลล์เรียบร้อยแล้วกด Enter
     
302.     ' / --------------------------------------------------------------------------------
     
303.     Private Sub dgvData_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit
     
304.         '/ เกิดการเปลี่ยนแปลงค่าในหลัก Index ที่ 3 หรือ 4
     
305.         '/ ให้คำนวณราคารวมใหม่ จำนวน X ราคา
     
306.         Select Case e.ColumnIndex
     
307.             '/ Column Index = 3 (Quantity), Column Index = 4 (UnitPrice)
     
308.             Case 3, 4
     
309.                 '/ Quantity
     
310.                 '/ การดัก Error กรณีมีค่า Null Value ให้ใส่ค่า 0 ลงไปแทน
     
311.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = "0"
     
312.                 Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
     
313.                 '/ UnitPrice
     
314.                 '/ If Null Value
     
315.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = "0.00"
     
316.                 Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
     
317.                 dgvData.Rows(e.RowIndex).Cells(4).Value = Format(CDbl(dgvData.Rows(e.RowIndex).Cells(4).Value), "0.00")
     
318. 
     
319.                 '/ Quantity x UnitPrice
     
320.                 dgvData.Rows(e.RowIndex).Cells(5).Value = CDbl((Quantity * UnitPrice).ToString("#,##0.00"))
     
321.                 '/ Calculate Summary
     
322.                 Call CalSumTotal()
     
323.         End Select
     
324.     End Sub
     
325. 
     
326.     ' / --------------------------------------------------------------------------------
     
327.     ' / เมื่อเริ่มกดคีย์ในหลักที่ 3 และ 4 (Quantity, UnitPrice)
     
328.     ' / --------------------------------------------------------------------------------
     
329.     Private Sub dgvData_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
     
330.         '// อย่าลืมกำหนดชื่อ Column Name มาก่อนหน้านี้ด้วย (โปรแกรมย่อย InitializeGrid)
     
331.         Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
     
332.             ' / Can use both Colume Index or Field Name
     
333.             Case "Quantity", "UnitPrice"
     
334.                 '/ Stop and Start event handler.
     
335.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
336.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
     
337.         End Select
     
338.     End Sub
     
339. 
     
340.     ' / --------------------------------------------------------------------------------
     
341.     ' / ดักค่าการกดคีย์เฉพาะตัวเลขเท่านั้น
     
342.     ' / --------------------------------------------------------------------------------
     
343.     Private Sub ValidKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
     
344.         Dim tb As TextBox = sender
     
345.         Select Case dgvData.CurrentCell.ColumnIndex
     
346.             Case 3  ' Quantity is Integer (กรณีเลขจำนวนเต็ม)
     
347.                 Select Case e.KeyChar
     
348.                     Case "0" To "9"   ' digits 0 - 9 allowed
     
349.                     Case ChrW(Keys.Back)    ' backspace allowed for deleting (Delete key automatically overrides)
     
350. 
     
351.                     Case Else ' everything else ....
     
352.                         ' True = CPU cancel the KeyPress event
     
353.                         e.Handled = True ' and it's just like you never pressed a key at all
     
354.                 End Select
     
355. 
     
356.             Case 4  ' UnitPrice is Double (กรณีเลขจำนวนทศนิยม)
     
357.                 Select Case e.KeyChar
     
358.                     Case "0" To "9"
     
359.                         ' Allowed "."
     
360.                     Case "."
     
361.                         ' can present "." only one
     
362.                         If InStr(tb.Text, ".") Then e.Handled = True
     
363. 
     
364.                     Case ChrW(Keys.Back)
     
365.                         '/ Return False is Default value
     
366. 
     
367.                     Case Else
     
368.                         e.Handled = True
     
369. 
     
370.                 End Select
     
371.         End Select
     
372.     End Sub
     
373. 
     
374.     ' / --------------------------------------------------------------------------------
     
375.     ' / เลือกการคำนวณภาษี
     
376.     ' / --------------------------------------------------------------------------------
     
377.     Private Sub cmbTax_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbTax.SelectedIndexChanged
     
378.         Call CalSumTotal()
     
379.         txtSearch.Focus()
     
380.     End Sub
     
381. 
     
382.     ' / --------------------------------------------------------------------------------
     
383.     ' / หากติ๊กเครื่องหมายถูกคือการขายแบบแยกจำนวนสินค้า
     
384.     ' / --------------------------------------------------------------------------------
     
385.     Private Sub chkSeparateQty_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkSeparateQty.CheckedChanged
     
386.         If chkSeparateQty.Checked Then
     
387.             '// ปรับจำนวนให้เหลือ 1
     
388.             'For i As Integer = 0 To dgvData.RowCount - 1
     
389.             'dgvData.Rows(i).Cells(3).Value = "1"
     
390.             'Next
     
391.             '// หรือลบรายการทั้งหมดออกไปก่อน
     
392.             dgvData.Rows.Clear()
     
393.             Call CalSumTotal()
     
394.             dgvData.Columns("Quantity").ReadOnly = True
     
395.             dgvData.Columns("Quantity").DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
396.         Else
     
397.             '// ลบรายการทั้งหมดออกไปก่อน
     
398.             dgvData.Rows.Clear()
     
399.             '/ สามารถคีย์จำนวนรายการได้
     
400.             dgvData.Columns("Quantity").ReadOnly = False
     
401.             dgvData.Columns("Quantity").DefaultCellStyle.BackColor = Color.White
     
402.         End If
     
403.         txtSearch.Focus()
     
404.     End Sub
     
405. 
     
406.     Private Sub frmPosDetail_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
407.         Me.Dispose()
     
408.         GC.SuppressFinalize(Me)
     
409.         Application.Exit()
     
410.     End Sub
     
411. 
     
412.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
413.         Me.Close()
     
414.     End Sub

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

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