Quản lý khách sạn và đặt phòng trực tuyến trong lĩnh vực khách sạn hiện nay

Quản lý khách sạn và đặt phòng trực tuyến trong lĩnh vực khách sạn hiện nay

Đồ án tốt nghiệp Quản lý khách sạn đặt phịng trực tuyến PHẦN B: NỘI DUNG CHƯƠNG I: MƠ TẢ BÀI TỐN VÀ GIẢI PHÁP I Q 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: Trường ĐHDL Hải Phòng Đồ á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ỊNG KẾ TỐN BỘ PHẬN NHÀ HÀNG VÀ BẾP BỘ PHẬN AN NINH SỬA CHỬA PHÓ GIÁM ĐỐC 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 Đồ án tốt nghiệp 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 số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 u cầu Từ danh sách phòng mà website đưa ra, khách hàng tìm phịng theo 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ố Trường ĐHDL Hải Phịng Đồ á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 u cầu đặt phòng Đưa danh sách phòng thuộc loại phịng khách u cầu Khách sạn khơng có khả đáp ứng Nhận thay đổi yêu cầu khách Nhận thơng tin đặt phịng Trường ĐHDL Hải Phịng Khách đồng ý Đồ á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 đồn đến khách sạn; + Đối với khách đặt phòng từ trước 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 th + 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 Đồ á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ó yê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 XÁC NHẬN KHẢ NĂNG THANH TỐN XÁC NHẬN VIỆC ĐẶT PHỊNG Chưa đặt chỗ trước ĐÓN TIẾP XÁC ĐỊNH KHẢ NĂNG CỦA KHÁCH SẠN Đồ á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 LƯU THÔNG TIN SỬ DỤNG DỊCH VỤ Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Quy trình làm thủ tục tốn cho khách (Check out): Khi khách có u cầu trả phịng, phận lễ tân có nhiệm vụ thơng báo cho phận khác khách sạn việc trả phòng khách nhằm xác định khoản chưa tốn Khi khách trả phịng, nhân viên lập hố đơn tổng hợp tiến hành toán với khách Việc check out cho khách theo đồn phải có khả phân biệt chi phí đồn chi phí cá nhân đồn Sau làm thủ tục check out xong, phận lễ tân thông báo cho phận trực phòng làm thủ tục kiểm kê tài sản vệ sinh phịng Cuối ngày phận lễ tân viết báo cáo tổng hợp tình hình khách đến, khách đi, thực trạng phòng trống, phòng bận thu chi ngày ý kiến phản hồi khách (từ phận back office) cho ban giám đốc khách sạn Sơ đồ quy trình làm thủ tục tốn cho khách: NHẬN U CẦU TRẢ PHỊNG XÁC ĐỊNH THƠNG TIN TRẢ PHỊNG LƯU THƠNG TIN TRẢ PHỊNG Trường ĐHDL Hải Phịng TỔNG HỢP CHI PHÍ PHÁT SINH CỦA KHÁCH Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến II GIẢI PHÁP ĐỀ XUẤT Giải pháp kỹ thuật Yêu cầu chung tổng thể hệ thống: - Bộ phận tiếp tân sử dụng từ – máy tính - Phịng kế tốn sử dụng từ – máy tính máy đọc thẻ tín dụng ngân hàng cung cấp - Bộ phận đặt phòng sử dụng từ – máy tính - Bộ phận dịch vụ sử dụng từ – máy tính - Các phận khác sử dụng từ – máy tính tùy theo nhu cầu sử dụng chương trình - Các máy tính phải nối mạng với nối mạng Internet) - Cấu hình tối thiểu máy tính: + Cấu hình CPU tối thiểu phải Pentium 500Mhz + Hệ điều hành: Windows 2000, Windows XP Trường ĐHDL Hải Phòng Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Giải pháp hệ thống Từ việc phân tích hoạt động khách sạn diển hàng ngày trên, thấy: Quản lý khách sạn công việc phức tạp yêu cầu phải giải nhanh chóng Để đáp ứng u cầu cần phải có chương trình quản lý cơng việc làm tự động hóa máy tính Hệ thống với liệu vào Các thông tin khách, thời gian thuê phòng khách, giá loại dịch vụ, thông tin việc sử dụng dịch vụ hàng ngày khách Hệ thống xử lý liệu đưa ra: Phiếu toán chi tiết cho khách, hóa đơn tốn, báo cáo thơng kê tình hình doanh thu ngày, tháng, quý, năm, dự trù kinh phí cho hoạt động tới CHƯƠNG 2: GIỚI THIỆU NGÔN NGỮ LẬP TRÌNH VISUALBASIC 6.0 Giới thiệu vài nét ngơn ngữ lập trình VisualBasic Dùng VisualBasic cách nhanh tốt để lập trình cho Microsoft Windows Cho dù chuyên gia lập trình hay người làm quen với chương trình windows, VisualBasic cung cấp cơng cụ hồn chỉnh để đơn giản hóa việc triển khai lập trình ứng dụng cho MSWindows VisualBasic gì? Phần “Visual” đề cập đến phương pháp sử dụng để tạo giao diện đồ họa người dùng (Graphical User Interface, viết tắt GUI) Có sẵn hình ảnh, gọi controls, bạn đặt vị trí định đặc tính chúg khung hình, gọi form Điều giúp cho người lập trình với VisualBasic đỡ cơng – thay việc Trường ĐHDL Hải Phòng 10 Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" & TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & Trim(TxtVisaNum.Text) txtTimeIn.Value & & "','" "','" & & TxtPassNum.Text 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) txtTimeIn.Value & & "','" "','" & & TxtPassNum.Text 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) Trường ĐHDL Hải Phòng 60 Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến 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) txtTimeIn.Value & & "','" "','" & & TxtPassNum.Text 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) txtTimeIn.Value & & "','" "','" & & TxtPassNum.Text TxtTimeOut.Value & & "','" "','" & & Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & Trim(TxtRate.Text) & "," & BOOK & ")" pConnection.Execute (sql) Call LoadCustomer Trường ĐHDL Hải Phòng 61 Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến SetButton False ThemMoiFlag = False SuaFlag = False End If End Sub Private Sub init() Dim i As Integer VSDS.Cols = 16 VSDS.Rows = For i = To VSDS.ColWidth(i) = (VSDS.Width - VSDS.ColWidth(0)) / - 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 = To 15 VSDS.ColHidden(i) = True Trường ĐHDL Hải Phòng 62 Đồ á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 63 Đồ á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 64 Đồ á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 65 Đồ á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 66 Đồ á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 67 Đồ á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 hoá đơn Fax Sửa hố đơn Trả phịng Trường ĐHDL Hải Phịng 68 Đồ á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) Trường ĐHDL Hải Phòng 69 Đồ á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 Trường ĐHDL Hải Phòng 70 Đồ á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 = Source=" & OLEDB:Database Password=vietnam;" CursorLocation = adUseServer IsolationLevel = adXactIsolated Open End With Exit Sub End Sub Trường ĐHDL Hải Phòng 71 Đồ á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 đỡ nhiều 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! Trường ĐHDL Hải Phòng 72 Đồ án tốt nghiệp Quản lý khách sạn đặt phòng trực tuyến PHỤ LỤC Danh sách hồ sơ liệu STT Ký Hiệu Tên kho DL Mô tả D1 Tiện nghi Lưu thông tin tiện nghi trang bị khách sạn D2 Dịch vụ Lưu thông tin dịch vụ mà khách sạn cung cấp D3 DS Khách Lưu thông tin khách hàng D4 Hố đơn Lưu hóa đơn tốn D5 DS Phịng Lưu thơng tin phịng D6 DS Phịng đặt Lưu thơng tin phịng khách hàng đặt trước 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: Hố đơn D5: DS Phịng D6: DS Phòng đặt D7: Loại phòng D1 D2 D3 D4 2.0 Quản lý khách vào 3.0 Quản lý sử dụng dịch vụ R R C R U D7 U C 4.0 Quản lý khách C R C D6 R 1.0 Quản lý đặt phòng D5 5.0 Quản lý tài nguyên U U 6.0 Báo cáo R R U R R R U R R TÀI LIỆU THAM KHẢO Trường ĐHDL Hải Phòng 73 Đồ án tốt nghiệp Quản lý khách sạn đặt phịng trực tuyến Mơ hình quản lý khách sạn Hilton Mơ hình quản lý khách sạn ATS công ty du lịch dịch vụ Qn khu thủ Phân tích thiết kế hệ thống thông tin đại – PGS.TS Nguyễn Văn Vị - Nhà xuất thống kê 2002 Hướng dẫn sử dụng Microsoft Access – Nhà xuất thống kê Và số liệu có liên quan khác Trường ĐHDL Hải Phòng 74 ... khách sạn đặt phòng trực tuyến Phân rã chức hệ thống quản lý khách sạn đặt phòng trực tuyến: HỆ THỐNG QUẢN LÝ KHÁCH SẠN Quản lý khách sạn Quản lý tài nguyên Quản lý đặt phòng Quản lý khách vào Quản. .. nhân đến hệ thống quản lý khách sạn từ hệ thống quản lý khách sạn đến hai tác nhân Trường ĐHDL Hải Phòng 27 Trường ĐHDL Hải Phòng KHÁCH SẠN HỆ THỐNG HỆ THỐNG QUẢN LÝ QUẢN SẠN KHÁCH LÝ Hình 4.1: Biểu... TÊN TÁC NHÂN Trường ĐHDL Hải Phòng 26 Đồ án tốt nghiệp Quản lý khách sạn đặt phịng trực tuyến II PHÂN TÍCH THIẾT KẾ HỆ THỐNG QUẢN LÝ KHÁCH SẠN VÀ ĐẶT PHÒNG TRỰC TUYẾN Biểu đồ mức khung cảnh hệ