[VB.NET] โค้ดการคำนวณหาอัตราค่าบริการขนส่งไปรษณีย์ (eCo Post)

thongkorn

โค้ด VB.NET (2010) กับการคำนวณหาอัตราค่าบริการขนส่งไปรษณีย์ (eCo Post) ...






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

1. Public Class frmWeightCalculation
   
2. 
   
3.     Private Sub frmWeightCalculation_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   
4.         Select Case e.KeyCode
   
5.             Case Keys.F8
   
6.                 Call DeleteRow("btnDelRow")
   
7.             Case Keys.F7
   
8.                 Call btnAddToDataGridView_Click(sender, e)
   
9.                 txtWeight.Focus()
   
10.         End Select
    
11.     End Sub
    
12. 
    
13.     Private Sub frmWeightCalculation_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
14.         Call InitializeGrid()
    
15.         Call rdoEnvelope_Click(sender, e)
    
16.         Call ClearTextBox()
    
17.         txtWeight.Focus()
    
18.         txtWeight.Tag = 0
    
19.     End Sub
    
20. 
    
21.     Private Sub ClearTextBox()
    
22.         txtWeight.Text = "0"
    
23.         txtPriceEnvelope.Text = "0.00"
    
24.         txtPriceBox.Text = "0.00"
    
25.         txtPriceEnvelopeBox.Text = "0.00"
    
26.         txtWeightDescription.Text = String.Empty
    
27.     End Sub
    
28. 
    
29.     Private Sub txtWeight_GotFocus(sender As Object, e As System.EventArgs) Handles txtWeight.GotFocus
    
30.         If Not IsDBNull(txtWeight.Text) Then
    
31.             txtWeight.SelectionStart = 0
    
32.             txtWeight.SelectionLength = txtWeight.Text.Length
    
33.         End If
    
34.     End Sub
    
35. 
    
36.     Private Sub txtWeight_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtWeight.KeyPress
    
37.         If e.KeyChar = Chr(13) Then
    
38.             e.Handled = True
    
39.             Call CalWeight()
    
40.         Else
    
41.             '// รับค่าเฉพาะตัวเลขแบบจำนวนเต็ม
    
42.             'e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
43.             e.Handled = ValidateNumeric(e.KeyChar)
    
44.         End If
    
45.     End Sub
    
46. 
    
47.     ' / --------------------------------------------------------------------------------
    
48.     ' / S A M P L E ... D A T A    T A B L E (Products)
    
49.     ' / --------------------------------------------------------------------------------
    
50.     Function GetDataTable() As DataTable
    
51.         '// Add Column
    
52.         Dim DT As New DataTable
    
53.         With DT.Columns
    
54.             .Add("WeightPK", GetType(Integer)) '<< Index = 0
    
55.             .Add("WeightName", GetType(String)) '<< 1
    
56.             .Add("BeginWeight", GetType(Integer)) '<< 2
    
57.             .Add("EndWeight", GetType(Integer)) '<< 3
    
58.             .Add("PriceEnvelope", GetType(Double)) '<< 4
    
59.             .Add("PriceBox", GetType(Double)) '<< 5
    
60.             .Add("PriceEnvelopeBox", GetType(Double)) '<< 6
    
61.         End With
    
62.         '/ Add sample data.
    
63.         '/ WeightPK, WeightName, BeginWeight, EndWeight, PriceEnvelope, PriceBox, PriceEnvelopeBox
    
64.         With DT.Rows
    
65.             .Add(1, "ไม่เกิน 20 กรัม", "1", "20", "16.00", "18.00", "20.00")
    
66.             .Add(2, "เกิน 20 กรัม - 100 กรัม", "21", "100", "18.00", "20.00", "22.00")
    
67.             .Add(3, "เกิน 100 กรัม - 250 กรัม", "101", "250", "22.00", "24.00", "26.00")
    
68.             .Add(4, "เกิน 250 กรัม - 500 กรัม", "251", "500", "28.00", "30.00", "30.00")
    
69.             .Add(5, "เกิน 500 กรัม - 1,000 กรัม", "501", "1000", "38.00", "40.00", "40.00")
    
70.             .Add(6, "เกิน 1,000 กรัม - 2,000 กรัม", "1001", "2000", "58.00", "60.00", "60.00")
    
71.             .Add(7, "เกิน 2,000 กรัม - 4,000 กรัม", "2001", "4000", "0.00", "0.00", "80.00")
    
