[VB.NET] แจกโค้ดฟรีระบบการขายสินค้าแบบเงินสด ด้วยการตัดสต็อกอัตโนมัติ

thongkorn

การเขียนโปรแกรมเพื่อจัดการกับระบบฐานข้อมูล จะใช้ความสัมพันธ์อยู่ 2 แบบหลักๆ คือ One To One เช่น ลูกค้า 1 รายสามารถซื้อสินค้าได้ทีละ 1 ครั้ง และแบบ One To Many เช่น รายการซื้อสินค้าของลูกค้า 1 รายการ สามารถซื้อสินค้าได้หลายชนิด หรือ รายการ ... ซึ่งวันนี้แอดมินจะนำเสนอโค้ดในแบบ One To Many เป็นการขายสินค้าแบบเงินสด คือการที่ลูกค้านำสินค้ามาให้พนักงานยิงบาร์โค้ด เพื่อทำรายการขายสินค้า โดยสามารถตัดสต็อกได้ ทั้งยังสามารถลด / เพิ่มจำนวนสินค้าได้ และยังคืนสินค้าบางรายการทั้งหมดได้ ...

หลักการคิดจะใช้แบบ Flow Control ตามวิธีขายสินค้าทั่วๆไป คือ (1) ทำรายการขายใหม่ (2) แก้ไขจำนวนรายการขายสินค้าเดิม (3) ลบบางรายการสินค้าทิ้งไป ... เทคนิคในการตัดสต็อกของแอดมิน คือ สร้างหลัก (Column) ท้ายสุดเอาไว้ที่ตารางกริด เพื่อให้เก็บจำนวนที่ขายออกไปในแต่ละครั้ง แต่ให้ซ่อนหลักนี้ หรือ Visible = False เอาไว้ ... เราจะใช้สูตรเดียวกันทั้งหมด คือ ...

จำนวนสต็อก = จำนวนสต็อก + จำนวนขายเดิม - จำนวนขายใหม่

(1) ทำรายการขายใหม่ สินค้าเดิมจะมีค่าเท่ากับ 0 อันนี้คงไม่ต้องอธิบายมากมาย


(2) แก้ไขจำนวนรายการขายสินค้าเดิม ... อันนี้ตามภาพประกอบเลยครับ


(3) การลบบางรายการทิ้งไป ... อันนี้จะยุ่งยากขึ้นมาหน่อย เหตุการณ์นี้จะเกิดเฉพาะตอนแก้ไขรายการเดิมเท่านั้น ดังนั้นเราจะต้องทำการตรวจสอบรายการเดิมที่ขายสินค้าออกไปในตารางข้อมูล InvoiceDetail ซึ่งจะเก็บรายการขายสินค้าและจำนวนเอาไว้ แล้วนำไปเปรียบเทียบกับข้อมูลแถวในตารางกริด หากพบในตารางข้อมูล (InvoiceDetail) แต่ไม่มีในตารางกริด แสดงว่ารายการขายสินค้าตัวนี้ถูกลบออกไปแล้ว จะต้องนำค่าจำนวนที่ขายสินค้าที่อยู่ในตาราง InvoiceDetail เอากลับไปคืนให้กับจำนวนสต็อกในตารางสินค้า หรือ Product ก่อน ...


โค้ดต่างๆในการตัดสต็อกจะอยู่ที่โปรแกรมย่อย SaveData ที่เดียว ไม่ว่าจะเป็นการเพิ่ม หรือแก้ไข ...

1.     ' / --------------------------------------------------------------------
   
2.     ' / SAVE DATA
   
3.     Sub SaveData()
   
4.         Try
   
5.             If Conn.State = ConnectionState.Closed Then Conn.Open()
   
6.             '// NewData = True, It's Add New Mode
   
7.             If NewData Then
   
8.                 '// (SetupNewPK อยู่ใน modDataBase.vb)
   
