Header Page of 126 Đồ án tốt nghiệp Xây dựng chương trình QLKS theo mô hình Server/Client VB Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp MỤC LỤC Giới thiệu PHẦN I :Phân tích hệ thống chương trình QLKS I.Phân tích đánh giá trạng I.1.Khảo sát trạng I.2.Mục tiêu xây dựng chương trình QLKS I.3.Đặc tả tốn I.4.Mô hình quản lý I.5.Qui trình quản lý II.Mô hình hóa liệu 10 II.1.Mô hình quan niệm liệu 10 II.2.Mô hình tổ chức liệu 16 II.3.Mô hình vật lý liệu 17 III.Mô hình hóa xử lýthông tin 22 III.1.Mô hình thông lượng 22 III.2.Mô hình quan niệm xử lý 23 III.3.Mô hình tổ chức xử lý 26 III.4.Mô hình vật lý xử lý 30 III.4.1 Hệ thống đơn vị tổ chức xử lý 30 III.4.2 Thiết kế IPO CHART 31 PHẦN II :NỘI DUNG CHƯƠNG TRÌNH 36 I.Giới thiệu nét ngôn ngữ VISUAL BASIC 36 II.Mô hình client – server 37 III.Một số giao diện – mã lệnh (code) chương trình 45 PHẦN III :Kết luận – hướng phát triển 61 PHẦN IV :Một số biểu mẫu in chương trình 62 Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp Lời giới thiệu T rong năm gần đây, du lịch ngành có tốc độ tăng trưởng cao nước Rất nhiều khách sạn phát triển, đổi liên tục nhanh chóng theo đà phát triển xã hội qui mô chất lượng Hiện nay, Khách sạn phải trực tiếp tiếp nhận quản lý khối lượng lớn thường xuyên loại khách, kèm theo hàng loạt loại dịch vụ phát sinh đa dạng khách, công việc quản lý hoạt động kinh doanh khách sạn ngày lớn phức tạp Hơn nữa, công tác quản lý không quản lý số mà thông qua phải rút cách nhanh chóng tình hình biến động thị trường, nhu cầu người tiêu dùng, khả đáp ứng… để từ định hướng, lập kế hoạch cho công việc kinh doanh Đây kho liệu lớn, lưu trữ xử lý cách thủ công trước mà cần phải tin học hố, cụ thể xây dựng chương trình tin học để quản lý thống tồn diện hoạt động kinh doanh khách sạn Chương trình Quản Lý Khách Sạn viết ngôn ngữ Visual Basic theo mô hình Server/Client chương trình thực số công việc vấn đề quản lý khách sạn quản lý phòng, quản lý dịch vụ, quản lý khách đăng ký thuê phòng… với CSDL sử dụng Microsoft Access Nhờ tận tâm theo sát hướng dẫn thầy Nguyễn Hữu Trọng, bước đầu em nghiên cứu vận dụng kiến thức học để xây dựng chương trình quản lý đáp ứng tương đối số yêu cầu đặt Tuy nhiên kiến thức hạn chế nên chương trình chắn không tránh khỏi thiếu sót, em mong góp ý nhắc nhở thầy cô bạn để bước xây dựng chương trình ngày hồn thiện hiệu Em xin chân thành cảm ơn Thầy Cô Khoa tạo diều kiện cho chúng em hồn tất đề tài PHẦN I : PHÂN TÍCH & THIẾT KẾ HỆ THỐNG CHƯƠNG TRÌNH QUẢN LÝ KHÁCH SẠN Có nhiều phương pháp phân tích thiết kế hệ thống thông tin đại Ở em chọn phương pháp MERISE MERISE dịch “Các phương pháp để tập hợp ý tưởng không cần cố gắng” viết tắc từ cụm từ Methode pour Rassembler les Idees Sans Effort Đặc trưng phương pháp MERISE xem xét, tách biệt liệu xử lý đảm bảo tính khách quan trình phân tích cung cấp đầy đủ mô hình Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp để diễn đạt bước cập nhật Hệ thống bao gồm liệu xử lý biểu diễn ba mức: - Mức quan niệm (Concept): mức cảm nhận để xác định hệ thống thông tin, mức cần xác định câu hỏi: Hệ thống thông tin cần yếu tố gì? Chức sao? Gồm liệu qui tắc quản lý nào? - Mức tổ chức (Orgarization): mức tổng hợp yếu tố nhận diện mức quan niệm Trong tổng thể vận động cần trả lời câu hỏi: Ai làm? Làm đâu nào? - Mức vật lý (Physic): mức chi tiết Về liệu cần có quan hệ cụ thể, có ngôn ngữ lập trình cụ thể Về xử lý cần có đầy đủ đặc tả cho thủ tục chương trình, có tham khảo ngôn ngữ chương trình Các bước phát triển trình xây dựng hệ thống thông tin: -Bước phân tích: +Xác định vấn đề +Nghiên cứu trạng tổ chức +Nghiên cứu khả thi +Xây dựng sách hợp đồng trách nhiệm -Bước thiết kế: gồm: +Thiết kế tổng thể +Thiết kế chi tiết -Bước thực hiện: +Cài đặt hệ thống vào máy +Khai thác thích ứng I PHÂN TÍCH ĐÁNH GIÁ HIỆN TRẠNG I.1- KHẢO SÁT HIỆN TRẠNG Khi khảo sát qui trình hoạt động khách sạn, ta nắm thông tin sau: 1/ Đối tượng khách: khách thuê phòng có hai dạng: - Khách tập thể: nhóm nhiều người (được gọi thống khách đồn) thuộc tổ chức hay doanh nghiệp (gọi chung đơn vị) Một đơn vị có nhiều đồn khách lưu trú khách sạn thời điểm khác - Khách lẻ (gọi khách vãng lai) : loại khách không thuộc đơn vị Tại thời điểm khác nhau, người khách khách vãng lai hay nằm đồn Một người khách khách nước, quốc tế Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp Đối với khách sạn, việc phân loại khách quan trọng dựa vào đó, khách sạn có phương thức tổ chức, hoạt động cách thích hợp, đặc biệt chế độ hậu loại khách Khi chưa có chương trình quản lý khách sạn, việc xử lý thông tin đồn khách, đơn vị hay vị khách cần tốn nhiều thời gian 2/ Đối tượng phòng: Nhân viên lễ tân sau nhận khách vào phòng theo dõi khách sơ đồ phòng Sơ đồ phòng tờ giấy mô tả vị trí phòng khách sạn Phòng có khách đánh dấu hay ghi ký hiệu Thông tin khách phòng ghi lại sổ nhật ký Hàng ngày khách sạn lưu lại sơ đồ phòng ngày để làm báo cáo Do yêu cầu phải luôn nắm thông tin phòng khách sạn bắt thời điểm phòng có biến động (khách chuyển phòng, bớt khách phòng, ) phải viết lại khó khăn 3/ Sử dụng dịch vụ: Khi khách lưu trú khách sạn thường hay sử dụng dịch vụ như: điện thoại, fax, thuê xe, massage, ăn, nước uống, Nhân viên khách sạn phải ghi nhận lại phát sinh để làm báo cáo hay tốn với khách sau Thông thường khách sạn phận phòng (đăng ký, phân phòng, trả phòng) nhân viên lễ tân phụ trách, phần cung cấp dịch vụ cho khách lại phận khác đảm trách Các phận tách rời lại có quan hệ chặt chẽ đối tượng phục vụ khách thuê phòng Qua quan sát trực tiếp hoạt động khách sạn, em nhận thấy tồn công việc đề cập nhập thủ công tay lưu tạm thời giấy, sau nhập rời rạc vào máy tính Cuối ngày cuối tháng, nhân viên phụ trách sử dụng phần mềm bảng tính Excel để tạo báo cáo tổng hợp tài quản trị Và cần thông tin khách hàng hay dịch vụ, việc tìm kiếm thường khó khăn Kết đơn vị phải tốn nhiều nhân lực thời gian để cập nhật xử lý liệu Lãnh đạo đơn vị khó kiểm tra đạo xác hoạt động kinh doanh đơn vị I.2 - MỤC TIÊU XÂY DỰNG CHƯƠNG TRÌNH QUẢN LÝ KHÁCH SẠN Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp Kinh doanh khách sạn gồm hai hoạt động cho thuê phòng kinh doanh loại dịch vụ có liên quan Mục tiêu xây dựng chương trình quản lý khách sạn bao gồm nội dụng sau: -Tổ chức thống hệ thống sở liệu nhằm lưu giữ thống tồn liệu hoạt động khách sạn : khách hàng, phòng ốc, dịch vụ kèm theo để phục vụ cho công tác quản lý -Tin học hóa công tác quản lý khách hàng -Tin học hóa qui trình đăng ký, nhận phòng quản lý phòng -Tin học hóa việc cung cấp loại dịch vụ cho khách -Tin học hóa việc tốn cho khách -Tổng hợp lập báo cáo về: thuê phòng, trạng phòng, công suất buồng, doanh thu khách sạn, nhà hàng dịch vụ -Sử dụng mô hình Server/Client để chuyên biệt hố công việc: chương trình quản lý Khách sạn hiệu Client nơi tiếp nhận luồng liệu khác tương ứng với phần hành giao hồn tồn độc lập với thao tác máy chủ Server nơi chứa sở liệu Client cung cấp chịu trách nhiệm xử lý, tổng hợp liệu có Như mô hình Server/Client làm cho tồn chương trình vừa thống vừa có độc lập loại công việc I.3- ĐẶC TẢ BÀI TỐN Như vào trạng mục tiêu cần giải quyết, chương trình quản lý khách sạn quản lý xử lý nhóm thông tin sau : 1/ Đối tượng quản lý: -Quản lý khách: Nắm thông tin cá nhân khách thuê phòng : Họ tên, địa chỉ, số CMND Với khách quốc tế cần quản lý thêm hộ chiếu, quốc tịch, Nắm thông tin đồn khách: tên đồn, đơn vị, địa chỉ, tel, fax, tài khoản, mã số thuế tổ chức đơn vị Số lượng chi tiết vị khách đồn -Quản lý phòng: Mỗi phòng cần quản lý thông tin: số phòng, loại phòng, giá phòng, ngày đăng ký, ngày nhận phòng, ngày trả phòng -Quản lý hàng hóa dịch vu: Tên hàng hóa, dịch vụ, số lượng, giá, đặc điểm, nơi cung cấp, trình tốn, Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp 2/ Thiết kế giao diện để nhập nghiệp vụ khách sạn sau: a) Đăng ký khách: Khách trước thuê phòng phải làm thủ tục ban đầu đăng ký phòng Trong mục nhân viên lễ tân cập nhật thông tin vào máy tính để quản lý sau: -Đồn: mã số đồn, tên đồn, ngày nhận phòng dự kiến, số lượng phòng cần thuê, đơn vị Nếu đơn vị lần đầu đến thuê phải nhập thông tin đơn vị: mã số đơn vị, tên đơn vị, địa chỉ, điện thoại,….chương trình cho phép truy tìm đơn vị lưu trú khách sạn trước Thông tin chi tiết người khách đồn -Khách: nhập tên khách, mã số khách, số cmnd, địa chỉ, hộ chiếu, quốc tịch khách Nếu khách cũ, chương trình tự động dò tìm thông qua khố mã số, số cmnd, tên, số hộ chiếu khách b) Phân phòng: bố trí vị khách vào phòng Mỗi phòng có nhiều khách c) Thiết kế sơ đồ phòng d) Quản lý phòng (xem thông tin phòng, đổi phòng, trả phòng, in hóa đơn phòng) c) Giao diện nhập dịch vụ cho khách e) Quản lý khách đồn f) Quản lý việc tốn tiền phòng dịch vụ g) Tìm kiếm thông tin khách hàng dịch vụ I.4 MÔ HÌNH QUẢN LÝ Do đặc thù kinh doanh mình, khách sạn thường chia làm hai phận : khách sạn nhà hàng Khách sạn quản lý phòng dịch vụ kèm theo điện thoại, Fax, thuê xe, hội trường, Nhà hàng dùng để quản lý dịch vụ ăn uống, giặt là, Vị trí chức tác nghiệp hai phận khác tương đối rõ rệt Trong phận quản lý chung phải quản lý bao quát tồn hoạt động hai phận chương trình quản lý khách sạn tổ chức theo mô hình Mẹ – Con thích hợp Mô hình gồm có Server Client, sở liệu đặt phận quản lý đóng vai trò Server có nội dung theo dõi tổng hợp báo cáo số liệu từ CSDL Bộ phận khách sạn Client dùng để cập nhật khách Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp thuê phòng dịch vụ liên quan Bộ phận nhà hàng Client dùng để cập nhật dịch vụ ăn uống nhà hàng khác Giữa Server Client nối với mạng LAN sử dụng cáp mạng thông qua Hub trung tâm Mô hình quản lý khách sạn qua mạng biểu diễn sau: Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page of 126 Đồ án tốt nghiệp CLIENT KHÁCH SẠN Cập nhập liệu : -Đặt phòng -Phân phòng -Nhập dịch vụ khách sạn -Trả phòng tốn, CLIENT NHÀ HÀNG Cập nhập liệu : - Nhập dịch vụ nhà hàng - Quản lý danh mục hàng, SERVER -Lưu trữ CSDL khách sạn -Quản lý thông tin -Tổng hợp xử lý liệu Client khách sạn nhà hàng cung cấp -Cấp phát quyền truy cập, I.5 - QUI TRÌNH QUẢN LÝ NHƯ SAU Khách thuê phòng làm thủ tục đăng ký đặt phòng, nhân viên khách sạn (lễ tân) vào yêu cầu khách loại phòng, ngày bắt đầu thuê, số lượng phòng đáp ứng lưu vào máy tính Phần truy tìm nhanh khách hàng lưu trú khách sạn Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page 10 of Đồ 126 án tốt nghiệp 10 Khi khách đến thuê phòng, khách đồn làm thủ tục đặt phòng từ trước, lễ tân làm thủ tục để tiếp nhận khách phân bổ phòng cho khách đồn Nếu khách lãng lai chưa đặt phòng trước lễ tân làm thủ tục đặt phòng đồng thời bố trí phòng cho khách Khi phân bổ vào phòng phải thực cho dứt điểm cho đồn Nhiều người phân phòng Trong khách lưu trú, phận Lễ tân phải cập nhật tất dịch vụ phát sinh khách : điện thoại, fax, giặt ủi, để lưu máy tính Bộ phận nhà hàng cập nhật chi phí khách về: ăn, uống, .dữõ liệu lưu máy chủ để trả phòng tốn quầy lễ tân Nếu khách có yêu cầu thay đổi sang phòng khác (chuyển phòng) Chương trình phải tự động chuyển tất dịch vụ phát sinh khách sang phòng Tại thời điểm nào, khách yêu cầu phải liệt kê tất chi phí phát sinh dịch vụ mà khách thuê phòng sử dụng Khi khách trả phòng, Khách sạn phải liệt kê tất chi phí khách lưu khách sạn in hóa đơn tính tiền Đối với khách vãng lai, phải in bảng kê dịch vụ sử dụng Đối với khách đồn, phải liệt kê tất dịch vụ sử dụng chung cho đồn riêng vị khách đồn Và để chương trình hoạt động an tồn mạng có tính bảo mật, người quản trị CSDL cấp phát cho nhân viên sử dụng tên mật sử dụng chương trình II MÔ HÌNH HÓA DỮ LIỆU II.1 - MÔ HÌNH QUAN NIỆM DỮ LIỆU Mô hình quan niệm liệu mô tả liệu hệ thống thông tin độc lập với lựa chọn môi trường cài đặt; công cụ cho phép người phân tích thể liệu hệ thống mức quan niệm Mô hình sở để trao đổi người phân tích người yêu cầu thiết kế hệ thống Phương pháp MERISE sử dụng mô hình thực thể – mối kết hợp Sau phân tích trạng yêu cầu xử lý liệu trình bày phần trên, ta thiết lập mô hình quan niệm liệu hệ thống thông qua việc mô tả thực thể cho đối tượng quản lý: Footer Page 10 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page 48 of Đồ 126 án tốt nghiệp  Mã lệnh: Dim st, sdnut As Boolean Dim timsp As Boolean Private Sub cmdcat_Click() openphong = True Unload Me If sdnut Then Unload frmsodoph Load frmsodoph frmsodoph.Show End If End Sub ‘ -Private Sub cmdchuyenkh_Click() If MsgBox("Có chuyển khách sang phòng khác không?", vbYesNo, "Chuyển khách", 0, 0) = vbYes Then If timsp And (Dcbsoph.Text "") And (txttenkh.Text "") Then sdnut = True With DE.rsChuyentraphong Open MoveFirst Footer Page 48 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 48 Header Page 49 of Đồ 126 án tốt nghiệp 49 Do While Not (.EOF) If (.Fields("maphong") = lbsp.Caption) And (.Fields("madp") = txtmadp.Text) Then Fields("maphong") = Dcbsoph.Text Update Exit Do Else MoveNext End If Loop Close End With 'Update table phong, đánh dấu phòng có khách With DE.rsPhong MoveFirst Do While Not (.EOF) If Fields("maphong") = Dcbsoph.Text Then Fields("CK") = Exit Do Else MoveNext End If Loop End With ' -fgrid.Col = 1: fgrid.Text = "" fgrid.Col = 2: fgrid.Text = "" Else MsgBox "Không chuyển được, kiểm tra lại", vbCritical, "Lưu ý" End If End If End Sub ‘ -Private Sub cmdchuyenphong_Click() If timsp And (Dcbsoph.Text "") Then sdnut = True DE.Qsudungphong (Dcbsoph.Text) If DE.rsQsudungphong.RecordCount > Then DE.rsQsudungphong.Close If MsgBox("Phòng có khách, có chuyển sang không?", vbYesNo, "Chuyển phòng", 0, 0) = vbYes Then Chuyenphong End If Else DE.rsQsudungphong.Close Footer Page 49 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page 50 of Đồ 126 án tốt nghiệp Chuyenphong End If Else MsgBox "Không có phòng này", vbCritical, "L­u ý" End If End Sub ‘ -Private Sub cmdInhd_Click() Dim tde, mtenkh tde = " Chi tiết Hố đơn phòng " & lbsp.Caption If Optall Then Imgtim_Click End If If optph Then mtenkh = "%" + txttenkh.Text + "%" SQLph sophong, mtenkh DE.Commands.Item("Qsudungdv").CommandText = st Gridsddv.DataMember = "Qsudungdv" DE.rsQsudungdv.Close End If If optdv Then mtenkh = "%" + txttenkh.Text + "%" SQLdv sophong, mtenkh DE.Commands.Item("Qsudungdv").CommandText = st Gridsddv.DataMember = "Qsudungdv" DE.rsQsudungdv.Close End If rpthdphong.Title = tde rpthdphong.Show End Sub ‘ -Private Sub cmdnhapdv_Click() 'Update table su dung dv If txtmadp.Text "" Then With DE.rsSudungdv Open AddNew Fields("masddv") = Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd") & Format(Time, "hh") & Format(Time, "nn") & Format(Time, "ss") Fields("ngaysddv") = txtngay.Text Fields("madp") = txtmadp.Text Fields("madv") = txtmadv.Text Fields("diengiai") = txtdiengiai.Text Fields("soluong") = Val(txtsl.Text) Fields("dongia") = Val(txtdongia.Text) Update Close Footer Page 50 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 50 Header Page 51 of Đồ 126 án tốt nghiệp End With Imgtim_Click Else MsgBox "Chưa chọn khách", vbCritical, "Lưu ý" End If End Sub ‘ -Private Sub cmdtraphong_Click() If MsgBox("Có trả phòng không?", vbYesNo, "Trả phßng", 0, 0) = vbYes Then 'Update table phong sdnut = True With DE.rsPhong MoveFirst Do While Not (.EOF) If Fields("maphong") = sophong Then Fields("CK") = Exit Do Else MoveNext End If Loop End With ' -With DE.rsChuyentraphong Open MoveFirst Do While Not (.EOF) If Fields("maphong") = lbsp.Caption Then Fields("ngaytp") = txtngaytra.Text Fields("giotp") = txtgiotra.Text Fields("traphong") = End If MoveNext Loop Close End With cmdcat_Click End If End Sub ‘ -Private Sub cmdxoa_Click() Dim masddv masddv = Gridsddv.Columns(8) With DE.rsSudungdv Open MoveFirst Footer Page 51 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 51 Header Page 52 of Đồ 126 án tốt nghiệp Do While Not (.EOF) If Fields("masddv") = masddv Then Delete Exit Do Else MoveNext End If Loop Close End With Imgtim_Click End Sub ‘ -Private Sub Dcbdv_LostFocus() Dim tim As Boolean tim = False With DE.rsDichvu MoveFirst Do While Not (.EOF) If (.Fields("tendv") = Dcbdv.Text) Or (Dcbdv.Text = "") Then txtmadv.Text = Fields("madv") tim = True Exit Do Else MoveNext End If Loop If Not tim Then MsgBox "Không có dv này", vbCritical, "L­u ý" Dcbdv.SetFocus End If End With End Sub ‘ -Private Sub Dcbsoph_Click(Area As Integer) cmdchuyenphong.Enabled = True cmdchuyenkh.Enabled = True End Sub ‘ -Private Sub Dcbsoph_LostFocus() timsp = False With DE.rsPhong MoveFirst Do While Not (.EOF) If (.Fields("maphong") = Dcbsoph.Text) Or (Dcbsoph.Text = "") Then timsp = True Exit Do Footer Page 52 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 52 Header Page 53 of Đồ 126 án tốt nghiệp Else MoveNext End If Loop If Not timsp Then MsgBox "Không có phòng này", vbCritical, "L­u ý" Dcbsoph.SetFocus End If End With End Sub ‘ -Private Sub fgrid_Click() fgrid.Col = txttenkh.Text = fgrid.Text fgrid.Col = txtmadp.Text = fgrid.Text End Sub ‘ -Private Sub Form_Load() Dim i, j sdnut = False txtngay.Text = Date lbsp.Caption = sophong fgrid.Row = fgrid.ColWidth(0) = 0: fgrid.ColWidth(1) = 2500: fgrid.Col = 1: fgrid.Text = " Tên Khách hàng" fgrid.ColWidth(2) = 1300: fgrid.Col = 2: fgrid.Text = "CMND/HC" i=1 With DE.rsQsudungphong MoveFirst txttendoan.Text = Fields("tendoan") & " - " & Fields("tendonvi") If Fields("tentinh") "" Then txtdiachi.Text = Fields("tentinh") Else txtdiachi.Text = " " End If txtngaynp.Text = Fields("ngaynp") txtgionp.Text = Fields("gionp") Do While Not (.EOF) fgrid.Row = i fgrid.Col = 1: fgrid.Text = Fields("tenkh") fgrid.Col = 2: fgrid.Text = Fields("cmnd") fgrid.Col = 3: fgrid.Text = Fields("madp") MoveNext i=i+1 Loop Close Footer Page 53 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 53 Header Page 54 of Đồ 126 án tốt nghiệp End With 'Lấy thông tin sử dụng dịch vụ Imgtim_Click End Sub ‘ -Public Sub SQLsddv(soph, mtenkh) st = "" st = st + "Select *" st = st + " From Qsudungdv" st = st + " Where maphong Like " + """" + soph + """" st = st + " and tenkh Like " + """" + mtenkh + """" End Sub ‘ -Public Sub SQLdv(soph, mtenkh) st = "" st = st + "Select *" st = st + " From Qsudungdv" st = st + " Where maphong Like " + """" + soph + """" st = st + " and tenkh Like " + """" + mtenkh + """" st = st + " and tendv " + """" + "Phßng" + """" End Sub ‘ -Public Sub SQLph(soph, mtenkh) st = "" st = st + "Select *" st = st + " From Qsudungdv" st = st + " Where maphong Like " + """" + soph + """" st = st + " and tenkh Like " + """" + mtenkh + """" st = st + " and tendv Like " + """" + "Phßng" + """" End Sub ‘ -Private Sub Gridsddv_Click() cmdxoa.Enabled = True End Sub Private Sub imghien_Click() txttenkh.Text = "" Imgtim_Click End Sub ‘ -Private Sub Imgtim_Click() Dim mtenkh mtenkh = "%" + txttenkh.Text + "%" SQLsddv sophong, mtenkh DE.Commands.Item("Qsudungdv").CommandText = st Gridsddv.DataMember = "Qsudungdv" DE.rsQsudungdv.Close Footer Page 54 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 54 Header Page 55 of Đồ 126 án tốt nghiệp End Sub ‘ -Public Sub Chuyenphong() 'Update table phong With DE.rsPhong MoveFirst Do While Not (.EOF) If Fields("maphong") = Dcbsoph.Text Then Fields("CK") = End If If Fields("maphong") = lbsp.Caption Then Fields("CK") = End If MoveNext Loop End With ' -With DE.rsChuyentraphong Open MoveFirst Do While Not (.EOF) If Fields("maphong") = lbsp.Caption Then Fields("maphong") = Dcbsoph.Text End If MoveNext Loop Close End With lbsp.Caption = Dcbsoph.Text End Sub ‘ -Private Sub txtdongia_LostFocus() If Not IsNumeric(txtdongia.Text) Then MsgBox "Nhập sai kiểu liệu", vbCritical, "Lưu ý" txtdongia.SetFocus End If End Sub ‘ -Private Sub txtgiotra_Click() txtgiotra.Text = Time End Sub ‘ -Private Sub txtgiotra_LostFocus() If Not IsDate(txtgiotra.Text) Then MsgBox "Nhập sai", vbCritical, "Lưu ý" txtgiotra.SetFocus End If Footer Page 55 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 55 Header Page 56 of Đồ 126 án tốt nghiệp 56 End Sub ‘ -Private Sub txtngay_Click() txtngay.Text = Date End Sub ‘ -Private Sub txtngaytra_Click() txtngaytra.Text = Date End Sub ‘ -Private Sub txtngaytra_LostFocus() If Not IsDate(txtngaytra.Text) Then MsgBox "Nhập ngày sai", vbCritical, "Lưu ý" txtngaytra.SetFocus End If End Sub ‘ -Private Sub txtsl_LostFocus() If Not IsNumeric(txtsl.Text) Then MsgBox "Nhầp số lượng không kiểu", vbCritical, "Lưu ý" txtsl.SetFocus End If End Sub PHẦN IV : KẾT LUẬN – HƯỚNG PHÁT TRIỂN I KẾT LUẬN Bằng việc xây dựng chương trình Quản Lý Khách sạn theo mô hình Server/Client, giúp cho phận lễ tân, nhà hàng tự động hóa phần lớn công việc mình, làm tăng suất hiệu công việc Trên sở giúp ban giám đốc nhanh chóng kiểm tra, tổng hợp, lấy kết để nắm bắt diễn biến khách hàng, khả đáp ứng nhu cầu từ đề định, phương án kinh doanh kịp thời Tóm lại, nhờ hướng dẫn nhiệt tình thầy Nguyễn Hữu Trọng cố gắng thân, chương trình Quản Lý Khách sạn hồn thành, tương đối đáp ứng nhu cầu cập nhật, truy vấn thông tin nhanh chóng giải việc tổ chức quán sở liệu lưu trữ thông tin Tuy nhiên chương trình nhược điểm , thiếu sót cần hồn thiện thời gian tới Em mong nhận góp ý Thầy Cô bạn quan tâm đến vấn đề Footer Page 56 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page 57 of Đồ 126 án tốt nghiệp II 57 HƯỚNG PHÁT TRIỂN Ngồi việc tiếp tục nâng cấp hồn thiện chương trình Quản Lý Khách sạn Trong hướng tới, chương trình Quản Lý Khách sạn bổ sung để kết nối tự động bán tự động với chương trình kế tốn Khách sạn chưa liên kết Ngồi chương trình xây dựng thêm phần quản lý sở vật chất, quản lý qui trình phục vụ buồng, phòng Khách sạn, quản lý công tác nhập xuất hàng phận Nhà hàng MỘT SỐ BIỂU MẪU IN RA GIẤY CỦA CHƯƠNG TRÌNH QUẢN LÝ KHÁCH SẠN Bảng kê sử dụng dịch vụ nhà hàng khách cho phòng: BẢNG KÊ DỊCH VỤ ĐÃ SỬ DỤNG Phòng:……………… Loại:…………………………… Ngày nhận phòng:…………………… Ngày trả:………………… Stt Ngày sd Giờ sd Tên khách Tên dịch vụ SL 10/06/03 12/06/03 12/06/03 17:10 8:12 14:30 Nguyễn V/ A Lê Đức Bình Lê Đức Bình Giặt ủi Aên sáng Thuê xe 1 Đơn giá Thành tiền 2000 3000 3000 Cộng Phí dịch vụ (5%) Thuế VAT (10%) Footer Page 57 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 2000 3000 3000 8000 400 880 Header Page 58 of Đồ 126 án tốt nghiệp 58 Cộng tiền phải trả 9280 Lễ Tân Ngày in: 10:30:25am, 20/05/2003 Bảng kê chi tiết sử dụng dịch vụ nhà hàng đồn: BẢNG KÊ DỊCH VỤ ĐÃ SỬ DỤNG Tên đồn khách: …………………… Đơn vị:……………………… Ngày nhận phòng:…………………….Ngày trả:…………………… Số lượng khách theo đồn:……………Số lượng phòng sd:………… Stt Ngày sd Giờ sd SP Tên khách Tên dịch vụ SL Đơn giá Thành tiền 10/06/03 12/06/03 12/06/03 17:10 8:12 14:30 101 102 102 Nguyễn V/ A Lê Đức Bình Lê Đức Bình Giặt ủi Aên sáng Thuê xe 1 2000 3000 3000 2000 3000 3000 Cộng Phí dịch vụ (5%) Thuế VAT (10%) Cộng tiền phải trả 8000 400 880 9280 Lễ Tân Footer Page 58 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page 59 of Đồ 126 án tốt nghiệp 59 Ngày in: 10:30:25am, 20/05/2003 Báo cáo công suất buồng: thống kê tổng số khách, tỉ lệ loại khách công suất buồng ngày tháng theo bảng: BÁO CÁO CÔNG SUẤT BUỒNG THÁNG : MM/20YY Ngày … Tổng số Khách 40 35 … Đồn Sk % 30 75 30 60 … … Phân loại khách Vãng lai Trong nước Sk % Sk % 10 25 40 100 … … … … Quốc tế Sk % 0 … … Công suất buồng Sp % 25 60 … 30 31 TC Tổng hợp doanh thu: phòng, nhà hàng, dịch vụ ngày Footer Page 59 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic … Header Page 60 of Đồ 126 án tốt nghiệp 60 tháng BÁO CÁO TỔNG HỢP DOANH THU THÁNG : MM/20YY NGÀY KHÁCH SẠN NHÀ HÀNG DỊCH VỤ CỘNG … … … … … 30 31 Cộng Báo cáo tổng hợp khách theo đồn: thể doanh thu đồn tháng Footer Page 60 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page 61 of Đồ 126 án tốt nghiệp 61 BÁO CÁO TỔNG HỢP DOANH THU THÁNG : MM/20YY KHÁCH ĐỒN stt Tên đồn Đơn vị … … … Ngày Nhận Trả … … Tổng cộng: Khách sạn … Doanh thu Nhà hàng … Dịch vụ … Cộng … d/ In bảng kê chi tiết cho loại dịch vụ: liệt kê loại dịch vụ bán tháng theo bảng sau: BẢNG KÊ CHI TIẾT DOANH THU (Từ ngày Footer Page 61 of 126 đến ngày) Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Header Page 62 of Đồ 126 án tốt nghiệp 62 TÊN DỊCH VỤ: Ngày Dịch vụ Diễn giải Đvt Số lượng Đơn giá 1/5/03 1/5/03 2/5/03 … … … … … … Thành tiền Tổng cộng: Footer Page 62 of 126 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic ... MÔ HÌNH VẬT LÝ DỮ LIỆU Mô hình vật lý liệu mô hình liệu cài đặt máy tính hệ quản trị sở liệu Trong chương trình hệ quản trị CSDL Access Footer Page 16 of 126 Xây dựng chương trình QLKS theo mô. .. hoạt động kinh doanh đơn vị I.2 - MỤC TIÊU XÂY DỰNG CHƯƠNG TRÌNH QUẢN LÝ KHÁCH SẠN Footer Page of 126 Xây dựng chương trình QLKS theo mô hình Server/ Client Visual Basic Header Page of 126 Đồ án... Len()=12 Len()=12 Single Xây dựng chương trình QLKS theo mô hình Server/ Client Visual Basic Header Page 22 of Đồ 126 án tốt nghiệp 22 III- MÔ HÌNH HÓA XỬ LÝ III.1 - MÔ HÌNH THÔNG LƯỢNG : Nhằm