Luận Văn Quản Lý Khách Sạn Và Đặt Phòng Trực Tuyến

Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phịng trực tuyến CHƯƠNG I: MƠ TẢ BÀI TỐN VÀ GIẢI PHÁP I QUÁ TRÌNH HOẠT ĐỘNG CỦA KHÁCH SẠN Bộ máy quản lý khách sạn bao gồm: Hội đồng quản trị, Ban giám đốc, Phó giám đốc, phịng ban (Phịng kế tốn, phịng kinh doanh, phịng tổ chức – hành chính), tổ; bố trí theo sơ đồ sau: Hỗ trợ ôn tập Trường ĐHDL Hải Phịng [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến HỘI ĐỒNG QUẢN TRỊ GIÁM ĐỐC PHÒNG KINH DOANH BỘ PHẬN LỄ TÂN BỘ PHẬN NHÀ PHỊNG PHĨ GIÁM ĐỐC PHỊNG KẾ TỐN BỘ PHẬN NHÀ HÀNG VÀ BẾP BỘ PHẬN AN NINH SỬA CHỬA BỘ PHẬN DỊCH VỤ PHỊNG TỔ CHỨC - HÀNH CHÍNH BỘ PHẬN NHÂN SỰ BỘ PHẬN BACK OFFICE Hình 1.1: Sơ đồ máy quản lý khách sạn Khách sạn hình thành từ phòng, tổ quan hệ mật thiết hỗ trợ Mỗi phịng ban có tổ chức rõ ràng, không chồng chéo Mọi hoạt động quản lý, sản xuất kinh doanh khách sạn đạo Ban giám đốc Ban giám đốc chịu trách nhiệm với hội đồng quản trị cấp chịu trách nhiệm trước tập thể cán công nhân viên công ty Giám đốc người chịu trách nhiệm khách sạn người chịu trách nhiệm trực tiếp với hội đồng quản trị cấp trước tập thể cán cơng nhân viên Phó giám đốc hành chịu trách nhiệm trước giám đốc cơng tác tổ chức, lao động, làm công tác khen thưởng, kỷ luật, quản trị hành chính, lưu trữ văn thư Trường ĐHDL Hải Phịng Hỗ trợ ơn tập Đồ án tốt nghiệp [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Quản lý khách sạn đặt phòng trực tuyến Phòng kinh doanh chịu trách nhiệm trước ban giám đốc chuyên sâu vấn đề tổ chức kinh doanh khách sạn để đạt hiệu cao, đem lại nhiều lợi nhuận cho khách sạn Bộ phận kế toán chịu trách nhiệm trước ban giám đốc khách sạn, phận gồm có kế tốn trưởng kế tốn viên, có trách nhiệm thực hoạt động kế hoạch tài cà cơng tác kế tốn, cụ thể lập kế hoạch tài chính, dự trù ngân sách hàng năm, tổ chức theo dõi việc thu chi khách sạn, chi trả lương, định giá thành kiểm soát hoạt động tài Bộ phận lễ tân, Bộ phận nhà phòng, Bộ phận nhà hàng bếp, Bộ phận dịch vụ, Bộ phận an ninh – sửa chữa, Bộ phận nhân sự, Bộ phận back office - chịu trách nhiệm trực tiếp với phòng kinh doanh giám đốc Bộ phận lễ tân cầu nối khách hàng khách sạn Quy trình đặt phịng qua mạng: Sau truy vấn thông tin khách sạn mạng, khách hàng lựa chọn việc đặt phịng khách sạn thơng qua website Để đăng ký đặt phịng, khách có nhu cầu cần phải đăng ký account cho website khách sạn – account gồm có địa Email hoạt động password khách Khi tiến hành lựa chọn phòng thuê, khách đăng nhập vào website thơng qua account (hoặc đăng nhập sau lựa chọn phòng phù hợp với u cầu mình), sau chọn loại phịng muốn đăng ký Từ yêu cầu đặt phòng khách, hệ thống website tự động kiểm tra sỡ liệu đưa phịng có loại phòng khách yêu cầu Từ danh sách phòng mà website đưa ra, khách hàng tìm phịng theo yêu cầu họ, họ đánh dấu vào phòng chọn, điền thơng tin bắt buộc khơng bắt buộc (những thơng tin điền khơng) như: chọn loại phịng, ngày nhận phịng (Ngày nhận phòng phải sau ngày đặt phòng tối thiều ngày), ngày trả phòng, số lượng phòng, số người (số người lớn số trẻ em), họ tên khách (người đăng ký), giới tính, số Hỗ trợ ơn tập Trường ĐHDL Hải Phịng [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Hỗ trợ ôn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến partpost số chứng minh thư nhân dân, số tài khoản, địa liên lạc, số điện thoại, số fax (nếu có), tên nước…; chọn chức “đặt phịng” Thơng tin đặt phòng khách gửi ban quản lý để xử lý Danh sách phòng đặt khách thuê kết cuối chuyển cho phận lễ tân Bộ phận phụ trách điều hành website có trách nhiệm giải thắc mắc, yêu cầu khách hàng qua Email hướng dẫn qua điện thoại Sơ đồ quy trình đặt phòng: Nguồn khách Nhận yêu cầu đặt phòng Đưa danh sách phòng thuộc loại phòng khách yêu cầu Khách sạn khơng có khả đáp ứng Nhận thay đổi u cầu khách Nhận thơng tin đặt phịng Trường ĐHDL Hải Phòng Khách đồng ý Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phịng trực tuyến Đón tiếp xếp phịng cho khách: Khi khách đoàn đến khách sạn; + Đối với khách đặt phòng từ trước yêu cầu nhận phịng phải đưa thơng tin liên quan tới đặt phịng Nhân viên lễ tân tìm kiếm thơng tin đặt phịng máy tính sổ sách, xác nhận lại thông tin check in lưu vào sở liệu Thông tin check in bao gồm thông tin khách thông tin phòng khách thuê + Còn với khách chưa đặt phòng trước có u cầu th phịng, nhân viên lễ tân cung cấp thơng tin phịng trống có cho khách thơng Trường ĐHDL Hải Phịng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến qua việc truy vấn vào kho liệu danh sách phòng Khách xác nhận thuê phịng, nhân viên lễ tân lưu thơng tin vào sỡ liệu Trường hợp khách lẻ: phận lễ tân ghi nhận thông tin khách hàng Trường hợp khách đoàn: Bộ phận lễ tân ghi nhận thông tin người đại diện cho đồn, thơng tin thành viên đồn, số lượng phòng, loại phòng, danh sách khách phòng yêu cầu khách hàng Nếu khách có u cầu giúp đỡ hành lí họ nhiệm vụ nhận viên thơng báo với tổ trưởng phận phục vụ khách hàng để cử nhân viên phận đưa hành lý lên phịng cho khách Bên cạnh đó, phận lễ tân giới thiệu dịch vụ sẳn có khách sạn phục vụ khách khách sạn Sơ đồ quy trình đón tiếp xếp phịng cho khách: ĐÓN TIẾP Đã đặt chỗ trước LÀM THỦ TỤC ĐĂNG KÝ Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn XÁC NHẬN VIỆC ĐẶT PHỊNG Chưa đặt chỗ trước ĐĨN TIẾP Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] XÁC NHẬN KHẢ NĂNG THANH TOÁN Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn XÁC ĐỊNH KHẢ NĂNG CỦA KHÁCH SẠN Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ôn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Quy trình phục vụ khách hàng thời gian khách lưu trú khách sạn: Trong thời gian khách lưu trú khách sạn, khách có yêu cầu sử dụng dịch vụ, khách sạn cung cấp dịch vụ phục vụ nhu cầu khách Bộ phận lễ tân thu thập phiếu sử dụng khách hàng gửi lên từ phận phục vụ khách để tiến hành lập tổng hợp lại khoản chi phí khách Sơ đồ quy trình phục vụ khách NHẬN YÊU CẦU SỬ DỤNG DỊCH VỤ CUNG CẤP DỊCH VỤ Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Next For i = To VSDS.Cols - VSDS.Cell(flexcpAlignment, 0, 0, 0, 5) = flexAlignCenterCenter VSDS.Cell(flexcpFontBold, 0, 0, 0, 5) = True Next BOOK = End Sub - Hàm kiểm tra phòng Private Function CheckRoom(RN As String) As Boolean CheckRoom = False If (Trim(RN) = "201" Or Trim(RN) = "202" Or Trim(RN) = "203" Or Trim(RN) = "204" Or _ Trim(RN) = "301" Or Trim(RN) = "302" Or Trim(RN) = "303" Or Trim(RN) = "304" Or _ Trim(RN) = "401" Or Trim(RN) = "402" Or Trim(RN) = "403" Or Trim(RN) = "404" Or _ Trim(RN) = "501" Or Trim(RN) = "502" Or Trim(RN) = "503" Or Trim(RN) = "504" Or _ Trim(RN) = "601" Or Trim(RN) = "602" Or Trim(RN) = "603" Or Trim(RN) = "604" Or _ Trim(RN) = "701" Or Trim(RN) = "702" Or Trim(RN) = "703" Or Trim(RN) = "704" Or _ Trim(RN) = "801" Or Trim(RN) = "802" Or Trim(RN) = "803" Or Trim(RN) = "804") Then CheckRoom = True End If End Function Private Sub LoadCustomer() Dim rs1 As ADODB.Recordset Dim STT As Integer Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 63 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến sql = "Select * FROM CUR_CUST where book=" & BOOK Set rs1 = pConnection.Execute(sql) VSDS.Clear VSDS.Rows = STT = While Not rs1.EOF STT = STT + VSDS.AddItem rs1!CUSTOMERID & vbTab & Trim(rs1!ROOMNUM) & vbTab & rs1!LASTNAME & vbTab & rs1!FIRSTNAME & vbTab & rs1!BIRTHDAY & vbTab & rs1!nation & vbTab & Trim(rs1!SEXSUAL) & vbTab & Trim(rs1!DATE_IN) & vbTab & Trim(rs1!DATE_OUT) & vbTab & Trim(rs1!PAYMENT) & vbTab & Trim(rs1!VISA_NUM) & vbTab & Trim(rs1!Rate) & vbTab & Trim(rs1!TIME_IN) & vbTab & Trim(rs1!TIME_OUT) & vbTab & Trim(rs1!PASSPORT) & vbTab & Trim(rs1!COMPANY) rs1.MoveNext Wend If (VSDS.Rows > 1) Then VSDS.Row = CmdSua.Enabled = True Call VSDS_Click Else CmdSua.Enabled = False End If rs1.Close Set rs1 = Nothing End Sub - Bảng hiển thị danh sách khách đăng ký Private Sub VSDS_Click() Dim rs1 As ADODB.Recordset Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 64 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Dim MaChungTu As String Dim MaLoaiHangHoa As String Dim MaHangHoa As String clicked = True If (VSDS.Row > And VSDS.Row < VSDS.Rows) Then TxtCusID.Text = VSDS.TextMatrix(VSDS.Row, 0) TxtRoomNumber.Text = VSDS.TextMatrix(VSDS.Row, 1) TxtLastName.Text = VSDS.TextMatrix(VSDS.Row, 2) TxtFirstName.Text = VSDS.TextMatrix(VSDS.Row, 3) TxtBirthDay.Value = VSDS.TextMatrix(VSDS.Row, 4) CboNation.ListIndex = GetIndex(VSDS.TextMatrix(VSDS.Row, 5)) If (Trim(VSDS.TextMatrix(VSDS.Row, 6)) = "M") Then CboGT.ListIndex = Else CboGT.ListIndex = End If TxtDateIn.Value = VSDS.TextMatrix(VSDS.Row, 7) TxtDateOUT.Value = VSDS.TextMatrix(VSDS.Row, 8) CboPayment.ListIndex= GetIndexPayMent(VSDS.TextMatrix(VSDS.Row, 9)) TxtVisaNum.Text = VSDS.TextMatrix(VSDS.Row, 10) TxtRate.Text = VSDS.TextMatrix(VSDS.Row, 11) txtTimeIn.Value = VSDS.TextMatrix(VSDS.Row, 12) TxtTimeOut.Value = VSDS.TextMatrix(VSDS.Row, 13) TxtPassNum.Text = VSDS.TextMatrix(VSDS.Row, 14) TxtCompany.Text = VSDS.TextMatrix(VSDS.Row, 15) End If End Sub Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 65 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Private Function GetIndex(Ma As String) As Integer Dim NationName As String Dim i As Integer Dim rs1 As ADODB.Recordset sql = "Select * from QG where Manuoc='" & Trim(Ma) & "'" Set rs1 = pConnection.Execute(sql) GetIndex = -1 If (Not rs1.EOF) Then NationName = rs1!Tennuoc End If rs1.Close Set rs1 = Nothing If (CboNation.ListCount >= 0) Then For i = To CboNation.ListCount - If (Trim(CboNation.List(i)) = Trim(NationName)) Then GetIndex = i Exit Function End If Next End If End Function Private Function GetIndexPayMent(Ma As String) As Integer Dim PayMentName As String Dim i As Integer Dim rs1 As ADODB.Recordset sql = "Select * from PAYMENT where PAYMENTID='" & Trim(Ma) & "'" Set rs1 = pConnection.Execute(sql) GetIndexPayMent = -1 If (Not rs1.EOF) Then Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 66 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ôn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến PayMentName = rs1!Detail End If rs1.Close Set rs1 = Nothing If (CboPayment.ListCount >= 0) Then For i = To CboPayment.ListCount - If (Trim(CboPayment.List(i)) = Trim(PayMentName)) Then GetIndexPayMent = i Exit Function End If Next End If End Function - Xóa thơng tin nhập Private Sub ClearItem() Call LoadCusID TxtRoomNumber.Text = "" TxtLastName.Text = "" TxtFirstName.Text = "" TxtBirthDay.Value = Null CboNation.ListIndex = -1 CboGT.ListIndex = -1 CboPayment.ListIndex = -1 TxtVisaNum.Text = "" TxtPassNum.Text = "" TxtRate.Text = "" TxtCompany.Text = "" TxtDateIn.Value = Date TxtDateOUT.Value = Date txtTimeIn.Value = Time() Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 67 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến TxtTimeOut.Value = Time() End Sub Private Function RoomBusy(ROOMNUM As String) As Boolean Dim rs1 As ADODB.Recordset sql = "Select ROOMNUM From CUR_CUST WHERE ROOMNUM='" & Trim(ROOMNUM) & "' and book=1" Set rs1 = pConnection.Execute(sql) RoomBusy = False If (Not rs1.EOF) Then RoomBusy = True End If rs1.Close Set rs1 = Nothing End Function Chức Trả phòng ( Quản lý khách ra) Bao gồm Form: Nhập hoá đơn Nhập hoá đơn điện thoại Nhập hố đơn Fax Sửa hố đơn Trả phịng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 68 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Chức Đặt phịng (Quản lý thơng tin đặt phịng) Form hiển thị tình trạng phịng khách sạn - Đoạn code Private Sub SetStatusRoomBusy(ByVal Room As String, ByVal code As Integer) Room = Trim(Room) Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 69 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ơn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến If (CheckRoom(Room) = True) Then If (code = 1) Then ' Free Room IRoomX((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) - 1).ZOrder (0) ElseIf (code = 2) Then ' Busy Room IRoomD((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) - 1).ZOrder (0) ElseIf (code = 3) Then ' Overdate Room IRoomV((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) - 1).ZOrder (0) ElseIf (code = 4) Then ' Booking Room IRoomT((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * + Val(Right(Room, 1)) - 1).ZOrder (0) End If End If End Sub Chức báo cáo Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ôn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Trường ĐHDL Hải Phịng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 70 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ôn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Chức trợ giúp - Code kết nối liệu access OLEDB: Private Sub init() Set pConnection = New ADODB.Connection With pConnection ConnectionTimeout = ConnectionString= "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data App.Path & "\CSDLKS.mdb;Jet Password=vietnam;" CursorLocation = adUseServer IsolationLevel = adXactIsolated Open End With Exit Sub End Sub Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn Source=" & OLEDB:Database Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ôn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Trường ĐHDL Hải Phòng Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn 71 Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hỗ trợ ôn tập [ĐỀ CƯƠNG CHƯƠNG TRÌNH ĐẠI HỌC] Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến CHƯƠNG 5: KẾT LUẬN Nhận xét đề tài Trong thời gian nghiên cứu, xây dựng chương trình, em cố gắng làm việc với giúp đỡ tận tình thầy giáo Chương trình đạt số kết định: Giao diện đơn giản, dể sử dụng, đảm bảo tìm kiếm thơng tin nhanh chóng, xác tiết kiệm thời gian, hạn chế việc phải lưu trữ nhiều sổ sách trình quản lý Quản lý khách sạn đặt phịng trực tuyến đề tài thiết thực với nhu cầu doanh nghiệp kinh doanh lĩnh vực khách sạn Tuy nhiên với thời gian ngắn, trình độ kinh nghiệm cịn hạn chế; hệ thống quản lý cịn có nhiều thiếu sót Rất mong thầy giáo bạn tận tình giúp đỡ để hệ thống quản lý ngày hoàn thiện Hướng phát triển đề tài: Hệ thống quản lý khách sạn đặt phòng trực tuyến phần đáp ứng nhu cầu sử dụng doanh nghiệp kinh doanh khách sạn; nhiên cịn có nhiều thiếu sót hạn chế Nếu phát triển tiếp đề tài em xây dựng hệ thống quản lý website, ban quản lý khách sạn quản lý liệu trực tiếp sở liệu website, đồng thời cập nhật thường xuyên cho khách hàng thông tin khách sạn đồng thời tiếp nhận ý kiến khách hàng nhanh chóng Việc quản lý đăng ký đặt phòng trực tuyến trở nên dể dàng hơn; Hạn chế việc để lỡ hội cho thuê phòng sai sót làm ảnh hưởng đến uy tính khách sạn ảnh hưởng việc tra cứu thơng tin chậm trễ - điều mà nhà kinh doanh nói chung kinh doanh khách sạn nói riêng khơng mong đợi Cuối cùng, lần em xin chân thành cảm ơn TS.Trần Minh ThS.Nguyễn Hoài Thu, người định hướng cho em hướng nghiên cứu đề tài người hướng dẫn, giúp đỡ tơi nhiều q trình thực đề tài Em xin cảm ơn Ba, Mẹ, anh chị bạn bè tạo điều kiện giúp đỡ em trình thực đề tài Em xin trân trọng cảm ơn! Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn