Đề tài Quản lý khách sạn và đặt phòng trực tuyến
Khách sạn được hình thành từ các phòng, tổ quan hệ mật thiết hỗ trợ nhau. 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 của khách sạn đều dưới sự chỉ đạo của Ban giám đốc. Ban giám đốc chịu trách nhiệm với hội đồng quản trị cấp trên và chịu trách nhiệm trước tập thể cán bộ công nhân viên công ty. Giám đốc là người chịu trách nhiệm chính của khách sạn và là người chịu trách nhiệm trực tiếp với hội đồng quản trị cấp trên và trước tập thể cán bộ công nhân viên.
Phó giám đốc hành chính chịu trách nhiệm trước giám đốc về 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ư.
Phòng kinh doanh chịu trách nhiệm trước ban giám đốc chuyên sâu về vấn đề tổ chức kinh doanh của khách sạn để đạt hiệu quả 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, bộ phận này gồm có một kế toán trưởng và các kế toán viên, có trách nhiệm thực hiện các hoạt động về kế hoạch tài chính cà công tác kế toán, cụ thể là 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 của khách sạn, chi trả lương, định giá thành và kiểm soát các hoạt động tài chính.
Bộ phận lễ tân, Bộ phận nhà phòng, Bộ phận nhà hàng và 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 và giám đốc.
Bộ phận lễ tân là chiếc cầu nối giữa khách hàng và khách sạn.
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 1 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 1](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-1_q6c1jrUZOo.jpg)
Trang 1
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 2 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 2](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-2_VGUj5kjwrR.jpg)
Trang 2
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 3 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 3](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-3_FR4TOog5E4.jpg)
Trang 3
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 4 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 4](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-4_9Rzly1RGYo.jpg)
Trang 4
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 5 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 5](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-5_YAy8g91zct.jpg)
Trang 5
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 6 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 6](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-6_2TFDvwic8I.jpg)
Trang 6
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 7 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 7](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-7_4nV20FClnp.jpg)
Trang 7
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 8 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 8](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-8_SmOz22ladC.jpg)
Trang 8
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 9 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 9](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-9_hyDxUlMDby.jpg)
Trang 9
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 10 Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 10](https://s1.ebooks.com.vn/yetwygzggocsqsc5/image/2024/01/13/7131/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen-trang-10_CWbQnySXz9.jpg)
Trang 10
Tải về để xem bản đầy đủ
Tóm tắt nội dung tài liệu: Đề tài Quản lý khách sạn và đặt phòng trực tuyến
![Đề tài Quản lý khách sạn và đặt phòng trực tuyến Đề tài Quản lý khách sạn và đặt phòng trực tuyến](https://s1.ebooks.com.vn/yetwygzggocsqsc5/thumb/2024/01/12/de-tai-quan-ly-khach-san-va-dat-phong-truc-tuyen_Jd3VB9YHoE.jpg)
ĐỀ TÀI Quản lý khách sạn và đặt phòng trực tuyến Giáo viên hướng dẫn : Sinh viên thực hiện : Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 1 PHẦN B: NỘI DUNG CHƯƠNG I: MÔ TẢ BÀI TOÁ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ý của khách sạn bao gồm: Hội đồng quản trị, Ban giám đốc, Phó giám đốc, các phòng ban (Phòng kế toán, phòng kinh doanh, phòng tổ chức – hành chính), và các tổ; được bố trí theo sơ đồ sau: Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 2 Khách sạn được hình thành từ các phòng, tổ quan hệ mật thiết hỗ trợ nhau. 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 của khách sạn đều dưới sự chỉ đạo của Ban giám đốc. Ban giám đốc chịu trách nhiệm với hội đồng quản trị cấp trên và chịu trách nhiệm trước tập thể cán bộ công nhân viên công ty. Giám đốc là người chịu trách nhiệm chính của khách sạn và là người chịu trách nhiệm trực tiếp với hội đồng quản trị cấp trên và trước tập thể cán bộ công nhân viên. Phó giám đốc hành chính chịu trách nhiệm trước giám đốc về 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ư. HỘI ĐỒNG QUẢN TRỊ GIÁM ĐỐC PHÒNG KINH DOANH PHÒNG KẾ TOÁN PHÓ GIÁM ĐỐC BỘ PHẬN LỄ TÂN BỘ PHẬN NHÀ PHÒNG BỘ PHẬN NHÀ HÀNG VÀ BẾP BỘ PHẬN DỊCH VỤ PHÒNG TỔ CHỨC - HÀNH CHÍNH BỘ PHẬN NHÂN SỰ BỘ PHẬN AN NINH SỬA CHỬA BỘ PHẬN BACK OFFICE Hình 1.1: Sơ đồ bộ máy quản lý của khách sạn Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 3 Phòng kinh doanh chịu trách nhiệm trước ban giám đốc chuyên sâu về vấn đề tổ chức kinh doanh của khách sạn để đạt hiệu quả 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, bộ phận này gồm có một kế toán trưởng và các kế toán viên, có trách nhiệm thực hiện các hoạt động về kế hoạch tài chính cà công tác kế toán, cụ thể là 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 của khách sạn, chi trả lương, định giá thành và kiểm soát các hoạt động tài chính. Bộ phận lễ tân, Bộ phận nhà phòng, Bộ phận nhà hàng và 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 và giám đốc. Bộ phận lễ tân là chiếc cầu nối giữa khách hàng và khách sạn. 1. Quy trình đặt phòng qua mạng: Sau khi truy vấn những thông tin của khách sạn trên mạng, khách hàng có thể lựa chọn việc đặt phòng tại khách sạn thông qua website. Để có thể đăng ký đặt phòng, khách có nhu cầu cần phải đăng ký một account cho mình trên website của khách sạn – account gồm có địa chỉ Email đang hoạt động và password của khách. Khi tiến hành lựa chọn phòng thuê, khách sẽ đăng nhập vào website thông qua account của mình (hoặc có thể đăng nhập sau khi đã lựa chọn được phòng phù hợp với yêu cầu của mình), sau đó sẽ chọn loại phòng muốn đăng ký. Từ yêu cầu đặt phòng của khách, hệ thống website sẽ tự động kiểm tra trong cơ sỡ dữ liệu rồi đưa ra những phòng có trong loại phòng khách yêu cầu. Từ danh sách phòng mà website đưa ra, nếu khách hàng tìm được phòng theo yêu cầu của họ, họ sẽ đánh dấu vào phòng mình chọn, điền các thông tin bắt buộc và không bắt buộc (những thông tin có thể điền hoặc có thể 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 là 2 ngày), ngày trả phòng, số lượng phòng, số người ở (số người lớn và số trẻ em), họ và tên khách (người đăng ký), giới tính, số Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 4 partpost hoặc số chứng minh thư nhân dân, số tài khoản, địa chỉ liên lạc, số điện thoại, số fax (nếu có), tên nước; và chọn chức năng “đặt phòng”. Thông tin của cuộc đặt phòng của khách sẽ được gửi về ban quản lý để xử lý. Danh sách phòng được đặt và khách thuê là kết quả cuối cùng và sẽ được chuyển cho bộ phận lễ tân. Bộ phận phụ trách và điều hành website sẽ có trách nhiệm giải quyết những thắc mắc, yêu cầu của khách hàng qua Email hoặc 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 ra danh sách phòng thuộc loại phòng khách yêu cầu Nhận thông tin đặt phòng Khẳ đị h ủ khá h Nhận thay đổi yêu cầu của khách Khách sạn không có khả năng đáp ứng Khách đồng ý Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 5 2. Đón tiếp và xếp phòng cho khách: Khi khách hoặc đoàn đến khách sạn; + Đối với khách đã đặt phòng từ trước khi yêu cầu nhận phòng phải đưa thông tin liên quan tới cuộc đặt phòng của mình. Nhân viên lễ tân sẽ tìm kiếm thông tin đặt phòng trên máy tính hoặc trong sổ sách, xác nhận lại các thông tin check in và lưu vào cơ sở dữ liệu ... t) & "','" & Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 60 Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" & TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & Trim(TxtRate.Text) & "," & BOOK & ")" pConnection.Execute (sql) sql = "INSERT INTO CUR_CUST (CUSTOMERID,LASTNAME,FIRSTNAME,BIRTHDAY,NATION,SEXSU AL,DATE_IN,DATE_OUT,PAYMENT,VISA_NUM,PASSPORT,TIME_IN ,TIME_OUT,ROOMNUM,COMPANY,RATE,BOOK) VALUES(" & Trim(TxtCusID.Text) & ",'" & Trim(TxtLastName.Text) & "','" & Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" & TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & Trim(TxtRate.Text) & "," & BOOK & ")" pConnection.Execute (sql) Call LoadCustomer SetButton False ThemMoiFlag = False SuaFlag = False ElseIf SuaFlag = True Then sql = "DELETE FROM CUR_CUST WHERE CUSTOMERID=" & Trim(VSDS.TextMatrix(VSDS.Row, 0)) & "" pConnection.Execute (sql) Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 61 sql = "DELETE FROM CUSTOMER WHERE CUSTOMERID=" & Trim(VSDS.TextMatrix(VSDS.Row, 0)) & "" pConnection.Execute (sql) sql = "INSERT INTO CUSTOMER (CUSTOMERID,LASTNAME,FIRSTNAME,BIRTHDAY,NATION,SEXSU AL,DATE_IN,DATE_OUT,PAYMENT,VISA_NUM,PASSPORT,TIME_IN ,TIME_OUT,ROOMNUM,COMPANY,RATE,BOOK) VALUES(" & Trim(TxtCusID.Text) & ",'" & Trim(TxtLastName.Text) & "','" & Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" & TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & Trim(TxtRate.Text) & "," & BOOK & ")" pConnection.Execute (sql) sql = "INSERT INTO CUR_CUST (CUSTOMERID,LASTNAME,FIRSTNAME,BIRTHDAY,NATION,SEXSU AL,DATE_IN,DATE_OUT,PAYMENT,VISA_NUM,PASSPORT,TIME_IN ,TIME_OUT,ROOMNUM,COMPANY,RATE,BOOK) VALUES(" & Trim(TxtCusID.Text) & ",'" & Trim(TxtLastName.Text) & "','" & Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" & TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & Trim(TxtRate.Text) & "," & BOOK & ")" pConnection.Execute (sql) Call LoadCustomer Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 62 SetButton False ThemMoiFlag = False SuaFlag = False End If End Sub Private Sub init() Dim i As Integer VSDS.Cols = 16 VSDS.Rows = 1 For i = 1 To 5 VSDS.ColWidth(i) = (VSDS.Width - VSDS.ColWidth(0)) / 5 - 20 Next VSDS.TextMatrix(0, 0) = "Cust. ID" VSDS.TextMatrix(0, 1) = "RoomNum" VSDS.TextMatrix(0, 2) = "Last Name" VSDS.TextMatrix(0, 3) = "First Name" VSDS.TextMatrix(0, 4) = "Birthday" VSDS.TextMatrix(0, 5) = "National" VSDS.TextMatrix(0, 6) = "Sexual" VSDS.TextMatrix(0, 7) = "Day In" VSDS.TextMatrix(0, 8) = "Day out" VSDS.TextMatrix(0, 9) = "Payment" VSDS.TextMatrix(0, 10) = "No. Visa" VSDS.TextMatrix(0, 11) = "Rate" VSDS.TextMatrix(0, 12) = "Time In" VSDS.TextMatrix(0, 13) = "Time out" VSDS.TextMatrix(0, 14) = "No. Pass" VSDS.TextMatrix(0, 15) = "Company" For i = 6 To 15 VSDS.ColHidden(i) = True Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 63 Next For i = 0 To VSDS.Cols - 1 VSDS.Cell(flexcpAlignment, 0, 0, 0, 5) = flexAlignCenterCenter VSDS.Cell(flexcpFontBold, 0, 0, 0, 5) = True Next BOOK = 1 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 Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 64 sql = "Select * FROM CUR_CUST where book=" & BOOK Set rs1 = pConnection.Execute(sql) VSDS.Clear 1 VSDS.Rows = 1 STT = 0 While Not rs1.EOF STT = STT + 1 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 = 1 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 Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 65 Dim MaChungTu As String Dim MaLoaiHangHoa As String Dim MaHangHoa As String clicked = True If (VSDS.Row > 0 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 = 0 Else CboGT.ListIndex = 1 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 Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 66 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 = 0 To CboNation.ListCount - 1 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 Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 67 PayMentName = rs1!Detail End If rs1.Close Set rs1 = Nothing If (CboPayment.ListCount >= 0) Then For i = 0 To CboPayment.ListCount - 1 If (Trim(CboPayment.List(i)) = Trim(PayMentName)) Then GetIndexPayMent = i Exit Function End If Next End If End Function - Xóa thông tin đang 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() Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 68 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 5. Chức năng Trả phòng ( Quản lý khách ra) Bao gồm các Form: Nhập hoá đơn Nhập hoá đơn điện thoại Nhập hoá đơn Fax Sửa hoá đơn Trả phòng. Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 69 6. Chức năng Đặt phòng (Quản lý thông tin đặt phòng) Form hiển thị tình trạng phòng của khách sạn - Đoạn code Private Sub SetStatusRoomBusy(ByVal Room As String, ByVal code As Integer) Room = Trim(Room) Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 70 If (CheckRoom(Room) = True) Then If (code = 1) Then ' Free Room IRoomX((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) ElseIf (code = 2) Then ' Busy Room IRoomD((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) ElseIf (code = 3) Then ' Overdate Room IRoomV((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) ElseIf (code = 4) Then ' Booking Room IRoomT((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) End If End If End Sub 7. Chức năng báo cáo Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 71 8. Chức năng trợ giúp - Code kết nối dữ liệu access bằng OLEDB: Private Sub init() Set pConnection = New ADODB.Connection With pConnection .ConnectionTimeout = 5 .ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\CSDLKS.mdb;Jet OLEDB:Database Password=vietnam;" .CursorLocation = adUseServer .IsolationLevel = adXactIsolated .Open End With Exit Sub End Sub Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 72 CHƯƠNG 5: KẾT LUẬN 1. Nhận xét về đề tài Trong thời gian nghiên cứu, xây dựng chương trình, em hết sức cố gắng làm việc với sự giúp đỡ tận tình của thầy giáo. Chương trình đã đạt được một số kết quả nhấ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, chính xác và tiết kiệm thời gian, hạn chế được việc phải lưu trữ quá nhiều sổ sách trong quá trình quản lý. Quản lý khách sạn và đặt phòng trực tuyến là một đề tài thiết thực với nhu cầu của các doanh nghiệp kinh doanh trong lĩnh vực khách sạn hiện nay. Tuy nhiên với thời gian ngắn, trình độ và kinh nghiệm còn hạn chế; hệ thống quản lý vẫn còn có nhiều thiếu sót. Rất mong các thầy cô giáo và các bạn tận tình giúp đỡ để hệ thống quản lý ngày càng được hoàn thiện hơn. 2. Hướng phát triển của đề tài: Hệ thống quản lý khách sạn và đặt phòng trực tuyến trên đây phần nào đã đáp ứng được nhu cầu sử dụng của các doanh nghiệp kinh doanh khách sạn; tuy nhiên còn có rất nhiều thiếu sót và hạn chế. Nếu được phát triển tiếp đề tài này em sẽ xây dựng hệ thống quản lý bằng website, ban quản lý khách sạn có thể quản lý dữ liệu trực tiếp trong cơ sở dữ liệu của website, đồng thời cập nhật thường xuyên cho khách hàng những thông tin mới nhất của khách sạn đồng thời tiếp nhận ý kiến của khách hàng cũng nhanh chóng hơn. Việc quản lý và đăng ký đặt phòng trực tuyến cũng trở nên dể dàng hơn; Hạn chế được việc để lỡ các cơ hội cho thuê phòng cũng như những sai sót có thể làm ảnh hưởng đến uy tính của khách sạn do ảnh hưởng của việc tra cứu thông tin chậm trễ - đó là điều mà những nhà kinh doanh nói chung và kinh doanh khách sạn nói riêng không bao giờ mong đợi. Cuối cùng, một lần nữa em xin chân thành cảm ơn TS.Trần Minh cùng ThS.Nguyễn Hoài Thu, người đã định hướng cho em hướng nghiên cứu đề tài này và là người hướng dẫn, giúp đỡ tôi rất nhiều trong quá trình thực hiện đề tài. Em xin cảm ơn Ba, Mẹ, anh chị và bạn bè đã tạo điều kiện và giúp đỡ em trong quá trình thực hiện đề tài này. Em xin trân trọng cảm ơn! Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 73 PHỤ LỤC Danh sách các hồ sơ dữ liệu STT Ký Hiệu Tên kho DL Mô tả 1 D1 Tiện nghi Lưu thông tin tiện nghi trang bị của khách sạn 2 D2 Dịch vụ Lưu thông tin dịch vụ mà khách sạn cung cấp 3 D3 DS Khách Lưu thông tin khách hàng 4 D4 Hoá đơn Lưu hóa đơn thanh toán 5 D5 DS Phòng Lưu thông tin phòng 6 D6 DS Phòng đặt Lưu thông tin phòng khách hàng đặt trước. 7 D7 Loại phòng Lưu thông tin loại phòng Ma trận thực thể D1: Tiện nghi D2: Dịch vụ D3: DS Khách D4: Hoá đơn D5: DS Phòng D6: DS Phòng đặt D7: Loại phòng D1 D2 D3 D4 D5 D6 D7 1.0 Quản lý đặt phòng R C 2.0 Quản lý khách vào C R R 3.0 Quản lý sử dụng dịch vụ R C 4.0 Quản lý khách ra R C U U 5.0 Quản lý tài nguyên U U U U 6.0 Báo cáo R R R R R R R TÀI LIỆU THAM KHẢO Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến Trường ĐHDL Hải Phòng 74 1. Mô hình quản lý của khách sạn Hilton. 2. Mô hình quản lý của khách sạn ATS của công ty du lịch dịch vụ Quân khu thủ đô. 3. Phân tích thiết kế các hệ thống thông tin hiện đại – PGS.TS. Nguyễn Văn Vị - Nhà xuất bản thống kê 2002. 4. Hướng dẫn sử dụng Microsoft Access – Nhà xuất bản thống kê. Và một số tại liệu có liên quan khác.
File đính kèm:
de_tai_quan_ly_khach_san_va_dat_phong_truc_tuyen.pdf