[VB.NET] แจกฟรีโค้ดงานต้นแบบจำลองการขายเบอเกอร์และเครื่องดื่ม

thongkorn

ที่ต้องตั้งชื่อว่า งานต้นแบบจำลองการขาย ก็เพราะว่าแอดมินนำเสนอวิธีการออกแบบโปรแกรมด้วยการจำลองข้อมูลตัวอย่างขึ้นมาก่อน โดยที่ยังไม่ได้ออกแบบตารางข้อมูลแต่อย่างใด หากท่านที่พึ่งเข้ามาอ่านต้องย้อนกลับไปดูในเรื่อง แจกฟรีโค้ดต้นฉบับ โปรแกรมต้นแบบร้านทองก้อนเบอเกอร์แดนซ์ ซึ่งจะทำให้เรามองออกว่าควรจะออกแบบฟิลด์ข้อมูลรายการอาหาร/เครื่องดื่มอะไรบ้าง พอมาถึงโค้ดชุดนี้แอดมินจะดึงข้อมูลจากตารางอาหาร/เครื่องดื่ม เพื่อมาทำการสร้างปุ่มรายการในแบบไดนามิคตามจำนวนรายการ ให้ปรากฏอยู่บนหน้าจอภาพ จากนั้นก็คลิ๊กทำการขายออกไป โดยรายการอาหาร/เครื่องดื่มจะไปปรากฏอยู่ในตารางกริด หากเป็นการเลือกรายการเดิม จะทำการเพิ่มจำนวนเข้าไป แต่หากเป็นรายการที่ยังไม่ได้ถูกเลือก ก็จะเพิ่มรายการใหม่เข้าไปยังแถวรายการของตารางกริด สุดท้ายคือการคิดเงิน ซึ่งแอดมินได้ทำการแจกโค้ดเอาไว้ล่วงหน้ามาก่อนแล้ว ฟอร์มการชำระเงินด้วยการสร้างปุ่มคำสั่ง (Button) แบบไดนามิค  ...

โค้ดในชุดนี้ แอดมินมีเจตนาที่จะสื่อความหมายเอาไว้ให้เห็นว่า เรานำเอาผลลัพธ์ที่ได้มาทำการออกแบบและจัดเก็บข้อมูลตารางการขายอาหาร/เครื่องดื่มได้อย่างไรบ้าง ว่าง่ายๆคือนำเอาข้อมูลเอ้าพุทย้อนกลับมาคิดเป็นอินพุทนั่นเอง ...

มาดูโค้ดในส่วนที่สำคัญ ...
การ Query จำนวนปุ่มคำสั่งมาจากจำนวนของรายการอาหาร/เครื่องดื่มในแบบไดนามิค (ทำตัวอย่างเอาไว้ให้ 2 กลุ่ม)

1.         ' / ---------------------------------------------------------------
   
2.         ' / การใช้งานจริง จะต้องค้นหาจำนวนของกลุ่มสินค้าเข้ามาก่อน
   
3.         ' / เพื่อกำหนดจำนวน TabControl ได้
   
4.         ' / ---------------------------------------------------------------
   
5.         ' / ใส่ Panel ลงบนฟอร์ม
   
6.         ' / Create a tabpage
   
7.         Dim tabPageRef As New TabPage
   
8.         ' / Set the tabpage to be your desired tab
   
9.         tabPageRef = TabControl1.TabPages(0)
   
10.         '// Create Panel
    
11.         With pn1
    
12.             .Location = New System.Drawing.Point(1, 1)
    
13.             .Size = New System.Drawing.Size(TabControl1.Width - 10, TabControl1.Height - 30)
    
14.             .BackColor = Color.Moccasin
    
15.             .AutoScroll = True
    
16.             .Anchor = AnchorStyles.Bottom + AnchorStyles.Top
    
17.         End With
    
18.         'Add the panel
    
19.         tabPageRef.Controls.Add(pn1)
    
20.         strSQL = _
    
21.             " SELECT Food.FoodPK, Food.FoodID, Food.FoodName, Food.PriceCash, Food.PictureFood, Food.CategoryFK" & _
    
22.             " FROM(Food) " & _
    
23.             " WHERE Food.CategoryFK = 2 " & _
    
24.             " ORDER BY FoodPK "
    
25.         '// สร้างปุ่ม (Button) ลงใน Panel (จำนวนหลัก, รายการ, Panel)
    
26.         Call AddButtonsToForm(3, strSQL, pn1)
    
27. 
    
28.         '// New Panel
    
29.         'set the tabpage to be your desired tab
    
30.         tabPageRef = TabControl1.TabPages(1)
    
31.         '// Create Panel
    
32.         With pn2
    
33.             .Location = New System.Drawing.Point(1, 1)
    
34.             .Size = New System.Drawing.Size(TabControl1.Width - 10, TabControl1.Height - 30)
    
35.             .BackColor = Color.Moccasin
    
36.             .AutoScroll = True
    
37.             .Anchor = AnchorStyles.Bottom + AnchorStyles.Top
    
38.         End With
    
39.         'add the panel
    
40.         tabPageRef.Controls.Add(pn2)
    
41.         strSQL = _
    
42.             " SELECT Food.FoodPK, Food.FoodID, Food.FoodName, Food.PriceCash, Food.PictureFood, Food.CategoryFK" & _
    
43.             " FROM(Food) " & _
    
44.             " WHERE Food.CategoryFK = 3 " & _
    
45.             " ORDER BY FoodPK "
    
46.         '// สร้างปุ่ม (Button) ลงใน Panel (จำนวนหลัก, รายการ, Panel)
    
47.         Call AddButtonsToForm(3, strSQL, pn2)

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

การสร้างปุ่มคำสั่งลงใน TabControl และ Panel ...    

1.     ' / ---------------------------------------------------------------
   
2.     '// เพิ่มปุ่มคำสั่ง (Button Control) แบบ Run Time
   
3.     Private Sub AddButtonsToForm(ByVal ColCount As Byte, ByVal sql As String, pn As Panel)
   
4.         Dim Buttons As New Dictionary(Of String, Button)
   
5.         Dim img As String
   
6.         Dim Rec As Integer = 0
   
7.         Try
   
8.             If Conn.State = ConnectionState.Closed Then Conn.Open()
   
9.             Cmd = New OleDbCommand(sql, Conn)
   
10.             DR = Cmd.ExecuteReader
    
11.             ' / Make sure Primary Key only one and not duplicate
    
12.             While DR.Read()
    
13.                 If DR.HasRows Then
    
14.                     Dim B As New Button
    
15.                     pn.Controls.Add(B)
    
16.                     With B
    
17.                         .Height = 140
    
18.                         .Width = 140
    
19.                         .Left = (Rec Mod ColCount) * B.Width
    
20.                         .Top = (Rec \ ColCount) * B.Height
    
21.                         .Text = DR.Item("FoodName") & vbCrLf & Format(CDbl(DR.Item("PriceCash")), "#,##0.00") & "B."
    
22.                         Buttons.Add(B.Text, B)
    
23.                         '// นำค่า Primary Key ไปเก็บไว้ที่คุณสมบัติ Tag เมื่อกดปุ่มคำสั่งจะใช้ค่านี้ไปค้นหาจากฐานข้อมูล
    
24.                         .Tag = DR.Item("FoodPK")
    
25.                         '// อ่านค่ารูปภาพ และตรวจสอบการมีอยู่จริงของภาพด้วยฟังค์ชั่น GetImages
    
26.                         img = GetImages(DR.Item("PictureFood"))
    
27.                         '// ใส่ภาพลงไปในปุ่มคำสั่ง Button
    
28.                         .BackgroundImage = New System.Drawing.Bitmap(img)
    
29.                         '//
    
30.                         .Cursor = Cursors.Hand
    
31.                         .BackgroundImageLayout = ImageLayout.Stretch
    
32.                         .Font = New Font("Century Gothic", 14, FontStyle.Bold)
    
33.                         .ForeColor = Color.LightYellow
    
34.                         .TextImageRelation = TextImageRelation.ImageAboveText
    
35.                         .TextAlign = ContentAlignment.BottomCenter
    
36.                         .UseVisualStyleBackColor = True
    
37.                     End With
    
38.                     Rec += 1
    
39.                     '// Force events handler.
    
40.                     AddHandler B.Click, AddressOf ClickButton
    
41.                 End If
    
42.             End While
    
43.             DR.Close()
    
44.         Catch ex As Exception
    
45.             MessageBox.Show(ex.Message)
    
46.         End Try
    
47. 
    
48.     End Sub

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

โค้ดในการคลิ๊กที่ปุ่มคำสั่งเลือกรายการอาหาร/เครื่องดื่ม หากมีรายการเดิมจะทำการเพิ่มจำนวน หากไม่มีต้องค้นรายการมาเพิ่มลงในตารางกริด

1.     ' / ---------------------------------------------------------------
   
2.     ' / เพิ่มรายการแถวใหม่ (UnBound Data)
   
3.     Private Sub AddRow(ByVal PK As Integer) ', ByVal Description As String, ByVal UnitPrice As Double)
   
4.         '// ใช้เพื่อค้นหาข้อมูลในตารางกริดก่อน
   
5.         Dim blnExist As Boolean = False
   
6.         '// ตรวจสอบว่า Primary Key มีอยู่ในตารางกริดหรือไม่ (หากมีให้ +เพิ่ม, หากไม่มีค่อยไปค้นหาข้อมูล)
   
7.         For Rec As Integer = 0 To dgvData.RowCount - 1
   
8.             ' / หากพบ Primary Key ในหลัก 0 มาตรงกันกับค่าในแถวของตารางกริด
   
9.             If dgvData.Rows(Rec).Cells(0).Value = PK Then
   
10.                 ' / ให้บวกจำนวนที่เลือกเพิ่มขึ้นอีก 1 (Quantity = Quantity + 1)
    
11.                 dgvData.Rows(Rec).Cells(3).Value = dgvData.Rows(Rec).Cells(3).Value + 1
    
12.                 lblLastPrice.Text = "Last Price: " & Format(CDbl(dgvData.Rows(Rec).Cells(2).Value), "#,##0.00")
    
13.                 '// เจอข้อมูลเดิม
    
14.                 blnExist = True
    
15.                 '// ออกจากลูปไปเลย เพื่อไม่ให้เสียเวลา
    
16.                 Exit For
    
17.             End If
    
18.         Next
    
19.         '// ไม่พบข้อมูลในตารางกริด ก็ทำการเรียกจากตารางข้อมูลเข้ามาแสดงผล
    
20.         If Not blnExist Then
    
21.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
22.             strSQL = _
    
23.                 " SELECT Food.FoodPK, Food.FoodID, Food.FoodName, Food.PriceCash, Food.PictureFood, Food.CategoryFK" & _
    
24.                 " FROM(Food) " & _
    
25.                 " WHERE Food.FoodPK = " & PK & _
    
26.                 " ORDER BY FoodPK "
    
27.             Cmd = New OleDbCommand
    
28.             Cmd.Connection = Conn
    
29.             Cmd.CommandText = strSQL
    
30.             DR = Cmd.ExecuteReader
    
31.             DR.Read()
    
32.             '// เพิ่มรายการแถวสินค้าเข้าไปใหม่ Primary Key (ถูกซ่อน), ชื่อสินค้า, ราคาขาย, จำนวน = 1
    
33.             Dim row As String() = New String() {PK, DR.Item("FoodName").ToString, Format(CDbl(DR.Item("PriceCash").ToString), "#,##0.00"), "1"}
    
34.             dgvData.Rows.Add(row)
    
35.         End If
    
36.         '// หาจำนวนเงินรวมใหม่
    
37.         Call CalAmount()
    
38.         '// เป็นสินค้าตัวใหม่ที่ถูกเพิ่มเข้ามาให้อยู่ในแถว แสดงราคาสินค้าล่าสุด
    
39.         If Not blnExist Then
    
40.             lblLastPrice.Text = "Last Price: " & Format(CDbl(DR.Item("PriceCash").ToString), "#,##0.00")
    
41.         End If
    
42.         DR.Close()
    
43.         '// โฟกัสไปที่ DataGridView แล้วย้ายไปแถวล่าสุด
    
44.         dgvData.Focus()
    
45.         SendKeys.Send("^{END}")
    
46.     End Sub

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

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

1. ' / ---------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / More Info: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Prototype of Burger Order System V2.
   
10. ' / Microsoft Visual Basic .NET (2010) + MS Access 2007+
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / ---------------------------------------------------------------
    
15. Imports System.Data.OleDb
    
16. 
    
17. Public Class frmMainOrder
    
18. 
    
19.     Private pn1 As New Panel()
    
20.     Private pn2 As New Panel
    
21.     '// รวมจำนวนเงิน
    
22.     Dim Amount As Double
    
23. 
    
24.     Private Sub frmMainOrder_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
25.         Select Case e.KeyCode
    
26.             Case Keys.F8
    
27.                 btnPayment_Click(sender, e)
    
28.             Case Keys.F10
    
29.                 Me.Close()
    
30.         End Select
    
31.     End Sub
    
32. 
    
33.     ' / ---------------------------------------------------------------
    
34.     Private Sub frmMainOrder_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
35.         '// Cennect MS Access DB.
    
36.         Conn = MyDBModule()
    
37.         '//
    
38.         Amount = "0.00"
    
39.         Call InitGrid()
    
40. 
    
41.         ' / ---------------------------------------------------------------
    
42.         ' / การใช้งานจริง จะต้องค้นหาจำนวนของกลุ่มสินค้าเข้ามาก่อน
    
43.         ' / เพื่อกำหนดจำนวน TabControl ได้
    
44.         ' / ---------------------------------------------------------------
    
45.         ' / ใส่ Panel ลงบนฟอร์ม
    
46.         ' / Create a tabpage
    
47.         Dim tabPageRef As New TabPage
    
48.         ' / Set the tabpage to be your desired tab
    
49.         tabPageRef = TabControl1.TabPages(0)
    
50.         '// Create Panel
    
51.         With pn1
    
52.             .Location = New System.Drawing.Point(1, 1)
    
53.             .Size = New System.Drawing.Size(TabControl1.Width - 10, TabControl1.Height - 30)
    
54.             .BackColor = Color.Moccasin
    
55.             .AutoScroll = True
    
56.             .Anchor = AnchorStyles.Bottom + AnchorStyles.Top
    
57.         End With
    
58.         'Add the panel
    
59.         tabPageRef.Controls.Add(pn1)
    
60.         strSQL = _
    
61.             " SELECT Food.FoodPK, Food.FoodID, Food.FoodName, Food.PriceCash, Food.PictureFood, Food.CategoryFK" & _
    
62.             " FROM(Food) " & _
    
63.             " WHERE Food.CategoryFK = 2 " & _
    
64.             " ORDER BY FoodPK "
    
65.         '// สร้างปุ่ม (Button) ลงใน Panel (จำนวนหลัก, รายการ, Panel)
    
66.         Call AddButtonsToForm(3, strSQL, pn1)
    
67. 
    
68.         '// New Panel
    
69.         'set the tabpage to be your desired tab
    
70.         tabPageRef = TabControl1.TabPages(1)
    
71.         '// Create Panel
    
72.         With pn2
    
73.             .Location = New System.Drawing.Point(1, 1)
    
74.             .Size = New System.Drawing.Size(TabControl1.Width - 10, TabControl1.Height - 30)
    
75.             .BackColor = Color.Moccasin
    
76.             .AutoScroll = True
    
77.             .Anchor = AnchorStyles.Bottom + AnchorStyles.Top
    
78.         End With
    
79.         'add the panel
    
80.         tabPageRef.Controls.Add(pn2)
    
81.         strSQL = _
    
82.             " SELECT Food.FoodPK, Food.FoodID, Food.FoodName, Food.PriceCash, Food.PictureFood, Food.CategoryFK" & _
    
83.             " FROM(Food) " & _
    
84.             " WHERE Food.CategoryFK = 3 " & _
    
85.             " ORDER BY FoodPK "
    
86.         '// สร้างปุ่ม (Button) ลงใน Panel (จำนวนหลัก, รายการ, Panel)
    
87.         Call AddButtonsToForm(3, strSQL, pn2)
    
88. 
    
89.     End Sub
    
90. 
    
91.     ' / ---------------------------------------------------------------
    
92.     '// เพิ่มปุ่มคำสั่ง (Button Control) แบบ Run Time
    
93.     Private Sub AddButtonsToForm(ByVal ColCount As Byte, ByVal sql As String, pn As Panel)
    
94.         Dim Buttons As New Dictionary(Of String, Button)
    
95.         Dim img As String
    
96.         Dim Rec As Integer = 0
    
97.         Try
    
98.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
99.             Cmd = New OleDbCommand(sql, Conn)
    
100.             DR = Cmd.ExecuteReader
     
101.             ' / Make sure Primary Key only one and not duplicate
     
102.             While DR.Read()
     
103.                 If DR.HasRows Then
     
104.                     Dim B As New Button
     
105.                     pn.Controls.Add(B)
     
106.                     With B
     
107.                         .Height = 140
     
108.                         .Width = 140
     
109.                         .Left = (Rec Mod ColCount) * B.Width
     
110.                         .Top = (Rec \ ColCount) * B.Height
     
111.                         .Text = DR.Item("FoodName") & vbCrLf & Format(CDbl(DR.Item("PriceCash")), "#,##0.00") & "B."
     
112.                         Buttons.Add(B.Text, B)
     
113.                         '// นำค่า Primary Key ไปเก็บไว้ที่คุณสมบัติ Tag เมื่อกดปุ่มคำสั่งจะใช้ค่านี้ไปค้นหาจากฐานข้อมูล
     
114.                         .Tag = DR.Item("FoodPK")
     
115.                         '// อ่านค่ารูปภาพ และตรวจสอบการมีอยู่จริงของภาพด้วยฟังค์ชั่น GetImages
     
116.                         img = GetImages(DR.Item("PictureFood"))
     
117.                         '// ใส่ภาพลงไปในปุ่มคำสั่ง Button
     
118.                         .BackgroundImage = New System.Drawing.Bitmap(img)
     
119.                         '//
     
120.                         .Cursor = Cursors.Hand
     
121.                         .BackgroundImageLayout = ImageLayout.Stretch
     
122.                         .Font = New Font("Century Gothic", 14, FontStyle.Bold)
     
123.                         .ForeColor = Color.LightYellow
     
124.                         .TextImageRelation = TextImageRelation.ImageAboveText
     
125.                         .TextAlign = ContentAlignment.BottomCenter
     
