[VB.NET] แจกฟรีโค้ดต้นฉบับ โปรแกรมต้นแบบร้านทองก้อนเบอเกอร์แดนซ์

thongkorn

มีคำถามขอคำปรึกษาหลากหลายมากมายจากน้องๆนักศึกษา ที่กำลังคิดหา โปรเจคจบที่เกี่ยวข้องกับระบบฐานข้อมูลทำ ส่วนใหญ่ก็วนๆเวียนๆแต่เรื่องซ้ำๆกันไปมา เช่น ขายสินค้าเงินสด เงินเชื่อ สหกรณ์ ร้านขายกาแฟ เบเกอรี่ ฯลฯ วันนี้ก็เลยแนะนำโปรเจคที่คล้ายๆกัน แต่เป็นการขายเบอเกอร์แทนล่ะกันครับ ...


สำหรับน้องๆมือใหม่คืออย่างนี้น่ะครับ ไม่ว่าเราคิดที่จะจับงานชิ้นไหนขึ้นมาทำก็ตาม อย่างแรกเมื่อเราตีกรอบ (Scope) ในงานนั้นๆแล้ว ต่อไปเราก็ควรจะต้องแบ่งแยกย่อยงานต่างๆออกเป็นส่วนๆ แล้วลองเขียนโค้ดขึ้นมาทดสอบก่อน (ก็พวกหลักการทางทฤษฎีที่ร่ำเรียนมานั่นแหละครับ) ...

ตัวอย่างงานนี้ แอดมินยังไม่มีความจำเป็นใดๆที่จะต้องไปแตะฐานข้อมูล แต่จำลองระบบการขายหน้าร้านขึ้นมาก่อน ด้วยการสร้างอินเทอร์เฟซที่ต้องติดต่อกับผู้ใช้งานในแบบคงที่ หรือ Static โดยพยายามเอาให้ใกล้เคียงกับงานจริงๆมากที่สุด และสังเกตด้วยว่า เราจะเอาข้อมูลตัวรายการสินค้าอะไรบ้างมาใส่ในตารางกริด จากตัวอย่างคือ Primary Key, Description และ UnitPrice พวกนี้แหละก็คือส่วนของการออกแบบตารางข้อมูล พอเราทำไปทำมา ก็จะมองเห็นบางอย่างเกิดขึ้น อ้าว!!! เกิดมีการสั่งสินค้ารายการเดียวกันแต่มากกว่า 1 ชิ้นล่ะ เอ้อ!!! นั่นแหละคือเราต้องเพิ่มฟิลด์ (Field) ขึ้นมาใหม่อีกตัวคือ จำนวน (Quantity) คือมันจะไล่ไปทีละสเต็ปเอง ... พอลองทดสอบเฉพาะส่วนนี้เสร็จเรียบร้อยแล้ว ก็คิดต่ออีกซิครับ เราจะโหลดภาพ โหลดปุ่มให้มาอยู่บนฟอร์ม ตามจำนวนรายการที่ต้องการได้อย่างไร ซึ่งนั่นก็คือการสร้าง Control เช่นปุ่มต่างๆในแบบ Dynamic ... นี่คือส่วนหนึ่งของการออกแบบ และแยกย่อยหั่นงานออกมา โดยที่ยังไม่ต้องไปว่าเรื่องของฐานข้อมูลเลย ...

โค้ดในส่วนของฟอร์มหลัก (frmMainOrder.vb)

1. Public Class frmMainOrder
   
2. 
   
3.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
   
4.         Me.Close()
   
5.     End Sub
   
6. 
   
7.     Private Sub frmMainOrder_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
   
8.         Me.Dispose()
   
9.         Application.Exit()
   
10.     End Sub
    
11. 
    
12.     Private Sub frmMainOrder_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
13.         Select Case e.KeyCode
    
14.             Case Keys.F8
    
15.                 btnPayment_Click(sender, e)
    
16.             Case Keys.F10
    
17.                 Me.Close()
    
