[VB6/VB.NET] แจกโค้ดการรับค่าน้ำหนัก เพื่อทำการคำนวณหาอัตราค่าบริการขนส่ง

thongkorn

วันนี้แจกโค้ดทั้ง VB6 และ VB.NET ในการรับค่าน้ำหนักพัสดุ เพื่อทำการคำนวณหาราคาค่าบริการขนส่ง ซึ่งมีกระบวนการวิธีที่คิดเหมือนกัน แตกต่างกันเพียงแค่คำสั่งที่ใช้งานเท่านั้น โดยแอดมินสมมุติราคาค่าบริการดังนี้ ...

ตัวอย่างจะยังไม่มีการจัดเรียงตามค่าน้ำหนักสูงสุด (MaxWeight)


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


มาดูโค้ดหลักของ VB6 ...

1. Option Explicit
   
2. 
   
3. Private Sub Form_Load()
   
4.     txtWeight.Text = ""
   
5.     txtWeight.MaxLength = 5
   
6.     txtFee.Text = ""
   
7.     '// Connect MS Access DataBase
   
8.     Call OpenDataBase
   
9. End Sub
   
10. 
    
11. Private Sub Form_Unload(Cancel As Integer)
    
12.     Call CloseDataBase
    
13.     End
    
14. End Sub
    
15. 
    
16. Private Sub txtFee_KeyPress(KeyAscii As Integer)
    
17.     '// ป้องกันการกดคีย์ใดๆลงไป
    
18.     KeyAscii = 0
    
19. End Sub
    
20. 
    
21. Private Sub txtWeight_KeyPress(KeyAscii As Integer)
    
22.     '// ไม่มีการป้อนค่าใดๆ หรือป้อนค่า 0
    
23.     If Trim(txtWeight.Text) = "" Or Val(txtWeight.Text) = 0 Then Exit Sub
    
24.     '// กดคีย์ Enter
    
25.     If KeyAscii = 13 Then
    
26.         Dim FeeService As Double
    
27.         KeyAscii = 0
    
28.         FeeService = CalFee(CDbl(txtWeight.Text))
    
29.         '// ค่าที่รีเทิร์นกลับมาต้องมากกว่า 0 จึงจะแสดงผล
    
30.             If FeeService > 0 Then
    
31.                 txtFee.Text = FeeService
    
32.             Else
    
33.                 txtWeight.Text = ""
    
34.                 txtFee.Text = ""
    
35.                 lblFeeName.Caption = ""
    
36.                 MsgBox "คุณป้อนพิกัดน้ำหนักมากกว่าระบบกำหนดเอาไว้.", vbOKOnly + vbExclamation, "รายงานสถานะ"
    
37.             End If
    
38.     '// เช็คคีย์ที่กดต้องเป็น 0 - 9
    
39.     Else
    
40.         KeyAscii = CheckDigitOnly(KeyAscii)
    
41.     End If
    
42. End Sub
    
43. 
    
44. ' / --------------------------------------------------------------------------
    
45. ' / ฟังค์ชั่นในการคำนวณอัตราราคาตามจำนวนน้ำหนัก
    
46. Function CalFee(ByVal Weight As Double) As Double
    
47. ' / --------------------------------------------------------------------------
    
48.     CalFee = 0
    
49.     '// ประกาศ Instance Name ใหม่ และเพื่อให้แน่ใจว่าตัด RecordSet ทิ้งไปแล้ว
    
50.     Set RS = New Recordset
    
51.     '// เลือกเอาค่าแรกที่ได้มา (TOP 1) และต้องให้จัดเรียงตามน้ำหนักสูงสุด (MaxWeight)
    
52.     Statement = _
    
53.         " SELECT  TOP 1 tblFee.FeePK, tblFee.FeeName, tblFee.FeeCharge, tblFee.MaxWeight " & _
    
54.         " FROM tblFee " & _
    
55.         " WHERE [MaxWeight] >= " & Val(txtWeight.Text) & _
    
56.         " ORDER BY tblFee.FeeCharge "
    
57.     RS.CursorLocation = adUseClient
    
58.     RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
    
59.     If RS.RecordCount > 0 Then
    
60.         '// Return Value
    
61.         CalFee = CDbl(RS("FeeCharge"))
    
62.         lblFeeName.Caption = RS("FeeName")
    
63.     End If
    
64.     RS.Close:   Set RS = Nothing
    
65. End Function

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

โค้ดในส่วนของโมดูลการเชื่อมต่อฐานข้อมูล VB6 + Access 2003 ...

1. Option Explicit
   
2. 
   
3. Global ConnDB As New ADODB.Connection
   
4. Global RS As New ADODB.Recordset
   
5. Global DS As New ADODB.Recordset
   