126.                         .UseVisualStyleBackColor = True
     
127.                     End With
     
128.                     Rec += 1
     
129.                     '// Force events handler.
     
130.                     AddHandler B.Click, AddressOf ClickButton
     
131.                 End If
     
132.             End While
     
133.             DR.Close()
     
134.         Catch ex As Exception
     
135.             MessageBox.Show(ex.Message)
     
136.         End Try
     
137. 
     
138.     End Sub
     
139. 
     
140.     Private Function GetImages(ByVal picData As String) As String
     
141.         '// Show picture in cell.
     
142.         If picData <> "" Then
     
143.             '// First, before load data into DataGrid and check File exists or not?
     
144.             If Dir(strPathImages & picData) = "" Then
     
145.                 GetImages = strPathImages & "FoodStuff.png"
     
146.             Else
     
147.                 GetImages = strPathImages & picData
     
148.             End If
     
149. 
     
150.             '// ไม่มีข้อมูลภาพ
     
151.         Else
     
152.             GetImages = strPathImages & "FoodStuff.png"
     
153.         End If
     
154.     End Function
     
155. 
     
156.     '// Click Button event, get the text of button
     
157.     Public Sub ClickButton(ByVal sender As Object, ByVal e As System.EventArgs)
     
158.         Dim btn As Button = sender
     
159.         'MessageBox.Show("คุณคลิ๊ก [" + btn.Text + "]" & vbCrLf & "Tag=" & btn.Tag & " จะเป็นค่า Primary Key")
     
160.         Call AddRow(btn.Tag)
     
161.     End Sub
     
162. 
     
163.     ' / ---------------------------------------------------------------
     
164.     ' / เพิ่มรายการแถวใหม่ (UnBound Data)
     
165.     Private Sub AddRow(ByVal PK As Integer) ', ByVal Description As String, ByVal UnitPrice As Double)
     
166.         '// ใช้เพื่อค้นหาข้อมูลในตารางกริดก่อน
     
167.         Dim blnExist As Boolean = False
     
168.         '// ตรวจสอบว่า Primary Key มีอยู่ในตารางกริดหรือไม่ (หากมีให้ +เพิ่ม, หากไม่มีค่อยไปค้นหาข้อมูล)
     
169.         For Rec As Integer = 0 To dgvData.RowCount - 1
     
170.             ' / หากพบ Primary Key ในหลัก 0 มาตรงกันกับค่าในแถวของตารางกริด
     
171.             If dgvData.Rows(Rec).Cells(0).Value = PK Then
     
172.                 ' / ให้บวกจำนวนที่เลือกเพิ่มขึ้นอีก 1 (Quantity = Quantity + 1)
     
173.                 dgvData.Rows(Rec).Cells(3).Value = dgvData.Rows(Rec).Cells(3).Value + 1
     
174.                 lblLastPrice.Text = "Last Price: " & Format(CDbl(dgvData.Rows(Rec).Cells(2).Value), "#,##0.00")
     
175.                 '// เจอข้อมูลเดิม
     
176.                 blnExist = True
     
177.                 '// ออกจากลูปไปเลย เพื่อไม่ให้เสียเวลา
     
178.                 Exit For
     
179.             End If
     
180.         Next
     
181.         '// ไม่พบข้อมูลในตารางกริด ก็ทำการเรียกจากตารางข้อมูลเข้ามาแสดงผล
     
182.         If Not blnExist Then
     
183.             If Conn.State = ConnectionState.Closed Then Conn.Open()
     
184.             strSQL = _
     
185.                 " SELECT Food.FoodPK, Food.FoodID, Food.FoodName, Food.PriceCash, Food.PictureFood, Food.CategoryFK" & _
     
186.                 " FROM(Food) " & _
     
187.                 " WHERE Food.FoodPK = " & PK & _
     
188.                 " ORDER BY FoodPK "
     
189.             Cmd = New OleDbCommand
     
190.             Cmd.Connection = Conn
     
191.             Cmd.CommandText = strSQL
     
192.             DR = Cmd.ExecuteReader
     
193.             DR.Read()
     
194.             '// เพิ่มรายการแถวสินค้าเข้าไปใหม่ Primary Key (ถูกซ่อน), ชื่อสินค้า, ราคาขาย, จำนวน = 1
     
195.             Dim row As String() = New String() {PK, DR.Item("FoodName").ToString, Format(CDbl(DR.Item("PriceCash").ToString), "#,##0.00"), "1"}
     
196.             dgvData.Rows.Add(row)
     
197.         End If
     
198.         '// หาจำนวนเงินรวมใหม่
     
199.         Call CalAmount()
     
200.         '// เป็นสินค้าตัวใหม่ที่ถูกเพิ่มเข้ามาให้อยู่ในแถว แสดงราคาสินค้าล่าสุด
     