18.         End Select
    
19.     End Sub
    
20. 
    
21.     ' / ---------------------------------------------------------------
    
22.     Private Sub frmMainOrder_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
23.         txtPrice.Text = "0.00"
    
24.         txtAmount.Text = "0.00"
    
25.         Call InitGrid()
    
26.     End Sub
    
27. 
    
28.     ' / ---------------------------------------------------------------
    
29.     '// Initialize DataGridView @Run Time
    
30.     Private Sub InitGrid()
    
31.         '// ตั้งค่าจำนวนหลัก (Columns)
    
32.         With dgvData
    
33.             .Columns.Add("PK", "PK")
    
34.             .Columns.Add("Description", "รายการที่สั่ง")
    
35.             .Columns.Add("Unit Price", "ราคา")
    
36.             '//
    
37.             .Columns(0).Visible = False
    
38.             With .Columns(2)
    
39.                 .ValueType = GetType(Decimal)
    
40.                 .DefaultCellStyle.Format = "N2"
    
41.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    
42.             End With
    
43.         End With
    
44.         '//
    
45.         With dgvData
    
46.             .RowHeadersVisible = False
    
47.             .AllowUserToAddRows = False
    
48.             .AllowUserToDeleteRows = False
    
49.             .AllowUserToResizeRows = False
    
50.             .MultiSelect = False
    
51.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
52.             .ReadOnly = True
    
53.             .Font = New Font("Tahoma", 11)
    
54.             .RowTemplate.Height = 40
    
55.             .RowTemplate.MinimumHeight = 32
    
56.             ' Autosize Column
    
57.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
58.             .AutoResizeColumns()
    
59.             '// Even-Odd Color
    
60.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
61.             ' Adjust Header Styles
    
62.             With .ColumnHeadersDefaultCellStyle
    
63.                 .BackColor = Color.Navy
    
64.                 .ForeColor = Color.Black
    
65.                 .Font = New Font("Tahoma", 12, FontStyle.Bold)
    
66.                 .WrapMode = DataGridViewTriState.False
    
67.             End With
    
68.         End With
    
69.     End Sub
    
70. 
    
71.     ' / ---------------------------------------------------------------
    
72.     Private Sub btnRemove_Click(sender As System.Object, e As System.EventArgs) Handles btnRemove.Click
    
73.         If dgvData.RowCount <= 0 Then Exit Sub
    
74.         dgvData.Focus()
    
75.         txtPrice.Text = "0.00"
    
76.         '// หาจำนวนเงินรวมใหม่
    
77.         Dim Amount As Double
    
78.         For i = 0 To dgvData.RowCount - 1
    
79.             Amount = Amount + CDbl(dgvData.Rows(i).Cells(2).Value)
    
80.         Next
    
81.         '// รวมจำนวนเงินทั้งหมด ลบออกจากแถวที่เลือก ด้วยราคาที่อยู่ในหลักที่ 3 (Index = 2)
    
82.         txtAmount.Text = Format(Amount - CDbl(dgvData.Item(2, dgvData.CurrentRow.Index).Value), "#,##0.00")
    
83.         '// แล้วค่อยลบแถวออกไป
    
84.         dgvData.Rows.Remove(dgvData.CurrentRow)
    
85.         dgvData.Refresh()
    
86.     End Sub
    
87. 
    
88.     ' / ---------------------------------------------------------------
    
89.     ' / เพิ่มรายการแถวใหม่ (UnBound Data)
    
90.     Private Sub AddRow(ByVal PK As Integer, ByVal Description As String, ByVal UnitPrice As Double)
    
91.         '// มองไปข้างหน้า ... กรณีที่ใช้ฐานข้อมูล เราจะต้องนำค่า PK มาใช้อ้างอิง ซึ่งข้อมูลแถวนี้จะมาจากการทำ Query
    
92.         Dim row As String() = New String() {PK, Description, Format(CDbl(UnitPrice), "#,##0.00")}
    
93.         dgvData.Rows.Add(row)
    