9.                 '// การหาค่า Primary Key ของ InvoicePK จะอยู่ในกระบวนการสุดท้าย เพื่อป้องกัน Primary Key ซ้ำกัน
   
10.                 PK = SetupNewPK("SELECT MAX(Invoice.InvoicePK) AS MaxPK FROM Invoice")
    
11.                 strSQL = _
    
12.                     " INSERT INTO Invoice(" & _
    
13.                     " InvoicePK, CustomerFK, TotalAmount, DateInvoice) " & _
    
14.                     " VALUES(" & _
    
15.                     "'" & PK & "', " & _
    
16.                     "'1', " & _
    
17.                     "'" & CDbl(txtTotalAmount.Text) & "', " & _
    
18.                     "'" & Now.ToString("dd/MM/yyyy") & "'" & _
    
19.                     ")"
    
20.                 '// การแก้ไข
    
21.             Else
    
22.                 '// START UPDATE
    
23.                 strSQL = _
    
24.                     " UPDATE Invoice SET " & _
    
25.                     " [InvoicePK]='" & PK & "', " & _
    
26.                     " [CustomerFK]='1', " & _
    
27.                     " [TotalAmount]='" & CDbl(txtTotalAmount.Text) & "'" & _
    
28.                     " WHERE InvoicePK = " & PK & ""
    
29.             End If
    
30.             '// บันทึกข้อมูลลงในตาราง Invoice (ฟังค์ชั่น DoSQL อยู่ใน modDataBase.vb)
    
31.             Call DoSQL(strSQL)
    
32.             '/ -----------------------------------------------------------------
    
33.             '// I M P O R T A N T
    
34.             '// ก่อนลบข้อมูลขายสินค้า จากตารางข้อมูล InvoiceDetail ณ ปัจจุบัน ต้องคืนจำนวนสินค้ากลับไปให้ตารางสินค้าก่อน เพราะบางแถวรายการของตารางกริดอาจจะถูกลบออกไป
    
35.             '// เช่น เดิมมีการขายสินค้าออกไป 2 รายการ แต่แถวที่ 2 ถูกลบออกไป ซึ่งมักจะเกิดจากการคืนสินค้า ดังนั้นรายการแถวในตารางกริด จะไม่ตรงกับการขายของเดิม
    
36.             '// ต้องคืนจำนวนสินค้าจากรายการที่ 2 กลับเข้าไปในสต็อกก่อนจะลบ InvoiceDetail ปัจจุบันทิ้ง แล้วค่อย INSERT กลับไปใหม่อีกครั้ง ด้วย InvoicePK ตัวเดิม
    
37.             '// ***** กรณีของการแก้ไขข้อมูลเท่านั้น *****
    
38.             If Not NewData Then
    
39.                 Dim SqlStmt As String = " SELECT * FROM InvoiceDetail WHERE InvoicePK = " & PK
    
40.                 Cmd = New OleDb.OleDbCommand
    
41.                 Cmd.Connection = Conn
    
42.                 Cmd.CommandText = SqlStmt
    
43.                 Dim DR As OleDbDataReader = Cmd.ExecuteReader
    
44.                 '// Set Flag
    
45.                 Dim blnDataExist As Boolean = False
    
46.                 While DR.Read
    
47.                     Dim PFK As Long = CLng(DR.Item("ProductFK").ToString)
    
48.                     For iRow = 0 To dgvData.RowCount - 1
    
49.                         '// ค่า Primary Key ใน DB มีค่าเท่ากับใน DataGrid หรือไม่
    
50.                         If CLng(DR.Item("ProductFK").ToString) = dgvData.Rows(iRow).Cells(0).Value Then
    
51.                             '// เพื่อให้วนรอบไปที่ While ต่อทันที
    
52.                             blnDataExist = True
    
53.                             '// ไม่ต้องเช็คต่ออีกแล้ว ... กลับไปวนรอบ While เพื่อเช็คแถวรายการในตารางข้อมูล InVoiceDetail ใหม่อีกรอบ
    
54.                             Exit For
    
55.                         Else
    
56.                             blnDataExist = False
    
57.                         End If
    
58.                     Next
    
59.                     '// ไม่มีข้อมูลในตารางกริด แต่พบในตารางข้อมูล แสดงว่าถูกลบแถวรายการออกไป
    
60.                     '// เอาค่าจำนวนสินค้าในตาราง InvoiceDetail ณ ปัจจุบัน กลับไปบวกเข้าในสต็อก (ตารางสินค้า - Product) ก่อน
    
61.                     '// Not True = False (ไม่จริง = เท็จ) เพราะต้องการเงื่อนไขเท็จ
    
62.                     If Not blnDataExist Then
    
63.                         '// เอากลับมาบวกคืนในสต็อคตารางสินค้า
    
64.                         '// ProductFK คือการอ่านค่ามาจาก InvoiceDetail
    
65.                         strSQL = _
    
66.                             " UPDATE Product SET " & _
    
67.                             " [Stocked]=Stocked + '" & CDbl(DR.Item("Quantity").ToString) & "'" & _
    
68.                             " WHERE ProductPK = " & CLng(DR.Item("ProductFK").ToString) & ""
    
69.                         '// UPDATE
    
70.                         Call DoSQL(strSQL)
    
71.                         '//
    
72.                         DS.Dispose()
    
73.                         DA.Dispose()
    
74.                     End If
    
75.                 End While
    
76.                 DR.Close()
    
77.             End If
    
78.             '/ -----------------------------------------------------------------
    
79.             '/ -----------------------------------------------------------------
    
80.             '// ลบข้อมูลในตารางย่อย (InvoiceDetail) ณ ปัจจุบันออกให้หมดก่อน แล้วค่อยทำการเพิ่มเข้าไปใหม่
    
81.             '// การเพิ่มข้อมูลใหม่ จะไม่มีผลอะไร
    
82.             strSQL = " DELETE FROM InvoiceDetail WHERE InvoicePK = " & PK
    
83.             Call DoSQL(strSQL)
    
84.             '/ -----------------------------------------------------------------
    
85.             '/ เพราะเราลบข้อมูลการขายทุกรายการออกจากตาราง InvoiceDetail ดังนั้นจึงต้องทำการ INSERT เข้าไปใหม่
    
86.             '// INSERT ข้อมูลปัจจุบันจากตารางกริด เข้าไปใหม่ในตาราง InvoiceDetail ด้วยการ Loop ข้อมูลจากตารางกริด
    
87.             For iRow = 0 To dgvData.RowCount - 1
    
88.                 strSQL = _
    
89.                     " INSERT INTO InvoiceDetail(" & _
    
90.                     " InvoicePK, ProductFK, Quantity, UnitPrice ,TotalAmount) " & _
    
91.                     " VALUES(" & _
    
92.                     "'" & PK & "'," & _
    
93.                     "'" & dgvData.Rows(iRow).Cells(0).Value & "'," & _
    
94.                     "'" & dgvData.Rows(iRow).Cells(3).Value & "'," & _
    
95.                     "'" & dgvData.Rows(iRow).Cells(4).Value & "'," & _
    
96.                     "'" & dgvData.Rows(iRow).Cells(5).Value & "'" & _
    
97.                     ")"
    
98.                 '// UPDATE
    
99.                 Call DoSQL(strSQL)
    
100.             Next
     
101.             '// -----------------------------------------------------------------
     
102.             '// ปรับสต็อคใหม่
     
103.             '// จำนวนคงเหลือ = จำนวนคงเหลือ + จำนวนการขายเดิม (หลักที่ 6 - Qty) - จำนวนสินค้าที่ขายใหม่ (หลักที่ 3 - Quantity)
     