6. Global Statement As String
   
7. Global SQLStmt As String
   
8. '
   
9. ' กำหนดว่าเป็นการเพิ่ม หรือ แก้ไขข้อมูล
   
10. Global blnNewData As Boolean
    
11. ' ให้เกิดการ Update ในฟอร์มที่มีการเปลี่ยนแปลง
    
12. Global FormUpdate As Boolean
    
13. '
    
14. ' สำหรับทำการค้นหา
    
15. Global gPK As Long
    
16. ' การส่งชื่อตารางข้อมูลไป
    
17. Global gTable As String
    
18. 
    
19. Public Sub OpenDataBase()
    
20. On Error GoTo Err_Handler
    
21. Dim DB_File As String
    
22.     DB_File = App.Path
    
23.     If Right$(DB_File, 1) <> "" Then DB_File = DB_File & ""
    
24.     DB_File = DB_File & "WeightData.MDB"
    
25.     ' Open a connection.
    
26.     Set ConnDB = New ADODB.Connection
    
27.     ConnDB.ConnectionString = _
    
28.         "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
29.         "Data Source=" & DB_File & ";" & _
    
30.         "Persist Security Info=False"
    
31.     ConnDB.Open
    
32.     Exit Sub
    
33. Err_Handler:
    
34.     MsgBox "Error : " & Err.Number & " " & Err.Description
    
35.     End
    
36. End Sub
    
37. 
    
38. Public Sub CloseDataBase()
    
39.     ' ตรวจสอบว่ามีการเชื่อมโยง - Connect ข้อมูลหรือไม่
    
40.     If ConnDB.State = adStateOpen Then
    
41.         ConnDB.Close
    
42.         Set ConnDB = Nothing
    
43.     End If
    
44. End Sub
    
45. 
    
46. Function CheckDigitOnly(Index As Integer) As Integer
    
47.     Select Case Index
    
48.         Case 48 To 57 ' 0 - 9
    
49.         Case 8            ' Back Space
    
50.         Case 13         ' Enter
    
51.         Case Else
    
52.             Index = 0
    
53.     End Select
    
54.     CheckDigitOnly = Index
    
55. End Function
    
56. 
    
57. '/  แก้ปัญหาฟังค์ชั่น SendKeys ใน Windows 8+ 64 บิต
    
58. Public Sub Sendkeys(Text As String, Optional Wait As Boolean = False)
    
59.     Dim WshShell As Object
    
60.     Set WshShell = CreateObject("Wscript.shell")
    
61.     WshShell.Sendkeys Text, Wait
    
62.     Set WshShell = Nothing
    
63. End Sub

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

โค้ดในส่วนฟอร์มหลัก VB.NET (2010)

1. Imports System.Data.OleDb
   
2. 
   
3. Public Class frmFeeWeight
   
4. 
   
5.     Private Sub frmCostWeight_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
6.         '// Connect MS Access DataBase
   
7.         Conn = ConnectDataBase()
   
8.         lblFeeName.Text = ""
   
9.     End Sub
   
10. 
    
11.     Private Sub txtWeight_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtWeight.KeyPress
    
12.         '// ไม่มีการป้อนค่าใดๆ หรือป้อนค่า 0
    
13.         If Trim(txtWeight.Text) = "" Or Val(txtWeight.Text) = 0 Then Exit Sub
    
14.         '// กดคีย์ Enter
    
15.         If e.KeyChar = Chr(13) Then
    
16.             e.Handled = True
    
17.             '// CDbl = Convert to Double
    
18.             Dim FeeService As Double = CalFee(CDbl(txtWeight.Text))
    
19.             '// ค่าที่รีเทิร์นกลับมาต้องมากกว่า 0 จึงจะแสดงผล
    
20.             If FeeService > 0 Then
    
21.                 txtFee.Text = FeeService
    
22.             Else
    
23.                 txtWeight.Clear()
    
24.                 txtFee.Clear()
    
25.                 lblFeeName.Text = ""
    