72.             .Add(8, "เกิน 4,000 กรัม - 6,000 กรัม", "4001", "6000", "0.00", "0.00", "120.00")
    
73.             .Add(9, "เกิน 6,000 กรัม - 10,000 กรัม", "6001", "10000", "0.00", "0.00", "160.00")
    
74.         End With
    
75.         Return DT
    
76.     End Function
    
77. 
    
78.     Private Sub CalWeight()
    
79.         If txtWeight.Text.Trim = "" Or txtWeight.Text.Trim.Length = 0 Then
    
80.             txtWeight.Text = "0"
    
81.             Return
    
82.         End If
    
83.         Dim DT As DataTable = GetDataTable()
    
84.         '/ ค้นหาข้อมูลจากน้ำหนักที่ต้องการ แล้วเปรียบเทียบช่วงค่าระหว่างน้ำหนักต่ำสุดและน้ำหนักสูงสุด
    
85.         Dim r() As DataRow = DT.Select(CInt(txtWeight.Text.Trim) & " >= BeginWeight AND " & CInt(txtWeight.Text.Trim) & "<= EndWeight")
    
86.         '// หากพบข้อมูลใน DataTable
    
87.         If r.Count > 0 Then
    
88.             txtWeight.Tag = r(0).Item(0).ToString
    
89.             txtPriceEnvelope.Text = Format(CDbl(r(0).Item(4).ToString), "0.00")
    
90.             txtPriceBox.Text = Format(CDbl(r(0).Item(5).ToString), "0.00")
    
91.             txtPriceEnvelopeBox.Text = Format(CDbl(r(0).Item(6).ToString), "0.00")
    
92.             txtWeightDescription.Text = r(0).Item(1).ToString
    
93.             '// กรณีที่อัตราค่าบริการซองและกล่อง = 0.00 ให้ไปโฟกัสที่ประเภทซองและกล่อง
    
94.             If Val(r(0).Item(4).ToString) = 0 AndAlso Val(r(0).Item(5).ToString) = 0 Then
    
95.                 rdoEnvelopeBox.Focus()
    
96.             Else
    
97.                 rdoEnvelope.Focus()
    
98.             End If
    
99.         Else
    
100.             Call ClearTextBox()
     
101.         End If
     
102.         DT.Dispose()
     
103.         txtWeight.Focus()
     
104.     End Sub
     
105. 
     
106.     Private Sub btnCalWeight_Click(sender As System.Object, e As System.EventArgs) Handles btnCalWeight.Click
     
107.         Call CalWeight()
     
108.         txtWeight.Focus()
     
109.     End Sub
     
110. 
     
111.     ' / --------------------------------------------------------------------------------
     
112.     ' / ตั้งค่าเริ่มต้นให้กับ DataGridView แบบ Run Time (ใช้โค้ดทั้งหมด)
     
113.     Private Sub InitializeGrid()
     
114.         With dgvData
     
115.             .RowHeadersVisible = False
     
116.             .AllowUserToAddRows = False
     
117.             .AllowUserToDeleteRows = False
     
118.             .AllowUserToResizeRows = False
     
119.             .MultiSelect = False
     
120.             .ReadOnly = True
     
121.             .RowTemplate.MinimumHeight = 30
     
122.             .RowTemplate.Height = 30
     
123.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
124.             '/ Columns Specified
     
125.             '/ Index = 0
     
126.             .Columns.Add("PK", "Primary Key")
     
127.             With .Columns("PK")
     
128.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
129.                 .Visible = False '/ ปกติหลัก Primary Key จะต้องถูกซ่อนไว้
     
130.             End With
     
131.             '/ Index = 1
     
132.             .Columns.Add("Category", "Category")
     
133.             .Columns("Category").DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
134.             '/ Index = 2
     
135.             .Columns.Add("WeightDescription", "Weight Description")
     
136.             .Columns("WeightDescription").DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
137.             '/ Index = 3
     
138.             .Columns.Add("Weight", "Weight")
     
139.             .Columns("Weight").ValueType = GetType(Integer)
     
140.             '/ Index = 4
     
141.             .Columns.Add("UnitPrice", "Unit Price")
     
142.             .Columns("UnitPrice").ValueType = GetType(Double)
     
143.         End With
     