104.             '// ตอนนี้จะทำงานเฉพาะตารางข้อมูลสินค้าเท่านั้น (tblProduct)
     
105.             For iRow = 0 To dgvData.RowCount - 1
     
106.                 strSQL = _
     
107.                     " UPDATE Product SET " & _
     
108.                     " Stocked = Stocked + '" & CLng(dgvData.Rows(iRow).Cells(6).Value) - CLng(dgvData.Rows(iRow).Cells(3).Value) & "'" & _
     
109.                     " WHERE ProductPK = " & CLng(dgvData.Rows(iRow).Cells(0).Value) & ""
     
110.                 '// UPDATE
     
111.                 Call DoSQL(strSQL)
     
112.             Next
     
113.             MessageBox.Show("ปรับปรุงข้อมูลเรียบร้อย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
114. 
     
115.         Catch ex As Exception
     
116.             MessageBox.Show(ex.Message)
     
117.         End Try
     
118.     End Sub

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

In Line Edit ... แอดมินขอนำเสนอเรื่องของ In Line Edit คือการที่ผู้ใช้งานสามารถแก้ไขข้อมูลจำนวนสินค้า (เลขจำนวนเต็ม) และราคาสินค้า (เลขทศนิยม) ได้ในรายการขายสินค้านั้นๆในเซลล์ของตารางกริดได้ทันที เพื่ออำนวยความสะดวกให้กับผู้ใช้งาน ... เหตุการณ์ทั้งหมดจะอยู่ที่ Events ของ DataGridView




โค้ดในการควบคุมเซลล์ของตารางกริด ... ต้องใช้การทำ Debugger (F8) ถึงจะสามารถเข้าใจขั้นตอนการทำงานได้ดีครับผม

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / Before Edit Data
   
3.     Private Sub dgvData_CellBeginEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dgvData.CellBeginEdit
   
4.         Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
   
5.         Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
   
6.         dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
   
7.         ' / Summary
   
8.         Call CalSumTotal()
   
9.     End Sub
   
10. 
    
11.     ' / --------------------------------------------------------------------------------
    
12.     ' / After you press Enter
    
13.     Private Sub dgvData_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit
    
14. 
    
15.         Select Case e.ColumnIndex
    
16.             Case 3, 4 ' Column Index = 3 (Quantity), Column Index = 4 (UnitPrice)
    
17.                 ' Quantity, If Null Value
    
18.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = 0
    
19.                 Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
    
20.                 '/------------------------------------------------------------
    
21.                 ' Keep original value in temporary. (Tag Properties)
    
22.                 dgvData.Tag = Quantity
    
23.                 '/------------------------------------------------------------
    
24.                 If Quantity <= 0 Then
    
25.                     dgvData.Rows(e.RowIndex).Cells(3).Value = 1
    
26.                     Quantity = 1
    
27.                 End If
    
28. 
    
29.                 ' / ----------------------------------------------------------------------------
    
30.                 ' / UNIT PRICE = Index = 4
    
31.                 ' UnitPrice, If Null Value
    
32.                 If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = 0.0
    
33.                 Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
    
34.                 ' / ----------------------------------------------------------------------------
    
35.                 ' Quantity x UnitPrice
    
36.                 dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
    
37.                 ' / SUM
    
38.                 CalSumTotal()
    
39. 
    
40.         End Select
    
41.     End Sub
    
42. 
    
43.     ' / --------------------------------------------------------------------------------
    
44.     Private Sub dgvData_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
    
45.         Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
    
46.             ' / Can use both ColumeIndex or Field Name
    
47.             Case "Quantity", "UnitPrice"
    
48.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
    
49.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
    
50.         End Select
    
51.     End Sub
    
52. 
    
53.     ' / --------------------------------------------------------------------------------
    
54.     ' / ดักการกดคีย์ลงในหลัก 3 (Quantity) ซึ่งเป็นเลขจำนวนเต็ม
    
55.     Private Sub ValidKeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs)
    
