ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 5562|ตอบกลับ: 2

[VB.NET] แจกโค้ดการกำหนดปุ่มคำสั่งแบบ RunTime และทดสอบข้อมูลด้วย DataTable โปรเจคทองก้อนเบอเกอร์แดนซ์

[คัดลอกลิงก์]

320

กระทู้

512

โพสต์

6583

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
6583


มาว่ากันอย่างต่อเนื่องไปเลยครับ จะได้รู้ว่า การเขียนโปรแกรมน่ะมันไม่ยากหรอก แต่การออกแบบจัดเรียงลำดับขั้นตอน ซอกซอนแยกย่อยออกเป็นส่วนๆ เพื่อหาคำตอบนี่ซิ คือความหมายของการเขียนโปรแกรมอย่างแท้จริง จากภาคแรกอินโทร [VB.NET] แจกฟรีโค้ดต้นฉบับ โปรแกรมต้นแบบร้านทองก้อนเบอเกอร์แดนซ์  เราจะเห็นได้ว่าการกำหนดปุ่มคำสั่ง (Button Control) มันเป็นแบบ Static ทั้งการโหลดภาพและกำหนดข้อมูลต่างๆในแบบ Design Time มาตอนนี้ก็จะยังเป็น Design Time อยู่เหมือนเดิมนั่นแหละครับ แต่จะเริ่มเป็น Dynamic มากขึ้นกว่าเดิม ด้วยการกำหนดค่าต่างๆของปุ่มคำสั่งในแบบ Run Time และ จะใช้ DataTable เพื่อจำลองข้อมูล ก่อนจะนำไปออกแบบในงานจริงอีกที นอกจากนี้ยังเพิ่มการตรวจสอบการซื้อสินค้ารายการเดียวกัน แต่เพิ่มจำนวน (Quantity) เข้าไป แทนการเพิ่มแถว (Add Row) ... ที่ว่ามานี้ ยังไม่ได้ใช้งานฐานข้อมูลอีกแล้วครับท่าน ...

มาดูข้อมูลตุ๊กตาที่ถูกสร้างไว้ใน DataTable
  1.     ' / ---------------------------------------------------------------
  2.     '// ตัวอย่างเป็นตารางข้อมูล (Table)
  3.     Function GetTable() As DataTable
  4.         DT = New DataTable
  5.         '/ Add columns.
  6.         DT.Columns.Add("PK", GetType(Integer))
  7.         DT.Columns.Add("Description", GetType(String))
  8.         DT.Columns.Add("UnitPrice", GetType(Double))
  9.         DT.Columns.Add("Quantity", GetType(Integer))
  10.         DT.Columns.Add("Picture", GetType(String))
  11.         '// Add rows.
  12.         '// PK, Desciption, UnitPrice, Quantity (เผื่อเอาไว้สำหรับหากมีการนับสต็อก), Picture
  13.         DT.Rows.Add(1, "Classic Checken", "45.00", 1, "BurgerChicken.png")
  14.         DT.Rows.Add(2, "Mexicana", "85.00", 1, "BurgerMexicana.png")
  15.         DT.Rows.Add(3, "Lemon Shrimp", "110.00", 1, "BurgerLemonShrimp.png")
  16.         DT.Rows.Add(4, "Bacon", "90.00", 1, "BurgerBacon.png")
  17.         DT.Rows.Add(5, "Spicy Shrimp", "120.00", 1, "BurgerSpicyShrimp.png")
  18.         DT.Rows.Add(6, "Tex Supreme", "80.00", 1, "BurgerTexSupreme.png")
  19.         DT.Rows.Add(7, "Fish", "100.00", 1, "BurgerFish.png")
  20.         '//
  21.         Return DT
  22.     End Function
คัดลอกไปที่คลิปบอร์ด
ตัวอย่างที่ลองออกแบบกับ DataTable ... ไม่ว่างานไหนงานนั้น แอดมินชอบหลบซ่อนตัว PK หรือย่อมาจาก Primary Key ซึ่งถือว่าเป็นกุญแจหลักเสมอ