94.         '// โจทย์ให้นำไปคิดต่อคือ ...
    
95.         '// ต้องเช็คก่อนว่าค่า PK มันมีอยู่ในแถวแล้วหรือไม่ หากมีให้ "เพิ่มจำนวนขึ้น 1" ... จะทำอย่างไร?
    
96. 
    
97.         '// แสดงผลราคาสินค้าล่าสุด
    
98.         txtPrice.Text = UnitPrice
    
99.         '// หาจำนวนเงินรวมใหม่
    
100.         Dim Amount As Double
     
101.         For i = 0 To dgvData.RowCount - 1
     
102.             Amount = Amount + CDbl(dgvData.Rows(i).Cells(2).Value)
     
103.         Next
     
104.         txtAmount.Text = Format(Amount, "#,##0.00")
     
105.         '// โฟกัสไปที่ DataGridView แล้วย้ายไปแถวล่าสุด
     
106.         dgvData.Focus()
     
107.         SendKeys.Send("^{END}")
     
108.     End Sub
     
109. 
     
110.     Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
     
111.         dgvData.Rows.Clear()
     
112.         txtPrice.Text = "0.00"
     
113.         txtAmount.Text = "0.00"
     
114.     End Sub
     
115. 
     
116.     Private Sub btnBurger1_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger1.Click
     
117.         '// หากนำไปใช้งานจริง ข้อมูลของตัวสินค้าจะถูกเรียกมาจากตารางข้อมูล
     
118.         Call AddRow(1, btnBurger1.Text, "45.00")
     
119.     End Sub
     
120. 
     
121.     Private Sub btnBurger2_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger2.Click
     
122.         Call AddRow(2, btnBurger2.Text, "85.00")
     
123.     End Sub
     
124. 
     
125.     Private Sub btnBurger3_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger3.Click
     
126.         Call AddRow(3, btnBurger3.Text, "110.00")
     
127.     End Sub
     
128. 
     
129.     Private Sub btnBurger4_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger4.Click
     
130.         Call AddRow(4, btnBurger4.Text, "90.00")
     
131.     End Sub
     
132. 
     
133.     Private Sub btnBurger5_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger5.Click
     
134.         Call AddRow(5, btnBurger5.Text, "120.00")
     
135.     End Sub
     
136. 
     
137.     Private Sub btnBurger6_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger6.Click
     
138.         Call AddRow(6, btnBurger6.Text, "80.00")
     
139.     End Sub
     
140. 
     
141.     Private Sub btnBurger7_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger7.Click
     
142.         Call AddRow(7, btnBurger7.Text, "100.00")
     
143.     End Sub
     
144. 
     
145.     Private Sub btnSmall1_Click(sender As System.Object, e As System.EventArgs) Handles btnSmall1.Click
     
146.         '// Parameters - PK, Description, UnitPrice
     
147.         Call AddRow(101, btnSmall1.Text, "20.00")
     
148.     End Sub
     
149. 
     
150.     Private Sub btnSmall2_Click(sender As Object, e As System.EventArgs) Handles btnSmall2.Click
     
151.         Call AddRow(102, btnSmall2.Text, "20.00")
     
152.     End Sub
     
153. 
     
154.     Private Sub btnSmall3_Click(sender As Object, e As System.EventArgs) Handles btnSmall3.Click
     
155.         Call AddRow(103, btnSmall3.Text, "20.00")
     
156.     End Sub
     
157. 
     
158.     Private Sub btnMedium1_Click(sender As Object, e As System.EventArgs) Handles btnMedium1.Click
     
159.         Call AddRow(104, btnMedium1.Text, "40.00")
     
160.     End Sub
     
161. 
     
162.     Private Sub btnMedium2_Click(sender As Object, e As System.EventArgs) Handles btnMedium2.Click
     
163.         Call AddRow(105, btnMedium2.Text, "40.00")
     
164.     End Sub
     
165. 
     