56.         Dim tb As TextBox = sender
    
57.         Select Case dgvData.CurrentCell.ColumnIndex
    
58.             Case 3  ' Quantity is Integer
    
59.                 Select Case e.KeyChar
    
60.                     Case "0" To "9"   ' digits 0 - 9 allowed
    
61.                     Case ChrW(Keys.Back)    ' backspace allowed for deleting (Delete key automatically overrides)
    
62.                     Case Else ' everything else ....
    
63.                         'True = CPU cancel the KeyPress event
    
64.                         e.Handled = True ' and it's just like you never pressed a key at all
    
65.                 End Select
    
66. 
    
67.                 ' / UnitPrice is Double
    
68.             Case 4
    
69.                 Select Case e.KeyChar
    
70.                     Case "0" To "9"
    
71.                         ' Allowed "."
    
72.                     Case "."
    
73.                         ' can present "." only one
    
74.                         If InStr(tb.Text, ".") Then e.Handled = True
    
75. 
    
76.                     Case ChrW(Keys.Back)
    
77.                         'Case ChrW(Keys.Delete)
    
78.                     Case Else
    
79.                         e.Handled = True
    
80.                 End Select
    
81.         End Select
    
82.     End Sub

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

โค้ดในส่วนของการค้นหาสินค้า และให้คืนค่า ProductPK กลับคืนมาให้ฟอร์มหลัก ... แอดมินเขียนคอมเมนท์เอาไว้ให้ถึงวิธีการคืนค่ากลับ สามารถทำได้หลายวิธี ก็ลองไปคิดเพิ่มเติมดูกันน่ะครับ

1. Imports System.Data.OleDb
   
2. 
   
3. Public Class frmSearchProduct
   
4. 
   
5.     '// โค้ดชุดนี้แสดงตัวอย่างของการแสดงผลรายการสินค้าทั้งหมด ด้วยการใช้ DataSet (ListtAllDataSet)
   
6.     '// ส่วนการค้นหาจะใช้ DataReader (SearchDataReader)
   
7.     '// การใช้งานจริงจะใช้อย่างใดอย่างหนึ่งเท่านั้นก็ได้ครับผม
   
8. 
   
9.     '/ เกิดเหตุการณ์ดับเบิ้ลคลิ๊กในแต่ละแถวของตารางกริด จะคืนค่า ProductPK กลับไปให้กับฟอร์ม (frmInvoiceDetail.vb) ที่เรียกมันมา
   
10.     Private Sub dgvData_CellDoubleClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellDoubleClick
    
11.         ' / ส่งค่า ProductPK ที่ถูกซ่อนในหลักแรก (Index = 0) กลับคืนไป
    
12.         ' / ---- มีหลายวิธีในการคืนค่ากลับไป โดยที่ไม่ต้องกลับไปค้นหารายการสินค้าใหม่ เช่น ส่งกลับแบบ Array หรือ List ----
    
13.         ' / ไปลองคิดค้นหาวิธีการเพิ่มเติมด้วยล่ะกันครับ
    
14.         SearchPK = dgvData.Item(0, dgvData.CurrentRow.Index).Value
    
15.         Me.Close()
    
16.     End Sub
    
17. 
    
18.     Private Sub frmSearchProduct_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
19.         Me.Dispose()
    
20.         GC.SuppressFinalize(Me)
    
21.     End Sub
    
22. 
    
23.     Private Sub frmSearchProduct_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
24.         Me.CenterToScreen()
    
25.         Me.Text = "ค้นหารายการสินค้า"
    
26.         txtSearch.Text = ""
    
27.         '// แสดงรายการทั้งหมดด้วยการใช้ DataSet
    
28.         Call ListAllDataSet()
    
29.         lblRecordCount.Text = "[จำนวน : " & dgvData.RowCount & " รายการ.]"
    
30.     End Sub
    
31. 
    