การกำหนดค่าคุณสมบัติให้กับปุ่มคำสั่งแบบ Run Time
  1.         '// Acquire the DataTable instance.
  2.         DT = GetTable()
  3.         Dim row As DataRow
  4.         Dim img As String
  5.         '// ใส่ปุ่มทั้งหมดในอาร์เรย์หรือคอลเล็กชันอื่นๆ เช่น List (Of Button)
  6.         Dim myButtons = {btnBurger1, btnBurger2, btnBurger3, btnBurger4, btnBurger5, btnBurger6, btnBurger7}
  7.         Dim Rec As Integer = 0
  8.         '/ โหลดรายละเอียดของปุ่มคำสั่ง @RunTime
  9.         For Each btn In myButtons
  10.             row = DT.Rows(Rec)
  11.             With btn
  12.                 .Tag = row("PK")
  13.                 .Text = row("Description")
  14.                 img = strPathImage & row("Picture")
  15.                 .BackgroundImage = New System.Drawing.Bitmap(img)
  16.             End With
  17.             Rec += 1
  18.         Next
คัดลอกไปที่คลิปบอร์ด
โปรดสังเกตเล็กๆว่า แอดมินนำค่า PK ไปซ่อนไว้ในคุณสมบัติ Tag ของ Button เพราะเราจะใช้ค่านี้ทำ Query รายละเอียดของสินค้าชิ้นนี้ เช่น ราคา จำนวนในสต็อก

เมื่อเกิดการกดปุ่มคำสั่ง
  1.     Private Sub btnBurger1_Click(sender As System.Object, e As System.EventArgs) Handles btnBurger1.Click
  2.         '// หากนำไปใช้งานจริง ข้อมูลของตัวสินค้าจะถูกเรียกมาจากตารางข้อมูล
  3.         '// เมื่อคลิ๊กกดปุ่ม จะค้นหาข้อมูลด้วยค่า PK (Primary Key) ที่ถูกซ่อนเอาไว้ในคุณสมบัติ TAG ของ Button
  4.         Dim oRow() As DataRow = DT.Select("PK = " & btnBurger1.Tag)
  5.         '//
  6.         Call AddRow(oRow(0)("PK"), btnBurger1.Text, CDbl(oRow(0)("UnitPrice")))
  7.     End Sub
คัดลอกไปที่คลิปบอร์ด
การค้นหา PK จาก DataRow ด้วยค่า PK ที่ถูกซ่อนไว้ใน Tag ... แต่ทว่าหากเรามี 200 ปุ่มคำสั่ง เราก็ต้องสร้างเหตุการณ์แบบนี้ขึ้นมาใหม่หมดทั้ง 200 รายการ ซึ่งแบบมันก็คงไม่ไหวหรอกครับ มันมีวิธีแก้ปัญหาที่ดีกว่านี้ ซึ่งผมมองข้ามช็อตไปแล้ว ... คุณล่ะ???

การเพิ่มรายการและจำนวนสินค้า
  1.     ' / ---------------------------------------------------------------
  2.     ' / เพิ่มรายการแถวใหม่ (UnBound Data)
  3.     Private Sub AddRow(ByVal PK As Integer, ByVal Description As String, ByVal UnitPrice As Double)
  4.         Dim blnExist As Boolean = False
  5.         For Rec As Integer = 0 To dgvData.RowCount - 1
  6.             ' / หากพบ Primary Key ในหลัก 0 มาตรงกันกับค่าในแถวของตารางกริด
  7.             If dgvData.Rows(Rec).Cells(0).Value = PK Then
  8.                 ' / ให้บวกจำนวนที่เลือกเพิ่มขึ้นอีก 1 (Quantity = Quantity + 1)
  9.                 dgvData.Rows(Rec).Cells(3).Value = dgvData.Rows(Rec).Cells(3).Value + 1
  10.                 blnExist = True
  11.                 '// เมื่อพบแล้วก็ให้เด้งออกจาก For ไปเลยทันที จะได้ไม่ต้องเสียเวลาวนรอบใหม่
  12.                 Exit For
  13.             End If
  14.         Next
  15.         '// หากไม่พบข้อมูลที่อยู่ในตารางกริด ก็ให้เพิ่มแถวใหม่
  16.         If Not blnExist Then
  17.             Dim row As String() = New String() {PK, Description, Format(CDbl(UnitPrice), "#,##0.00"), 1}
  18.             dgvData.Rows.Add(row)
  19.         End If
  20.         '// โฟกัสไปที่ DataGridView แล้วย้ายไปแถวล่าสุด
  21.         dgvData.Focus()
  22.         SendKeys.Send("^{END}")
  23.     End Sub
