แสดงรายการห้องพัก ว่าห้องไหนโดนเข้าพักแล้ว

araban_110

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


            Dim SQL As String = " SELECT * FROM tb_booking WHERE checkIn >= #" & startDt & "#  AND checkOut <= #" & endDt & "#  "e
            Dim cmd As New OleDbCommand(SQL, conn)
            If conn.State = ConnectionState.Open Then conn.Close()
            conn.Open()
            Dim reader As OleDbDataReader = cmd.ExecuteReader()


            While reader.Read()
                Dim Start_Date As DateTime = reader.GetValue(10)
                Dim End_Date As DateTime = reader.GetValue(11)
                Dim Start_Date_C As Integer = Start_Date.Day
                Dim End_Date_C As Integer = End_Date.Day
                DVG_Calendar(Start_Date_C, End_Date_C).Style.BackColor = Color.Red

            End While

thongkorn

ผมเขียนโค้ดเป็นตัวอย่างให้ดูเผื่อเป็นแนวทางก็ล่ะกันครับ โดยใช้ข้อมูลสมมุติแทน เวลานำไปใช้งานจริงก็ต้องดึงข้อมูลจากตาราง ซึ่งก็ขึ้นอยู่กับการออกแบบ จากภาพตัวอย่างที่ให้ผมมาดู เช่น ห้อง 305 จะมีการจองไว้ได้มากกว่า 1 วัน ผมก็เลยใช้ List(Of Integer) เข้ามาช่วย ...

*** แนะนำให้ใช้พวก Schedule Control เช่น DevExpress มาใช้งานแทนจะดีกว่าการใช้ตารางกริดครับ ***

โค้ดตัวอย่าง ... ตัดแปะโค้ดไปวางแปะไว้ในฟอร์มได้เลย เพราะผมไม่ได้ลาก DataGridView มาใส่ไว้บนฟอร์ม

1. Public Class frmBooking
   
2.     '// สร้างคลาสสำหรับเก็บข้อมูลการจองห้อง
   
3.     Public Class RoomBookingInfo
   
4.         '// Status เก็บสถานะของห้อง (Available, Occupied, Booked)
   
5.         Public Property Status As String
   
6.         '// BookedDates เก็บรายการวันที่ที่ถูกจอง List(Of Integer) ตัวอย่างคือสามารถจองได้หลายวัน เช่น 10, 11, 12
   
7.         Public Property BookedDates As List(Of Integer)
   
8. 
   
9.         '// สถานะ และวันที่ๆระบุ
   
10.         Public Sub New(status As String, bookedDates As List(Of Integer))
    
11.             Me.Status = status
    
12.             Me.BookedDates = bookedDates
    
13.         End Sub
    
14.     End Class
    
15. 
    
16.     Public Sub New()
    
17.         InitializeComponent()
    
18.         LoadRoomStatus()
    
19.     End Sub
    
20. 
    
21.     Private Sub LoadRoomStatus()
    
22.         '// สร้าง DataGridView และเพิ่มคอลัมน์สำหรับวันที่ 1-31
    
23.         Dim dgv As New DataGridView()
    
24.         dgv.Dock = DockStyle.Fill
    
25.         Me.Controls.Add(dgv)
    
26.         '// ปรับรูปแบบของตารางกริด
    
27.         dgv.RowHeadersVisible = False
    
28.         dgv.AllowUserToAddRows = False
    
29.         dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
30. 
    
31.         '// เพิ่มคอลัมน์ "Room" และวันที่ 1-31
    
32.         dgv.Columns.Add("Room", "Room")
    
33.         For day As Integer = 1 To 31
    
34.             dgv.Columns.Add(day.ToString(), day.ToString())
    
35.         Next
    
36. 
    
37.         '// ข้อมูลการจองห้อง โดยใช้คลาส RoomBookingInfo (ส่วนนี้เราได้มาจากการอ่านค่าในตารางข้อมูล)
    
38.         '// RoomBookingInfo จะประกอบด้วย สถานะของห้องและวันที่ในการจองห้อง (จองได้หลายวัน)
    
39.         Dim roomBookings As New Dictionary(Of String, RoomBookingInfo) From {
    
40.             {"101", New RoomBookingInfo("Occupied", New List(Of Integer)())},
    
41.             {"102", New RoomBookingInfo("Occupied", New List(Of Integer)())},
    
42.             {"105", New RoomBookingInfo("Booked", New List(Of Integer) From {10, 11, 12})},
    
43.             {"201", New RoomBookingInfo("Available", New List(Of Integer)())},
    
44.             {"202", New RoomBookingInfo("Available", New List(Of Integer)())},
    
45.             {"203", New RoomBookingInfo("Booked", New List(Of Integer) From {20})}
    
46.         }
    
47.         '// เพิ่มแถวสำหรับแต่ละห้อง
    
48.         For Each room In roomBookings.Keys
    
49.             Dim row As New DataGridViewRow()
    
50.             row.CreateCells(dgv)
    
51.             row.Cells(0).Value = room '// ใส่หมายเลขห้องในคอลัมน์แรก
    
52. 
    
53.             '// ตรวจสอบสถานะของห้องและวันที่
    
54.             For day As Integer = 1 To 31
    
55.                 Dim cellIndex As Integer = day '// ดัชนีของเซลล์เริ่มจาก 1 (วันที่ 1)
    
56.                 Dim status As String = roomBookings(room).Status
    
57.                 Dim bookedDates As List(Of Integer) = roomBookings(room).BookedDates
    
58. 
    
59.                 '// ตรวจสอบสถานะและตั้งค่าสีพื้นหลัง
    
60.                 If status = "Available" Then
    
61.                     row.Cells(cellIndex).Style.BackColor = Color.White
    
62.                 ElseIf status = "Occupied" Then
    
63.                     row.Cells(cellIndex).Style.BackColor = Color.LightBlue
    
64.                 ElseIf status = "Booked" AndAlso bookedDates.Contains(day) Then
    
65.                     row.Cells(cellIndex).Style.BackColor = Color.Red
    
66.                 Else
    
67.                     row.Cells(cellIndex).Style.BackColor = Color.White
    
68.                 End If
    
69.             Next
    
70. 
    
71.             '// เพิ่มแถวลงใน DataGridView
    
72.             dgv.Rows.Add(row)
    
73.         Next
    
74.     End Sub
    
75. End Class

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

araban_110

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