201.         If Not blnExist Then
     
202.             lblLastPrice.Text = "Last Price: " & Format(CDbl(DR.Item("PriceCash").ToString), "#,##0.00")
     
203.         End If
     
204.         DR.Close()
     
205.         '// โฟกัสไปที่ DataGridView แล้วย้ายไปแถวล่าสุด
     
206.         dgvData.Focus()
     
207.         SendKeys.Send("^{END}")
     
208.     End Sub
     
209. 
     
210.     Private Sub CalAmount()
     
211.         '// หาจำนวนเงินรวมใหม่
     
212.         Amount = 0
     
213.         For i = 0 To dgvData.RowCount - 1
     
214.             Amount = Amount + (CDbl(dgvData.Rows(i).Cells(2).Value) * CInt(dgvData.Rows(i).Cells(3).Value))
     
215.         Next
     
216.         '// แสดงผลราคารวม
     
217.         lblAmount.Text = "Total: " & Format(Amount, "#,##0.00")
     
218.     End Sub
     
219. 
     
220.     ' / ---------------------------------------------------------------
     
221.     '// Initialize DataGridView @Run Time
     
222.     Private Sub InitGrid()
     
223.         '// ตั้งค่าจำนวนหลัก (Columns)
     
224.         With dgvData
     
225.             .Columns.Add("FoodPK", "FoodPK")
     
226.             .Columns.Add("FoodName", "รายการ")
     
227.             .Columns.Add("PriceCash", "ราคา")
     
228.             .Columns.Add("Quantity", "จำนวน")
     
229.             '//
     
230.             .Columns(0).Visible = False
     
231.             '.Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable
     
232.             '// UnitPrice
     
233.             With .Columns(2)
     
234.                 .ValueType = GetType(Decimal)
     
235.                 .DefaultCellStyle.Format = "N2"
     
236.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
237.             End With
     
238.             '// Quantity
     
239.             With .Columns(3)
     
240.                 .ValueType = GetType(Double)
     
241.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
242.             End With
     
243.         End With
     
244.         '//
     
245.         With dgvData
     
246.             .RowHeadersVisible = False
     
247.             .AllowUserToAddRows = False
     
248.             .AllowUserToDeleteRows = False
     
249.             .AllowUserToResizeRows = False
     
250.             .MultiSelect = False
     
251.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
252.             .ReadOnly = True
     
253.             '//
     
254.             .Font = New Font("Century Gothic", 14)
     
255.             .RowTemplate.Height = 40
     
256.             '.RowTemplate.MinimumHeight = 32
     
257.             ' Autosize Column
     
258.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
259.             .AutoResizeColumns()
     
260.             '// Even-Odd Color
     
261.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
262.             ' Adjust Header Styles
     
263.             With .ColumnHeadersDefaultCellStyle
     
264.                 .BackColor = Color.Navy
     
265.                 .ForeColor = Color.Black
     
266.                 .Font = New Font("Century Gothic", 16, FontStyle.Bold)
     
267.                 .WrapMode = DataGridViewTriState.False
     
268.             End With
     
269.         End With
     
270. 
     
271.     End Sub
     
272. 
     
273.     ' / ---------------------------------------------------------------
     
274.     Private Sub btnRemove_Click(sender As System.Object, e As System.EventArgs) Handles btnRemove.Click
     
275.         If dgvData.RowCount <= 0 Then Exit Sub
     
276.         dgvData.Focus()
     
277.         For Rec As Integer = 0 To dgvData.RowCount - 1
     
278.             '// ใช้หลัก PK เป็นกุญแจหลักในการอ้างอิง
     
279.             Dim PK As Integer = dgvData.CurrentRow.Cells(0).Value
     
280.             ' / หากพบ Primary Key ในหลัก 0 มาตรงกันกับค่าในแถวของตารางกริด
     
281.             If dgvData.Rows(Rec).Cells(0).Value = PK Then
     
282.                 '// หากพบข้อมูลเดิม แต่มีจำนวน = 1 ก็ลบออกไปได้เลย
     
283.                 If dgvData.Rows(Rec).Cells(3).Value = 1 Then
     
284.                     dgvData.Rows.Remove(dgvData.CurrentRow)
     
285.                     dgvData.Refresh()
     
286.                     '// ไม่ต้องไปลบอีกรอบ
     
287.                     Exit For
     
288.                 Else
     
289.                     ' / ให้ลบจำนวนลง 1 (Quantity = Quantity - 1)
     
290.                     dgvData.Rows(Rec).Cells(3).Value = dgvData.Rows(Rec).Cells(3).Value - 1
     
291.                     Exit For
     
292.                 End If
     
293.             End If
     
294.         Next
     
295.         '// รวมจำนวนเงิน
     