คัดลอกไปที่คลิปบอร์ด
เกิดจากการวนรอบในแถวทั้งหมดของตารางกริด โดยเอาค่า PK ที่อยู่ใน Tag ของปุ่มคำสั่ง ไปเปรียบเทียบกับหลักแรก (Index = 0) ที่เราซ่อนมันเอาไว้ ในแต่ละแถวของตารางกริด ซึ่งมันก็คือค่า PK เช่นเดียวกัน หากมีค่าตรงกันก็ให้เพิ่ม 1 แล้วออกจาก For Loop แต่หากหาไม่พบก็แสดงว่าเป็นข้อมูลใหม่ ก็ให้เพิ่มแถวเข้าไป ... หลักการคิดก็มีแค่นี้เอง หมูน้อยร้องเหมียวๆเลยมั้ย

การลบรายการสินค้า
  1.     ' / ---------------------------------------------------------------
  2.     Private Sub btnRemove_Click(sender As System.Object, e As System.EventArgs) Handles btnRemove.Click
  3.         If dgvData.RowCount <= 0 Then Exit Sub
  4.         dgvData.Focus()
  5.         '// ใช้หลัก PK (ที่ถูกซ่อน) เป็นกุญแจหลักในการอ้างอิง
  6.         Dim PK As Integer = dgvData.CurrentRow.Cells(0).Value
  7.         '// หาแถวที่เลือก
  8.         Dim Rec As Integer = dgvData.CurrentRow.Index
  9.         '/ หากแถวที่เลือกมีจำนวนเท่ากับ 1 ก็ให้ลบแถวออกไป
  10.         If dgvData.Rows(Rec).Cells(3).Value = 1 Then
  11.             dgvData.Rows.Remove(dgvData.CurrentRow)
  12.             '/ หากแถวที่เลือกมีจำนวนมากกว่า 1
  13.         Else
  14.             ' / ให้ลบจำนวนลง 1 (Quantity = Quantity - 1)
  15.             dgvData.Rows(Rec).Cells(3).Value = dgvData.Rows(Rec).Cells(3).Value - 1
  16.         End If
  17.     End Sub
คัดลอกไปที่คลิปบอร์ด
ก็โฟกัสไปแถวที่เลือก (CurrentRow) จากนั้นไปดูที่หลัก 4 (Index = 3) ตรวจสอบว่ามีค่ามากกว่า 1 หรือไม่ หากใช่ให้ลบออก 1 แต่หากมีค่าเท่ากับ 1 ก็ลบแถวนั้นทิ้งไป ... หลักการคิดก็มีแค่นี้เอง แมวเหมียวร้องอู๊ดๆอีกแล้วครับท่าน 5555+

Conclusion: มาถึง ณ จุดนี้ (ได้ยังไง) ก็ยังไม่มีการเชื่อมต่อเข้ากับตารางข้อมูลแต่อย่างใด แต่เป็นการเขียนโปรแกรมขึ้นมาเพื่อทดสอบ โดยมองมายังคำตอบ คำตอบที่ว่าก็คือ เรามีฟิลด์ข้อมูลอะไรบ้างที่ต้องใช้ต้องเก็บ จากนั้นก็กลับไปตั้งหลักเพื่อเอาคำตอบมาช่วยในการออกแบบ วิธีการนี้แอดมินเรียกมันว่า Backward Algorithm นั่นเอง
ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) แบบเต็มได้ที่

ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

x
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

4

โพสต์

142

เครดิต

Member

Rank: 2

เครดิต
142
โพสต์ 2017-11-14 13:47:09 | ดูโพสต์ทั้งหมด

ขอบพระคุณครับ ...

0

กระทู้

51

โพสต์

232

เครดิต

Full Member

Rank: 3Rank: 3

เครดิต
232
โพสต์ 2017-11-16 13:40:31 | ดูโพสต์ทั้งหมด

Thank you very much ครับผม

0

กระทู้

3

โพสต์

75

เครดิต

Member

Rank: 2

เครดิต
75
โพสต์ 2017-12-4 22:55:40 | ดูโพสต์ทั้งหมด

ขอบคุณมากครับ   
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-11-27 21:25 , Processed in 0.219179 second(s), 5 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้