32.     Private Sub txtSearch_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress
    
33.         ' ดักจับตัวอักขระอันไม่พึงปรารถนาสำหรับฐานข้อมูล เช่น ', * หรือ %
    
34.         txtSearch.Text = txtSearch.Text.Trim.Replace("'", "").Replace("%", "").Replace("*", "")
    
35.         If Trim(txtSearch.Text) = "" Or Len(Trim(txtSearch.Text)) = 0 Then Exit Sub
    
36.         '/ ค้นหาข้อมูลด้วยการใช้ DataReader
    
37.         If e.KeyChar = Chr(13) Then
    
38.             e.Handled = True
    
39.             Call SearchDataReader()
    
40.         End If
    
41.     End Sub
    
42. 
    
43.     ' / ----------------------------------------------------------------------------------------
    
44.     ' / Show All Data with DATASET
    
45.     Private Sub ListAllDataSet()
    
46.         strSQL = _
    
47.                 " SELECT Product.ProductPK, Product.ProductID, Product.ProductName, Product.Stocked, Product.UnitPrice " & _
    
48.                 " FROM Product " & _
    
49.                 " WHERE " & _
    
50.                 " ProductID LIKE '%" & txtSearch.Text & "%'" & _
    
51.                 " OR " & _
    
52.                 " ProductName LIKE '%" & txtSearch.Text & "%'" & _
    
53.                 " ORDER BY ProductPK, ProductID "
    
54.         DS.Clear()
    
55.         Try
    
56.             ' ยัดใส่ตารางที่มาจากการทำ Query ให้กับ DataAdapter
    
57.             DA = New OleDb.OleDbDataAdapter(strSQL, Conn)
    
58.             DA.Fill(DS, "Product")
    
59.             ' / --------------------------------------------------------------------------------
    
60.             ' / B O U N D --- D A T A --- C O N T R O L
    
61.             ' / Bind Data into DataGridView
    
62.             dgvData.DataSource = DS.Tables("Product")
    
63.             ' / --------------------------------------------------------------------------------
    
64.             ' ตั้งค่าคุณสมบัติ DataGridView
    
65.             Call SetupDataGrid()
    
66.             lblRecordCount.Text = "[จำนวน : " & dgvData.RowCount & " รายการ.]"
    
67.             DS.Dispose()
    
68.             DA.Dispose()
    
69.         Catch ex As Exception
    
70.             MessageBox.Show(ex.Message)
    
71.         End Try
    
72.         txtSearch.Focus()
    
73.         txtSearch.Text = ""
    
74.     End Sub
    
75. 
    
76.     ' / ----------------------------------------------------------------------------------------
    
77.     ' / Search with DATAREADER
    
78.     Private Sub SearchDataReader()
    
79.         strSQL = _
    
80.                 " SELECT Product.ProductPK, Product.ProductID, Product.ProductName, Product.Stocked, Product.UnitPrice " & _
    
81.                 " FROM Product " & _
    
82.                 " WHERE " & _
    
83.                 " ProductID LIKE '%" & txtSearch.Text & "%'" & _
    
84.                 " OR " & _
    
85.                 " ProductName LIKE '%" & txtSearch.Text & "%'" & _
    
86.                 " ORDER BY ProductPK, ProductID "
    
87.         '//
    
88.         Try
    
89.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
90.             Cmd = New OleDb.OleDbCommand(strSQL, Conn)
    
91.             Dim Reader As OleDb.OleDbDataReader = Cmd.ExecuteReader
    
92.             Dim DT As DataTable = New DataTable
    
93.             DT.Load(Reader)
    
94.             dgvData.DataSource = DT
    
95.             DT.Dispose()
    
96.             Call SetupDataGrid()
    
97. 
    
98.         Catch ex As Exception
    
99.             MessageBox.Show(ex.Message)
    
100.         End Try
     