296.         Call CalAmount()
     
297.     End Sub
     
298. 
     
299.     ' / ---------------------------------------------------------------
     
300.     ' / คิดเงิน
     
301.     Private Sub btnPayment_Click(sender As System.Object, e As System.EventArgs) Handles btnPayment.Click
     
302.         If dgvData.RowCount <= 0 Then Exit Sub
     
303.         frmPayment.ShowDialog()
     
304.     End Sub
     
305. 
     
306.     Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
     
307.         dgvData.Rows.Clear()
     
308.         Amount = "0.00"
     
309.     End Sub
     
310. 
     
311.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
312.         Me.Close()
     
313.     End Sub
     
314. 
     
315.     Private Sub frmMainOrder_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
316.         Me.Dispose()
     
317.         If Conn.State = ConnectionState.Open Then Conn.Close()
     
318.         Application.Exit()
     
319.     End Sub
     
320. 
     
321. End Class

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

ฟอร์มการคิดเงิน (frmPayment.vb)

1. ' / ---------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / More Info: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Payment with Button Array.
   
10. ' / Microsoft Visual Basic .NET (2010)
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / ---------------------------------------------------------------
    
15. Public Class frmPayment
    
16. 
    
17.     Private Sub frmPayment_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
18.         Select Case e.KeyCode
    
19.             Case Keys.F8
    
20.                 btnCash_Click(sender, e)
    
21.             Case Keys.F10
    
22.                 Me.Close()
    
23.         End Select
    
24.     End Sub
    
25. 
    
26.     Private Sub frmPayment_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
27.         '// สร้างปุ่ม 0 - 9
    
28.         Call AddButtons(3, 9)
    
29.         '//
    
30.         txtAmount.Text = Format(CDbl(Mid(frmMainOrder.lblAmount.Text, 7, Len(frmMainOrder.lblAmount.Text) - 6)), "#,##")
    
31.         txtCash.Text = "0"
    
32.         txtChange.Text = "0.00"
    
33.         '//
    
34.         txtCash.Focus()
    
35.     End Sub
    
36. 
    
37.     '// เพิ่มปุ่มคำสั่ง (Button Control)
    
38.     Private Sub AddButtons(ByVal ColCount As Byte, ByVal MaxBtn As Byte)
    
39.         Dim Buttons As New Dictionary(Of String, Button)
    
40.         For i As Integer = 0 To MaxBtn - 1
    
41.             Dim B As New Button
    
42.             Me.Panel1.Controls.Add(B)
    
43.             Me.Panel1.Width = ColCount * 100
    
44.             With B
    
45.                 .Height = 60
    
46.                 .Width = 66
    
47.                 .Left = (i Mod ColCount) * B.Width
    
48.                 .Top = (i \ ColCount) * B.Height
    
49.                 .Text = i + 1
    
50.                 Buttons.Add(B.Text, B)
    
51.                 .Tag = i + 1
    
52.                 .Cursor = Cursors.Hand
    
53.                 .Font = New Font("Tahoma", 14, FontStyle.Bold)
    
54.             End With
    
55.             '// Force events handler.
    
56.             AddHandler B.Click, AddressOf ClickButton
    
57.         Next
    
58.     End Sub
    
59. 
    
60.     '// Click Button event, get the text of button
    
61.     Public Sub ClickButton(ByVal sender As Object, ByVal e As System.EventArgs)
    
62.         Dim btn As Button = sender
    
63.         'MessageBox.Show("คุณคลิ๊ก [" + btn.Text + "]" & vbCrLf & "Tag=" & btn.Tag)
    
64.         txtCash.Text = CDbl(txtCash.Text + btn.Text)
    
65.         Call CalSum()
    
66.     End Sub
    
67. 
    
68.     ' / ---------------------------------------------------------------
    
69.     Private Sub btnCash_Click(sender As System.Object, e As System.EventArgs) Handles btnCash.Click
    
70.         If txtCash.Text = "" Or Len(txtCash.Text) = 0 Or Val(txtCash.Text) = 0 Then
    
71.             txtCash.Text = 0
    
72.             txtChange.Text = "0.00"
    
73.             txtCash.Focus()
    
74.             Exit Sub
    
75.         End If
    
76.         '// ตรวจสอบยอดเงิน
    
77.         If CDbl(txtCash.Text) - CDbl(txtAmount.Text) < 0 Then
    
