Xây dựng hệ thống quản lý khách sạn e hotel 50

Mục lục Phần a: lời nói đầu Phần b: nội dung .… Chương 1: Mơ tả tốn giảI pháp…… …… ………5 I trình hoạt động khách sạn … Quy trình đặt phịng qua mạng ……………………………… Đón tiếp xếp phịng cho khách…………………………… Quy trình phuc vụ khách thời gian khách lưu trú khách sạn……………………………………….………… Quy trình làm thủ tục toán cho khách… ………… 10 II GiảI pháp kĩ thuật…………………………….……………11 Giải pháp kĩ thuật……………………………… …………….11 Giải pháp hệ thống…………………………… …………… 11 Chương 2: giới thiệu ngơn ngữ lập trình… ………12 I Tổ chức chương trình VB (Project)…………… …… 12 II Truy cập sở liệu từ xa mơ hình ADO… …… 13 (ActiveX Data Object) ODBC ( Open Database Connectivity – khả tương kết mở)… 13 Mơ hình ADO ( Active Data Object)……………………………… 14 III Trình thiết kế môi trường liệu DED……………….……17 (Data Environment Designer) Định nghĩa ………………………………………………………… 17 Các thành phần ………………………….………….18 có DE Chương 3: giới thiệu Cơ sở liệu………………… …19 Bảng …………………………………………………………….… 19 Truy vấn…………………………………………………………… 22 Mẫu biểu …………………………………………………………….22 Báo biểu……………………………………………………… 22 Macro……………………………………………………………… 23 module……………………………………………………………….23 Chương 4: phân tích thiết kế ………………………………….24 I KHáI niệM CƠ BảN …………………………………….24 II PHÂN TíCH THIếT Kế Hệ THống…………………… ……25 Biểu đồ ngữ cảnh hệ thống…………………………………….26 Sơ đồ phân rã chức …………………………………… 27 2.1 Quản lý tài nguyên………………………….…………… 28 2.2 Quản lý đặt phòng ……………………………………….29 2.3 Quản lý khách vào ……………………………………….30 2.4 Quản lý sử dụng dịch vụ ……………………………… 30 2.5 Quản lý khách ra…………………………………………31 2.6 Báo cáo ………………………………………………… 31 2.7 Thông tin khách sạn ………………………………… 31 2.8 Đặt phòng qua mạng …………………………………… 31 Biểu đồ luồng liệu mức hệ thống ………………………….32 3.1 Biểu đồ luồng liệu mức liệu mức …………………………… 33 3.2 Biểu đồ luồng …………………….………34 3.2.1 Biểu đồ chức Quản lý đặt phòng …….34 3.2.2 Biểu đồ chức Quản lý khách vào …….35 3.2.3 Biểu đồ chức Quản lý sử dụng dịch vụ.36 3.2.4 Biểu đồ chức Quản lý khách … 36 3.2.5 Biểu đồ chức Quản lý tài nguyên…… 37 3.2.6 Biểu đồ chức Báo cáo ……………… 38 Mô hình liệu quan hệ ……………………………………… 38 4.1 Các khái niệm ………………………………….…38 4.2 Các thực thể thuộc tính hệ thống …………….….39 4.3 Mơ hình quan hệ thực thể E-R hệ thống …………… 41 4.4 Mô hình quan hệ ……………………………………… 41 Giao diện ……………………………… 53 Tài liệu tham khảo chương trình phần a: Lời mở đầu Ngày phát triển mạnh mẽ tin học làm cho máy tính trở thành phương tiện thiếu lĩnh vực vủa đời sống xã hội tính máy tính khai thác cách triệt để Nền tin học phát tiển gnười có nhiều phương pháp mới, công cụ để xử lý thông tin nắm bắt nhiều thông tin sống Hiện tin học ứng dụng ngành nghề, lĩnh vực Việc áp dụng tin học vào quản lý, sản xuất, kinh doanh du lịch xu hướng tất yếu Nghành du lich nghành kinh doanh có từ lâu giới Tại nước phát triển, nghành du lịch phát triển mạnh mẽ có lợi nhuận cao với hỗ trợ công nghệ thông tin tổ chức hoạt động Tại nước ta, nghành du lịch xem nghành kinh doanh lâu đời Nhưng năm gần đây, nghành du lịch thực phát triển Tuy nhiên việc ứng dụng công nghệ thông tin nước ta cịn nhiều hạn chế Trong bối cảnh đó, việc quản lý khách sạn tiến hành cách thủ cơng, dựa vào sức người chính.như: việc lưu trữ hồ sơ củakhách hàng thông tin cần thiết cơng việc tốn dều tiến hành sổ sách chứng từ đượch lưu trữ nhiều năm Vì việc xây dựng chương trình quản lý khách sạn cho nghành du lịch vô cần thiết nhằm nâng cao hiệu kinh doanh chất lượng phục vụ khách hàng BàI toán quản lý khách sạn đặt yêu cầu xây dựng giảI pháp công nghệ thông tin khả thi, phù hơp quy mô phát triển khả đầu tư khách sạn Để giảI bàI toán sở thực tế em tiến hành khảo sát thực nghiệm bàI toán quản lý khách sạn khách sạn Hilton Hà Nội địa số Lê Thánh Tông HN Trong đề tài thể chi tiết đề Xong trình độ, kinh nghiệm cịn hạn chế nên khơng tránh khỏi sai sót, em mong góp ý lời khun chân tình thầy để em phát triển hồn thiện Phần B: nội dung Chương I: mơ tả bàI tốn giảI pháp I Quá trình hoạt động khách sạn Khách sạn Hilton quản lý ban quản lý Ban quản lý bao gồm : tổng giám đốc điều hành, người trợ giúp giám đốc nhân viên trợ lý giám đốc Trợ lý giám đốc trưởng phận khác làm việc giám sát giám đốc Phòng nhân phận ban quản lý Khách sạn bao gồm phận: phận lễ tân, phận đặt phòng, phận phục vụ khách hàng, phận buồng, phận kĩ thuật, phận an ninh, phận thực phẩm đồ uống, phận marketing bán hàng, phận back office Cuối ngày Ban quản lý yêu cầu báo cáo Đưa yêu cầu cập nhật thơng tin dịch vụ, tiện nghi, phịng loại phịng Quy trình đặt phịng qua mạng: Sau truy vấn mạng, khách hàng lựa chọn việc đặt phịng khách sạn thơng qua mạng Từ yêu cầu đặt phòng khách, vào khả đáp ứng khách sạn khả thuyết phục phận đặt phòng, phận đặt phòng trả lời cho khách yêu cầu đặt phịng Để đặt phịng, khách hàng cung cấp tài khoản với email khách hàng có password Việc đặt phịng tiến hành sau: khách đưa thông tin liên quan đến việc đặt phòng: số lượng phòng đặt, số khách đến , số lượng phòng đơn, số lượng phịng đơi, ngày đến, ngày Ngồi khách cịn phải đưa thơng tin khách: tên khách, giới tính, thông tin định danh, địa liên lạc, số điện thoại, số fax, nước Yêu cầu đặt phòng ngày đặt phòng phải trước ngày đến hai ngày Sơ đồ quy trình đặt phịng: Nguồn khách Nhận u cầu đặt phịng Khách sạn khơng có Xác định khả đáp ứng Khả đáp ứng Thỏa thuận, thuyết phục Đồng ý Phương án thay thế: số lượng, chủng loại, Nhập thơng tin đặt phịng Khẳng định với khách Khách không đồng ý Lưu thông tin Hủy Cập nhật Nhận khẳng định từ khách Tổng hợp tình hình Kết thúc Đón tiếp xếp phịng cho khách Khi khách/ đồn tới khách sạn, khách có u cầu nhận phịng khách có đặt phịng trước khách phảI đưa thơng tin liên quan đến đặt phịng Nhân viên lễ tân tra cứu thơng tin đặt phịng máy tính, 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 khách khơng đặt 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 cho khách thông 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àn viên đồn, số lượng phịng, loại phịng, danh sách khách phị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 Chưa đặt chỗ trước Xác nhận việc đặt phòng Làm thủ tục đăng kí Đón tiếp Trong thời gian khách lưu trú khách sạn, khách sạn cung cấp dịch vụ ph vụnhucầu khách: ăn uống, giảI trí, điện thoại… ngồI cịn có Xác định khả tốn Xác định khả KS dịch vụ kđược cun cấp theo yêu cầu riêng khách Bộ phận lễ tân II giảI pháp kĩ thuật Bàn giao chìa khóa Giới thiệu dịch vụ Đưa khách nhập phịng Hồn tất hồ sơ Giới thiệu thỏa thuận Phương án thay Kết thúc 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 dịch vụ khách hàng gửi lên từ phận phục vụ khác đê 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 Cung cấp dịch vụ Lưu thông tin sử dụng dịch vụ Tổng hợp thơng tin sử dụng dịch vụ # Số phịng # Mã loại phịng Hóa đơn # Số hóa đơn # Mã trả phòng # Mã dịch vụ Sự đặt phòng trước # Mã đặt phòng # Số phòng # Mã khách đặt Trả phòng Khách đặt # Mã khách đặt Thuê phòng # Mã trả phòng # Mã thuê phòng # Mã thuê phòng # Số phòng # Mã khách Khách # Mã khách Sd dịch vụ # Mã dịch vụ # Mã khách dịch vụ # Mã dịch vụ Một số giao diện chương trình đoạn mã xử lý:  Form đăng nhập: Private Sub cmdlogin_Click() Dim kt As Boolean, ktht As Boolean, intAnswer kt = False ktht = False MsgBox Txtuser.Text & "_" & txtpass.Text Do Until dedqlks.rscmduser.EOF If dedqlks.rscmduser.Fields("username") = Txtuser.Text And dedqlks.rscmduser.Fields("password") = txtpass.Text Then If dedqlks.rscmduser.Fields("quyentruynhap") = "admin" Then ktht = True Else kt = True End If Exit Do End If dedqlks.rscmduser.MoveNext Loop If kt Then Me.Hide MDImainform.muhethong.Visible = False MDImainform.capnhatdanhmuc.Visible = True MDImainform.dangki.Visible = True MDImainform.mubaocao.Visible = True MDImainform.trogiup.Visible = True MDImainform.Show Else If ktht Then Me.Hide MDImainform.muhethong.Visible = True MDImainform.capnhatdanhmuc.Visible = True MDImainform.dangki.Visible = True MDImainform.mubaocao.Visible = True MDImainform.trogiup.Visible = True MDImainform.Show Else intAnswer = MsgBox("Bạn đăng nhập sai , đăng nhập lại", vbOKOnly + vbExclamation, "Thông báo") cnt = cnt + Txtuser.Text = "" txtpass.Text = "" Txtuser.SetFocus End If End If If cnt >= Then End End Sub  Form chính:  Form cập nhật: Xem ghi cuối cùng: Private Sub cmdcuoi_Click() dedqlks.rscmdphong.MoveLast txtsophong.Text = dtgphong.Columns(0) dtcloaiphong.Text = dtgphong.Columns(1) txttel.Text = dtgphong.Columns(2) dtcmanvpv.Text = dtgphong.Columns(3) txttiennghi.Text = dtgphong.Columns(4) End Sub Xem ghi Private Sub cmddau_Click() dedqlks.rscmdphong.MoveFirst txtsophong.Text = dtgphong.Columns(0) dtcloaiphong.Text = dtgphong.Columns(1) txttel.Text = dtgphong.Columns(2) dtcmanvpv.Text = dtgphong.Columns(3) txttiennghi.Text = dtgphong.Columns(4) End Sub Ghi lại: Private Sub cmdghilai_Click() dedqlks.rscmdphong.Update MsgBox "Da ghi!" End Sub Xem ghi Private Sub cmdsau_Click() On Error GoTo loi dedqlks.rscmdphong.MoveNext thoat: Exit Sub loi: MsgBox "Da ve ban ghi cuoi" Resume thoat End Sub Sửa thông tin: Private Sub cmdsua_Click() If txtsophong.Text = dtgphong.Columns(0).Text Or Len(txtsophong.Text) = Then i = MsgBox("ban co that su muon sua khong", vbQuestion + vbYesNo, "sua") If i = vbYes Then If Len(dtcloaiphong.Text) Then dedqlks.rscmdphong.Fields("loaiphong") = dtcloaiphong.Text End If If Len(txttel.Text) Then dedqlks.rscmdphong.Fields("tel") = txttel.Text End If If Len(dtcmanvpv.Text) Then dedqlks.rscmdphong.Fields("manvpv") = dtcmanvpv.Text End If If Len(txttiennghi.Text) Then dedqlks.rscmdphong.Fields("tiennghi") = txttiennghi.Text End If dedqlks.rscmdphong.MovePrevious dedqlks.rscmdphong.MoveNext End If Else dk1 = "[sophong]='" & dtgphong.Columns(0).Text & "'" dk = "[sophong]='" & txtsophong.Text & "'" dedqlks.rscmdphong.MoveFirst dedqlks.rscmdphong.Find dk If Not dedqlks.rscmdphong.EOF Then MsgBox "So phong da co" txtsophong.SetFocus Else i = MsgBox("ban co that su muon sua khong", vbQuestion + vbYesNo, "sua") If i = vbYes Then dedqlks.rscmdphong.MoveFirst dedqlks.rscmdphong.Find dk1 dedqlks.rscmdphong.Fields("sophong") = txtsophong.Text If Len(dtcloaiphong.Text) Then dedqlks.rscmdphong.Fields("loaiphong")=dtcloaiphong.Text End If If Len(txttel.Text) Then dedqlks.rscmdphong.Fields("tel") = txttel.Text End If If Len(dtcmanvpv.Text) Then dedqlks.rscmdphong.Fields("manvpv") = dtcmanvpv.Text End If If Len(txttiennghi.Text) Then dedqlks.rscmdphong.Fields("tiennghi") = txttiennghi.Text End If dedqlks.rscmdphong.MovePrevious dedqlks.rscmdphong.MoveNext End If End If End If End Sub Nhập Private Sub cmdthem_Click() dedqlks.rscmdphong.AddNew End Sub Thoát Private Sub cmdthoat_Click() Unload Me End Sub Tìm kiếm: Private Sub cmdtim_Click() ftimphong.Show End Sub Xem ghi trước: Private Sub cmdtruoc_Click() On Error GoTo loi dedqlks.rscmdphong.MovePrevious thoat: Exit Sub loi: MsgBox "Da ve ban ghi dau" Resume thoat End Sub Xóa Private Sub cmdxoa_Click() dedqlks.rscmdphong.Delete MsgBox "Da xoa!" End Sub  Form tìm kiếm: Đoạn mã: Private Sub cmdthuchien_Click() If txtdktim.Text = "" Then MsgBox "Ban chua nhap dieu kien tim kiem", vbInformation, "Thong bao" Else dedqlks.rscmdkhach.MoveFirst If otkten.Value = True Then dedqlks.rscmdkhach.Find "hotenkhach='" & txtdktim.Text & "'" Else If otkttdd.Value = True Then dedqlks.rscmdkhach.Find "ttdinhdanh='" & txtdktim.Text & "'" Else If otkmakhach.Value = True Then dedqlks.rscmdkhach.Find "masokhach='" & txtdktim.Text & "'" End If End If End If If dedqlks.rscmdkhach.EOF Then MsgBox "Khong tim thay ten ma ban can tim", vbInformation, "Thong bao" Else Unload Me End If End If End Sub  Form đăng kí th phịng:  Báo cáo: Tài liệu tham khảo: 1.Phân tích thiết kế hệ thống thông tin đại – Nguyễn Văn Vỵ 2.Programming Visual Basic 6.0 – Microsoft Press Tự học Visual Basic 6.0 – www.ebooks.media.com ... tiện nghi quản lý khách sạn Ban quản lý Sơ đồ phân rã chức năng: Hệ thống quản lý khách sạn Quản lý khách sạn Quản lý đặt phòng qua mạng Quản lý tài nguyên Thông tin khách sạn Quản lý đặt phòng... sau: + Cascade Update Related fields + Cascade Delete Related fields - Cascade Update: Khi sửa giá trị trường khoá bảng giá trị tương ứng ghi trường quan hệ bị sửa theo - Cascade Delete: Khi xố... phần Recordset - Di chuyển ghi : AdodcName.RecordSet.Move n - Thêm ghi : AdodcName.RecordSet.AddNew - Lưu trữ ghi : AdodcName.RecordSet.Update - Loại bỏ ghi : AdodcName.RecordSet.Delete - Kiểm