101.         lblRecordCount.Text = "[จำนวน : " & dgvData.RowCount & " รายการ.]"
     
102.         txtSearch.Text = ""
     
103.         txtSearch.Focus()
     
104.     End Sub
     
105. 
     
106.     ' / --------------------------------------------------------------------------------
     
107.     ' ตั้งค่าคุณสมบัติ DataGridView
     
108.     Private Sub SetupDataGrid()
     
109.         With dgvData
     
110.             .RowHeadersVisible = True
     
111.             .AllowUserToAddRows = False
     
112.             .AllowUserToDeleteRows = False
     
113.             .AllowUserToResizeRows = False
     
114.             .MultiSelect = False
     
115.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
116.             .ReadOnly = True
     
117.             '// Data rows
     
118.             .Font = New Font("Tahoma", 9)
     
119.             .RowTemplate.MinimumHeight = 28
     
120.             .RowTemplate.Height = 28
     
121.             '// ซ่อนหลัก 0 ProductPK
     
122.             .Columns(0).Visible = False
     
123.             .Columns("ProductID").HeaderText = "รหัสสินค้า"
     
124.             .Columns("ProductName").HeaderText = "ชื่อสินค้า"
     
125.             With .Columns("Stocked")
     
126.                 .HeaderText = "จำนวนที่มีอยู่"
     
127.                 .DefaultCellStyle.Format = "n0"
     
128.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
129.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
130.             End With
     
131.             With .Columns("UnitPrice")
     
132.                 .HeaderText = "ราคาขาย"
     
133.                 .DefaultCellStyle.Format = "n2"
     
134.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
135.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
136.             End With
     
137.             '// Column Header
     
138.             .ColumnHeadersHeight = 30
     
139.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
140.             '// Autosize Column
     
141.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
142.             '// Even-Odd Color
     
143.             '// แสดงสีสลับแถวคู่-คี่
     
144.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
145.             With .ColumnHeadersDefaultCellStyle
     
146.                 .BackColor = Color.Navy
     
147.                 .ForeColor = Color.Black
     
148.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
149.             End With
     
150.         End With
     
151.     End Sub
     
152. 
     
153.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
154.         Me.Close()
     
155.     End Sub
     
156. 
     
157. 
     
158. End Class

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

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

zazaza771

ขอบคุณครับ

MMEE007

ขอบคุณครับ

pradit

ขอบคุณมากครับ

MrDen

Oh ! ...  Yes s s ...  แมน ของ ที่ อยากได้ เลย..  ขอให้ร่ำรวยๆ อย่าเจ็บอย่าไข้ อยู่เป็นร่มโพธิร่มไทร ตลอดไป.. ขอบพระคุณอย่างสูงครับ อาจารย์ (คำได๋พิมพ์ผิด ขออภัยนำ คับ)

hot2

ขอบคุณครับ

maisurin

น่าจะมีแบบฐานข้อมูล Sql Server บ้างอ่ะคับจารย์มีแต่ Access สะส่วนใหญ่มือใหม่อ่านแล้วงงตืบ

thongkorn

maisurin ตอบกลับเมื่อ 2020-9-3 15:37
น่าจะมีแบบฐานข้อมูล Sql Server บ้างอ่ะคับจารย์มีแต่ Access สะส่วนใหญ่มือใหม่อ่านแล้วงงตืบ

โค้ดที่ใช้จะเหมือนกันหมดครับ ทั้ง Access และ SQL Server แตกต่างกันที่การ Connection และการเรียกใช้งานกลุ่มบรรดาคำสั่งของ ADO.NET เช่น DataAdapter, Command เป็นต้น เท่านั้นเอง แต่ที่งงๆกันน่ะ คือวิธีการเขียนโค้ดของผม ที่ไม่มีอยู่ในเว็บ หรือตามหนังสือครับผม 5555+

MMEE007

ขอบคุณครับ

MMEE007

ขอบคุณคัพอาจารย์