144.         '// เพิ่มปุ่มลบ (Index = 5)
     
145.         Dim btnDelRow As New DataGridViewButtonColumn
     
146.         dgvData.Columns.Add(btnDelRow)
     
147.         With btnDelRow
     
148.             .HeaderText = "Delete F8"
     
149.             .Text = "Delete"
     
150.             .UseColumnTextForButtonValue = True
     
151.             .Width = 30
     
152.             .ReadOnly = True
     
153.             .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
     
154.             .SortMode = DataGridViewColumnSortMode.NotSortable  '/ Not sort order but can click header for delete row.
     
155.         End With
     
156.         '/ Alignment MiddleRight only columns 3 to 5
     
157.         For i As Byte = 3 To 4
     
158.             With dgvData
     
159.                 '/ Header Alignment
     
160.                 .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
161.                 '/ Cell Alignment
     
162.                 .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
163.                 .DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
     
164.                 .DefaultCellStyle.ForeColor = Color.Blue
     
165.                 .DefaultCellStyle.Font = New Font(dgvData.Font, FontStyle.Bold)
     
166.             End With
     
167.         Next
     
168.         With dgvData
     
169.             '// Even-Odd Color
     
170.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
171.             '/ Auto size column width of each main by sorting the field.
     
172.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
173.             .AutoResizeColumns()
     
174.             '/ Adjust Header Styles
     
175.             With .ColumnHeadersDefaultCellStyle
     
176.                 .BackColor = Color.Orange
     
177.                 .ForeColor = Color.Black
     
178.                 .Font = New Font("Tahoma", 11, FontStyle.Bold)
     
179.             End With
     
180.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
181.             .ColumnHeadersHeight = 40
     
182.             '/ กำหนดให้ EnableHeadersVisualStyles = False เพื่อให้ยอมรับการเปลี่ยนแปลงสีพื้นหลังของ Header
     
183.             .EnableHeadersVisualStyles = False
     
184.         End With
     
185.     End Sub
     
186. 
     
187.     Private Sub btnAddToDataGridView_Click(sender As System.Object, e As System.EventArgs) Handles btnAddToDataGridView.Click
     
188.         If txtWeight.Tag = 0 Then
     
189.             txtWeight.Focus()
     
190.             Exit Sub
     
191.         End If
     
192.         If (CInt(txtPriceEnvelope.Text) = 0 And CInt(txtPriceBox.Text) = 0) AndAlso (rdoEnvelope.Checked Or rdoBox.Checked) Then
     
193.             MessageBox.Show("ไม่สามารถเพิ่มรายการได้ เนื่องจากอยู่นอกเหนือจากพิกัดน้ำหนัก.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
194.             Return
     
195.         End If
     
196.         Dim Category As String = String.Empty
     
197.         Dim Price As Double = "0.00"
     
198.         If rdoEnvelope.Checked Then
     
199.             Price = txtPriceEnvelope.Text
     
200.             Category = lblEnvelope.Text
     
201.         ElseIf rdoBox.Checked Then
     
202.             Price = txtPriceBox.Text
     
203.             Category = lblBox.Text
     
204.         Else
     
205.             Price = txtPriceEnvelopeBox.Text
     
206.             Category = lblEnvelopeBox.Text
     
207.         End If
     
208.         '/ Primary Key (Weight), Category (มาจาก Label), WeightDescription (มาจาก TextBox), Weight, Price
     
209.         dgvData.Rows.Add(txtWeight.Tag, Category, txtWeightDescription.Text, Format(CInt(txtWeight.Text), "#,##0"), Format(Price, "0.00"))
     
210.         txtWeight.Tag = 0
     
211.         Call ClearTextBox()
     
212.         txtWeight.Focus()
     
213.     End Sub
     
214. 
     
215.     ' / --------------------------------------------------------------------------------
     
216.     ' / โปรแกรมย่อยในการลบแถวรายการที่เลือกออกไป
     
217.     Private Sub DeleteRow(ByVal ColName As String)
     
218.         If dgvData.RowCount = 0 Then Return
     
219.         '/ ColName เป็นชื่อของหลัก Index = 6 ของตารางกริด (ไปดูที่โปรแกรมย่อย InitializeGrid)
     
220.         If ColName = "btnDelRow" Then
     
221.             '// ลบรายการแถวที่เลือกออกไป
     
222.             dgvData.Rows.Remove(dgvData.CurrentRow)
     
223.         End If
     
224.         txtWeight.Focus()
     
225.     End Sub
     
226. 
     
227.     Private Sub rdoEnvelope_Click(sender As Object, e As System.EventArgs) Handles rdoEnvelope.Click
     
228.         txtPriceEnvelope.BackColor = Color.Red
     
229.         txtPriceBox.BackColor = Color.Yellow
     
230.         txtPriceEnvelopeBox.BackColor = Color.Yellow
     
231.         Call CalWeight()
     
232.     End Sub
     
233. 
     
234.     Private Sub rdoBox_Click(sender As Object, e As System.EventArgs) Handles rdoBox.Click
     
235.         txtPriceEnvelope.BackColor = Color.Yellow
     
236.         txtPriceBox.BackColor = Color.Red
     
237.         txtPriceEnvelopeBox.BackColor = Color.Yellow
     
238.         Call CalWeight()
     
239.     End Sub
     
240. 
     
241.     Private Sub rdoEnvelopeBox_Click(sender As Object, e As System.EventArgs) Handles rdoEnvelopeBox.Click
     
242.         txtPriceEnvelope.BackColor = Color.Yellow
     
243.         txtPriceBox.BackColor = Color.Yellow
     
244.         txtPriceEnvelopeBox.BackColor = Color.Red
     
245.         Call CalWeight()
     
246.     End Sub
     
247. 
     
248.     Private Sub txtWeight_LostFocus(sender As Object, e As System.EventArgs) Handles txtWeight.LostFocus
     
249.         If txtWeight.Text.Trim = "" Or txtWeight.Text.Trim.Length = 0 Then txtWeight.Text = "0"
     
250.     End Sub
     
251. 
     
252.     Private Sub dgvData_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick
     
253.         Select Case e.ColumnIndex
     
254.             '// Delete Button
     
255.             Case 5
     
256.                 'MsgBox(("Row : " + e.RowIndex.ToString & "  Col : ") + e.ColumnIndex.ToString)
     
257.                 Call DeleteRow("btnDelRow")
     
258.         End Select
     
259.     End Sub
     
260. 
     
261.     Private Sub frmWeightCalculation_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
262.         Me.Dispose()
     
263.         GC.SuppressFinalize(Me)
     
264.         Application.Exit()
     
265.     End Sub
     
266. End Class

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

โมดูล modFunction.vb ...

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.     ' / --------------------------------------------------------------------------------
   
9.     ' / ฟังค์ชั่นในการกำหนดพาธให้กับโปรแกรม
   
10.     Function MyPath(ByVal AppPath As String) As String
    
11.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
12.         '// If not found folder then put the \ (BackSlash) at the end.
    
13.         '/ Return Value
    
14.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
15.     End Function
    
16. 
    
17.     ' / Function to test for Positive Integers with zero inclusive.
    
18.     Public Function ValidateNumeric(ByVal strNumber As [String]) As Boolean
    
19.         Dim Pattern As New Regex("[^0-9]")
    
20.         Return Pattern.IsMatch(strNumber)
    
21.     End Function
    
22. 
    
23.     ' / --------------------------------------------------------------------------------
    
24.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
    
25.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
    
26.         Select Case index
    
27.             Case 48 To 57 ' เลข 0 - 9
    
28.                 CheckDigitOnly = False
    
29.             Case 8, 13 ' Backspace = 8, Enter = 13
    
30.                 CheckDigitOnly = False
    
31.             Case Else
    
32.                 CheckDigitOnly = True
    
33.         End Select
    
34.     End Function
    
35. 
    
36.     ' / --------------------------------------------------------------------------------
    
37.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขและทศนิยมได้ตัวเดียวเท่านั้น
    
38.     Function CheckCurrency(index As Integer, tmpStr As String) As Boolean
    
39.         CheckCurrency = False
    
40.         Select Case index
    
41.             Case 48 To 57 ' เลข 0 - 9
    
42.                 ' Allowed "."
    
43.             Case 46
    
44.                 ' can present "." only one
    
45.                 If InStr(tmpStr, ".") Then CheckCurrency = True
    
46. 
    
47.             Case 8, 13 ' Backspace = 8, Enter = 13
    
48.             Case Else
    
49.                 CheckCurrency = True
    
50.         End Select
    
51.     End Function
    
52. 
    
53. End Module

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

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