78.             MessageBox.Show("จำนวนเงินยังไม่ครบ กรุณาแก้ไขข้อมูลใหม่ด้วย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
79.             txtCash.Focus()
    
80.         Else
    
81.             MessageBox.Show("ทำรายการเสร็จสิ้นเรียบร้อย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
82.             '// สั่งเคลียร์รายการข้ามฟอร์มมาเลย
    
83.             With frmMainOrder
    
84.                 .lblAmount.Text = "0.00"
    
85.                 .lblLastPrice.Text = "0.00"
    
86.                 .dgvData.Rows.Clear()
    
87.             End With
    
88.             Me.Close()
    
89.         End If
    
90.     End Sub
    
91. 
    
92.     Private Sub txtCash_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCash.KeyPress
    
93.         '// รับค่าเฉพาะตัวเลขเท่านั้น
    
94.         e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
95.         txtCash.Text = CDbl(txtCash.Text)
    
96.     End Sub
    
97. 
    
98.     Private Sub txtCash_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCash.TextChanged
    
99.         Call CalSum()
    
100.     End Sub
     
101. 
     
102.     Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
     
103.         txtCash.Text = "0"
     
104.         txtChange.Text = "0.00"
     
105.     End Sub
     
106. 
     
107.     ' / ---------------------------------------------------------------
     
108.     Private Sub CalSum()
     
109.         '/ Trap Error
     
110.         If Trim(txtCash.Text) = "" Or Len(Trim(txtCash.Text)) = 0 Then
     
111.             txtCash.Text = 0
     
112.             txtChange.Text = "0.00"
     
113.             Exit Sub
     
114.         End If
     
115.         '//
     
116.         Dim dChange As Double = CDbl(txtCash.Text) - CDbl(txtAmount.Text)
     
117.         txtChange.Text = dChange
     
118.         If CDbl(dChange) < 0 Then
     
119.             txtChange.ForeColor = Color.Red
     
120.         Else
     
121.             txtChange.ForeColor = Color.Blue
     
122.         End If
     
123.         txtCash.Focus()
     
124.     End Sub
     
125. 
     
126.     Private Sub btn2Zero_Click(sender As System.Object, e As System.EventArgs) Handles btn2Zero.Click
     
127.         txtCash.Text = CDbl(txtCash.Text + btn2Zero.Text)
     
128.         Call CalSum()
     
129.     End Sub
     
130. 
     
131.     Private Sub btn1Zero_Click(sender As System.Object, e As System.EventArgs) Handles btn1Zero.Click
     
132.         txtCash.Text = CDbl(txtCash.Text + btn1Zero.Text)
     
133.         Call CalSum()
     
134.     End Sub
     
135. 
     
136.     Private Sub txtAmount_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtAmount.KeyPress
     
137.         e.Handled = True
     
138.     End Sub
     
139. 
     
140.     Private Sub txtChange_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtChange.KeyPress
     
141.         e.Handled = True
     
142.     End Sub
     
143. 
     
144.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
145.         Me.Close()
     
146.     End Sub
     
147. End Class

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

โมดูลหากิน ... modDataBase.vb

1. Imports System.Data.OleDb
   
2. Module modDataBase
   
3. 
   
4.     Public Conn As OleDbConnection
   
5.     Public Cmd As OleDbCommand
   
6.     Public DS As DataSet
   
7.     Public DR As OleDbDataReader
   
8.     Public DA As OleDbDataAdapter
   
9.     Public DT As DataTable
   
10.     Public strSQL As String '// Major SQL
    
11.     Public strStmt As String
    
12.     Public strPathImages As String = MyPath(Application.StartupPath) & "Images"
    
13. 
    
14.     Public Function MyDBModule() As OleDb.OleDbConnection
    
15.         Return New OleDb.OleDbConnection( _
    
16.             "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    
17.             MyPath(Application.StartupPath) & "data" & "dbFood.accdb;Persist Security Info=True")
    
18.     End Function
    
19. 
    
20. End Module

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

ฟังค์ชั่นหากิน ... modFunction

1. Module modFunction
   
2. 
   
3.     ' / --------------------------------------------------------------------------------
   
4.     ' / Get my project path
   
5.     ' / AppPath = C:\My Project\bin\debug
   
6.     ' / Replace "\bin\debug" with ""
   
7.     ' / Return : C:\My Project\
   
8.     Function MyPath(ByVal AppPath As String) As String
   
9.         '/ MessageBox.Show(AppPath);
   
10.         AppPath = AppPath.ToLower()
    
11.         '/ Return Value
    
12.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
13.         '// If not found folder then put the \ (BackSlash) at the end.
    
14.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
15.     End Function
    
16. 
    
17.     ' / --------------------------------------------------------------------------------
    
18.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
    
19.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
20.         Select Case index
    
21.             Case 48 To 57 ' เลข 0 - 9
    
22.                 CheckDigitOnly = False
    
23.             Case 8, 13 ' Backspace = 8, Enter = 13
    
24.                 CheckDigitOnly = False
    
25.             Case Else
    
26.                 CheckDigitOnly = True
    
27.         End Select
    
28.     End Function
    
29. End Module

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

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