166.     Private Sub btnMedium3_Click(sender As Object, e As System.EventArgs) Handles btnMedium3.Click
     
167.         Call AddRow(106, btnMedium3.Text, "40.00")
     
168.     End Sub
     
169. 
     
170.     Private Sub btnLarge1_Click(sender As Object, e As System.EventArgs) Handles btnLarge1.Click
     
171.         Call AddRow(107, btnLarge1.Text, "60.00")
     
172.     End Sub
     
173. 
     
174.     Private Sub btnLarge2_Click(sender As Object, e As System.EventArgs) Handles btnLarge2.Click
     
175.         Call AddRow(108, btnLarge2.Text, "60.00")
     
176.     End Sub
     
177. 
     
178.     Private Sub btnLarge3_Click(sender As Object, e As System.EventArgs) Handles btnLarge3.Click
     
179.         Call AddRow(109, btnLarge3.Text, "60.00")
     
180.     End Sub
     
181. 
     
182.     Private Sub txtAmount_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtAmount.KeyPress
     
183.         '// ล็อคการกดคีย์
     
184.         e.Handled = True
     
185.     End Sub
     
186. 
     
187.     Private Sub txtPrice_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrice.KeyPress
     
188.         e.Handled = True
     
189.     End Sub
     
190. 
     
191.     Private Sub btnPayment_Click(sender As System.Object, e As System.EventArgs) Handles btnPayment.Click
     
192.         If dgvData.RowCount <= 0 Then Exit Sub
     
193.         frmPayment.ShowDialog()
     
194.     End Sub
     
195. 
     
196. End Class

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

โค้ดในส่วนของการชำระเงินสด (frmPayment.vb)

1. Public Class frmPayment
   
2. 
   
3.     Private Sub frmPayment_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   
4.         Select Case e.KeyCode
   
5.             Case Keys.F8
   
6.                 btnCash_Click(sender, e)
   
7.             Case Keys.F10
   
8.                 Me.Close()
   
9.         End Select
   
10.     End Sub
    
11. 
    
12.     Private Sub frmPayment_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
13.         txtAmount.Text = Format(CDbl(frmMainOrder.txtAmount.Text), "#,##0.00")
    
14.         txtCash.Text = "0"
    
15.         txtChange.Text = "0.00"
    
16.         txtCash.Focus()
    
17.     End Sub
    
18. 
    
19.     ' / ---------------------------------------------------------------
    
20.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น (ควรนำไปเก็บไว้ใน Module)
    
21.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
22.         Select Case index
    
23.             Case 48 To 57 ' เลข 0 - 9
    
24.                 CheckDigitOnly = False
    
25.             Case 8, 13 ' Backspace = 8, Enter = 13
    
26.                 CheckDigitOnly = False
    
27.             Case Else
    
28.                 CheckDigitOnly = True
    
29.         End Select
    
30.     End Function
    
31. 
    
32.     ' / ---------------------------------------------------------------
    
33.     Private Sub btnCash_Click(sender As System.Object, e As System.EventArgs) Handles btnCash.Click
    
34.         If txtCash.Text = "" Or Len(txtCash.Text) = 0 Or Val(txtCash.Text) = 0 Then
    
35.             txtCash.Text = 0
    
36.             txtChange.Text = "0.00"
    
37.             txtCash.Focus()
    
38.             Exit Sub
    
39.         End If
    
40.         If CDbl(txtCash.Text) - CDbl(txtAmount.Text) < 0 Then
    