26.                 MessageBox.Show("คุณป้อนพิกัดน้ำหนักมากกว่าระบบกำหนดเอาไว้.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
27.             End If
    
28.         Else
    
29.             '// ตรวจสอบการกดคีย์ จะรับค่า 0 - 9 หรือ ASCII Code = 48 - 57
    
30.             e.Handled = CheckDigitOnly(Asc(e.KeyChar))
    
31.         End If
    
32.     End Sub
    
33. 
    
34.     '// ฟังค์ชั่นใช้ในการค้นหาอัตราค่าบริการ ตามสัดส่วนน้ำหนัก
    
35.     Private Function CalFee(ByVal Fee As Double) As Double
    
36.         CalFee = 0
    
37.         '// เลือกเอาค่าแรกที่ได้มา (TOP 1) และต้องให้จัดเรียงตามน้ำหนักสูงสุด (MaxWeight)
    
38.         strSQL = _
    
39.             " SELECT TOP 1 tblFee.FeePK, tblFee.FeeName, tblFee.FeeCharge, tblFee.MaxWeight " & _
    
40.             " FROM tblFee " & _
    
41.             " WHERE (" & _
    
42.             " [MaxWeight] >= " & CDbl(txtWeight.Text) & _
    
43.             " ) ORDER BY MaxWeight "
    
44.         Try
    
45.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
46.             Cmd = New OleDbCommand(strSQL, Conn)
    
47.             DR = Cmd.ExecuteReader
    
48.             While DR.Read()
    
49.                 If DR.HasRows Then
    
50.                     CalFee = Format(CDbl(DR.Item("FeeCharge").ToString), "#,##0.00")
    
51.                     lblFeeName.Text = DR.Item("FeeName").ToString
    
52.                 End If
    
53.             End While
    
54.             DR.Close()
    
55.             Cmd.Dispose()
    
56.         Catch ex As Exception
    
57.             MessageBox.Show(ex.Message)
    
58.         End Try
    
59.     End Function
    
60. 
    
61.     Private Sub frmCostWeight_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
62.         If Conn.State = ConnectionState.Open Then Conn.Close()
    
63.         Me.Dispose()
    
64.         Application.Exit()
    
65.     End Sub
    
66. 
    
67. End Class

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

โค้ดในการเชื่อมต่อฐานข้อมูล VB.NET + Access 2007+

1. Imports System.Data.OleDb
   
2. Imports Microsoft.VisualBasic
   
3. 
   
4. Module modDataBase
   
5.     '// Declare variable one time but use many times.
   
6.     Public Conn As OleDbConnection
   
7.     Public Cmd As OleDbCommand
   
8.     Public DS As DataSet
   
9.     Public DR As OleDbDataReader
   
10.     Public DA As OleDbDataAdapter
    
11.     Public strSQL As String '// Major SQL
    
12.     Public strStmt As String    '// Minor SQL
    
13. 
    
14.     '// Data Path
    
15.     Public strPathData As String = MyPath(Application.StartupPath)
    
16. 
    
17.     Public Function ConnectDataBase() As System.Data.OleDb.OleDbConnection
    
18.         strPathData = MyPath(Application.StartupPath) & "Data"
    
19.         '"Provider = Microsoft.Jet.OLEDB.4.0;"
    
20.         Dim strConn As String = _
    
21.             "Provider = Microsoft.ACE.OLEDB.12.0;"
    
22.         strConn += _
    
23.             "Data Source = " & strPathData & "WeightData.accdb"
    
24. 
    
25.         Conn = New OleDb.OleDbConnection(strConn)
    
26.         ' Create Connection
    
27.         Conn.ConnectionString = strConn
    
28.         ' Return
    
29.         Return Conn
    
30.     End Function
    
31. 
    
32.     ' / --------------------------------------------------------------------------------
    
33.     ' / Get my project path
    
34.     ' / AppPath = C:\My Project\bin\debug
    
35.     ' / Replace "\bin\debug" with ""
    
36.     ' / Return : C:\My Project\
    
37.     Function MyPath(AppPath As String) As String
    
38.         '/ MessageBox.Show(AppPath);
    
39.         AppPath = AppPath.ToLower()
    
40.         '/ Return Value
    
41.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
42.         '// If not found folder then put the \ (BackSlash) at the end.
    
43.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
44.     End Function
    
45. End Module

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

ฟังค์ชั่นในการรับค่าเฉพาะตัวเลขเท่านั้น VB.NET (2010)

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / ฟังค์ชั่นในการป้อนเฉพาะค่าตัวเลขได้เท่านั้น
   
3.     ' / การใช้งานจากเหตุการณ์ KeyPress ของ TextBox
   
4.     ' / e.Handled = CheckDigitOnly(Asc(e.KeyChar))
   
5.     Function CheckDigitOnly(ByVal index As Integer) As Boolean
   
6.         Select Case index
   
7.             Case 48 To 57 ' เลข 0 - 9
   
8.                 CheckDigitOnly = False
   
9.             Case 8, 13 ' Backspace = 8, Enter = 13
   
10.                 CheckDigitOnly = False
    
11.             Case Else
    
12.                 CheckDigitOnly = True
    
13.         End Select
    
14.     End Function

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

ดาวน์โหลดโค้ดต้นฉบับ VB6 (FeeWeight.zip) และโค้ดต้นฉบับ VB.NET (2010) ชื่อไฟล์ FeeWeightNet.zip