41.             MessageBox.Show("จำนวนเงินยังไม่ครบ กรุณาแก้ไขข้อมูลใหม่ด้วย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
42.             txtCash.Focus()
    
43.         Else
    
44.             MessageBox.Show("ทำรายการเสร็จสิ้น.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
45.             '// สั่งเคลียร์รายการข้ามฟอร์มมาเลย
    
46.             With frmMainOrder
    
47.                 .txtPrice.Text = "0.00"
    
48.                 .txtAmount.Text = "0.00"
    
49.                 .dgvData.Rows.Clear()
    
50.             End With
    
51.             Me.Close()
    
52.         End If
    
53.     End Sub
    
54. 
    
55.     Private Sub txtCash_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCash.KeyPress
    
56.         '// รับค่าเฉพาะตัวเลขเท่านั้น
    
57.         e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
58.         txtCash.Text = CDbl(txtCash.Text)
    
59.     End Sub
    
60. 
    
61.     Private Sub txtCash_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCash.TextChanged
    
62.         Call CalSum()
    
63.     End Sub
    
64. 
    
65.     Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
    
66.         txtCash.Text = "0"
    
67.         txtChange.Text = "0.00"
    
68.     End Sub
    
69. 
    
70.     ' / ---------------------------------------------------------------
    
71.     Private Sub CalSum()
    
72.         '/ Trap Error
    
73.         If Trim(txtCash.Text) = "" Or Len(Trim(txtCash.Text)) = 0 Then
    
74.             txtCash.Text = 0
    
75.             txtChange.Text = "0.00"
    
76.             Exit Sub
    
77.         End If
    
78.         '//
    
79.         Dim dChange As Double = CDbl(txtCash.Text) - CDbl(txtAmount.Text)
    
80.         txtChange.Text = dChange
    
81.         If CDbl(dChange) < 0 Then
    
82.             txtChange.ForeColor = Color.Red
    
83.         Else
    
84.             txtChange.ForeColor = Color.Blue
    
85.         End If
    
86.     End Sub
    
87. 
    
88.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
89.         txtCash.Text = CDbl(txtCash.Text + Button1.Text)
    
90.         Call CalSum()
    
91.     End Sub
    
92. 
    
93.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    
94.         txtCash.Text = CDbl(txtCash.Text + Button2.Text)
    
95.         Call CalSum()
    
96.     End Sub
    
97. 
    
98.     Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    
99.         txtCash.Text = CDbl(txtCash.Text + Button3.Text)
    
100.         Call CalSum()
     
101.     End Sub
     
102. 
     
103.     Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
     
104.         txtCash.Text = CDbl(txtCash.Text + Button4.Text)
     
105.         Call CalSum()
     
106.     End Sub
     
107. 
     
108.     Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
     
109.         txtCash.Text = CDbl(txtCash.Text + Button5.Text)
     
110.         Call CalSum()
     
111.     End Sub
     
112. 
     
113.     Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
     
114.         txtCash.Text = CDbl(txtCash.Text + Button6.Text)
     
115.         Call CalSum()
     
116.     End Sub
     
117. 
     
118.     Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
     
119.         txtCash.Text = CDbl(txtCash.Text + Button7.Text)
     
120.         Call CalSum()
     
121.     End Sub
     
122. 
     
123.     Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
     
124.         txtCash.Text = CDbl(txtCash.Text + Button8.Text)
     
125.         Call CalSum()
     
126.     End Sub
     
127. 
     
128.     Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
     
129.         txtCash.Text = CDbl(txtCash.Text + Button9.Text)
     
130.         Call CalSum()
     
131.     End Sub
     
132. 
     
133.     Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
     
134.         txtCash.Text = CDbl(txtCash.Text + Button10.Text)
     
135.         Call CalSum()
     
136.     End Sub
     
137. 
     
138.     Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
     
139.         txtCash.Text = CDbl(txtCash.Text + Button11.Text)
     
140.         Call CalSum()
     
141.     End Sub
     
142. 
     
143.     Private Sub txtAmount_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtAmount.KeyPress
     
144.         e.Handled = True
     
145.     End Sub
     
146. 
     
147.     Private Sub txtChange_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtChange.KeyPress
     
148.         e.Handled = True
     
149.     End Sub
     
150. 
     
151.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
152.         Me.Close()
     
153.     End Sub
     
154. End Class

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

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

MrDen

ขอบคุณครับ ขอให้แข็งแรงแข็งแรง ครับผม.

hot2

ขอบคุณครับ