Xây dựng mô hình quản lý khách sạn theo mô hình server client trong visual basic

Trong những năm gần đây, du lịch là một trong những ngành có tốc độ tăng trưởng cao nhất cả nước. Rất nhiều khách sạn được phát triển, đổi mới liên tục và nhanh chóng theo đà phát triển của xã hội cả về qui mô và chất lượng.Hiện nay, các Khách sạn phải trực tiếp tiếp nhận và quản lý một khối lượng rất lớn và thường xuyên các loại khách, kèm theo đó là hàng loạt các loại dịch vụ phát sinh đa dạng của khách, do đó công việc quản lý hoạt động kinh doanh khách sạn là ngày càng lớn và phức tạp hơn. Hơn nữa, công tác quản lý không chỉ quản lý về con số mà thông qua nó phải rút ra được một cách nhanh chóng tình hình biến động của thị trường, nhu cầu người tiêu dùng, khả năng đáp ứng… để từ đó định hướng, lập kế hoạch cho công việc kinh doanh. Đây là kho dữ liệu rất lớn, không thể lưu trữ và xử lý một cách thủ công như trước đây mà cần phải tin học hoá, cụ thể là xây dựng một chương trình tin học để quản lý thống nhất và toàn diện hoạt động kinh doanh của khách sạn.

1 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 hoá, cụ thể xây dựng chương trình tin học để quản lý thống toà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 hoàn thiện hiệu 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 để 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 đoàn) thuộc tổ chức hay doanh nghiệp (gọi chung đơn vò) Một đơn vò có nhiều đoà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 đoàn Một người khách khách nước, quốc tế Đố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 đoà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 toá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 toà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 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 toà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 toá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 hoá 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 hoàn toà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 toà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 TOÁ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 đoàn khách: tên đoà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 đoà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 toán, 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: -Đoàn: mã số đoàn, tên đoà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 đoà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 khoá 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 đoàn f) Quản lý việc toá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 toà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 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: CLIENT CLIENTKHÁ KHÁCCHHSẠ SẠNN Cậ Cậppnhậ nhậppdữ dữliệ liệuu: : -Đặ -Đặt tphò phònng.g -Phâ -Phânnphò phònngg -Nhậ -Nhậppdòch dòchvụ vụkhá kháchchsạsạnn -Trả -Trảphò phònnggvà vàthanh thanhtoá toánn, , CLIENT CLIENTNHÀ NHÀHÀ HÀNNGG Cậ Cậppnhậ nhậppdữ dữliệ liệuu: : - -Nhậ Nhậppcá cáccdòch dòchvụ vụnhà nhàhà hànngg - -Quả Quảnnlýlýdanh danhmụ mụcchà hànng, g, SERVER SERVER -Lưu -Lưutrữ trữ CSDL CSDLcủ củaakhá kháchchsạsạnn -Quả -Quảnnlýlýthô thônnggtin tin -Tổ n g hợ p xử lý -Tổng hợp xử lýdữ dữliệ liệuudo do22Client Client c h sạ n nhà hà n g cung cấ khách sạn nhà hàng cung cấpp -Cấ -Cấppphá phát tquyề quyềnntruy truycậ cậpp, , 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 Khi khách đến thuê phòng, khách đoà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 đoà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 đoà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 toá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 đoàn, phải liệt kê tất dòch vụ sử dụng chung cho đoàn riêng vò khách đoàn Và để chương trình hoạt động an toà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 10 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ý: II.1.1 MÔ TẢ CÁC THỰC THỂ: KHÁCH HÀNG: thực thể mô tả thông tin cá nhân khách thuê phòng Mỗi người khách có mã số riêng Một khách hàng lẻ (vãng lai) hay theo đoàn (có thể nhiều đoàn khác nhau) hay có nhiều lần lưu trú khách sạn có mã số Khách hàng -Mã KH -Tên KH -Điện thoại KHÁCH VN: lưu thông tin khách nước (khách Việt Nam) Khách VN -CMND KHÁCH QTẾ : Khách thuê phòng khách quốc tế việc lưu thông tin mã số, họ tên lưu thông tin hộ chiếu khách Khách QT -Số hộ chiếu -Ngày cấp -Thời hạn ĐƠN VỊ: Mỗi đơn vò có mã số Một đơn vò có nhiều đoàn thời điểm khác 52 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 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() 53 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 Chuyenphong End If Else MsgBox "Không có phòng này", vbCritical, "Lu ý" End If End Sub ‘ -Private Sub cmdInhd_Click() Dim tde, mtenkh tde = " Chi tiết Hoá đơ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() 54 '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 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) 55 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 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 56 MoveNext End If Loop If Not tim Then MsgBox "Không có dv này", vbCritical, "Lu ý" 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 Else MoveNext End If Loop If Not timsp Then MsgBox "Không có phòng này", vbCritical, "Lu ý" 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 57 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 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 *" 58 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 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") = 59 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 End Sub ‘ -Private Sub txtngay_Click() txtngay.Text = Date End Sub ‘ -Private Sub txtngaytra_Click() txtngaytra.Text = Date 60 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 hoà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 hoà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 đề II HƯỚNG PHÁT TRIỂN 61 Ngoài việc tiếp tục nâng cấp hoà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ế toán Khách sạn chưa liên kết Ngoà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 n sáng Thuê xe 1 Đơn giá 2000 3000 3000 Thành tiền 2000 3000 3000 62 Cộng Phí dòch vụ (5%) Thuế VAT (10%) Cộng tiền phải trả 8000 400 880 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 đoàn: BẢNG KÊ DỊCH VỤ ĐÃ SỬ DỤNG Tên đoàn khách: …………………… Đơn vò:……………………… Ngày nhận phòng:…………………….Ngày trả:…………………… Số lượng khách theo đoà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 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 63 Lễ Tân 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 … 30 31 TC Tổng số Khách 40 35 … Đoà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 … … 64 Tổng hợp doanh thu: phòng, nhà hàng, dòch vụ ngày tháng BÁO CÁO TỔNG HP DOANH THU THÁNG : MM/20YY NGÀY KHÁCH SẠN NHÀ HÀNG DỊCH VỤ CỘNG … … … … … 30 31 Cộng 65 Báo cáo tổng hợp khách theo đoàn : thể doanh thu đoàn tháng BÁO CÁO TỔNG HP DOANH THU THÁNG : MM/20YY KHÁCH ĐOÀN stt Tên đoàn Đơn vò … … … Ngày Nhận Trả … … Tổng cộng: Doanh thu Khách sạn Nhà hàng … … Dòch vụ … Cộng … 66 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 đến ngày) 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 … … … … … … Tổng cộng: Thành tiền [...]... đầy đủ, đến Visual Basic 6.0 hỗ trợ nhiều tính năng mạnh chẳng hạn OLE DB để lập trình dữ liệu Các lập trình viên đã có thể dùng Visual Basic 6.0 để tự mở rộng Visual Basic 36 Visual Basic có sẵn các công cụ như : các hộp văn bản ,các nút lệnh, các nút tùy chọn, các hộp kiểm tra, các hộp liệt kê, các thanh cuộn, các hộp thư mục và tập tin Có thể dùng các khung kẻ ô để quản lý dữ liệu theo dạng bảng,... Select Case ) Hàm ( Function ) và chương trình con ( Subroutines ) Visual Basic đưa ra phương pháp lập trình mới, nâng cao tốc độ lập trình Cũng như các ngôn ngữ khác, mỗi phiên bản mới của Visual Basic đều chứa đựng những tính năng mới chẳng hạn Visual Basic 2.0 bổ sung cách đơn giản để điều khiển các cơ sở dữ liệu mạnh nhất có sẵn, Visual Basic 4.0 bổ sung thêm phần hỗ trợ phát triễn 32-bit và bắt đẩu... quản lý chung Trong đó cơ sở dữ liệu đặt tại phòng quản lý đóng vai trò một Server CHƯƠNG TRÌNH QUẢN LÝ KHÁCH SẠN THEO MÔ HÌNH 30 CLIENT: CLIENT: LỄ LỄ TÂ TÂNN -Đă -Đănngg ký ký đặ đặtt phò phònngg -Nhậ p thô n g tin -Nhập thông tin khá khácchh -Phâ -Phânn phò phònngg -Quả -Quảnn lý lý phò phònngg (chuyể (chuyểnn phò phònng, g, trả trả phò phònng) g) -Nhậ -Nhậpp dòch dòch vụ vụ KS KS CLIENT: CLIENT: NHÀ... button cho phép trả phòng cả đoàn -Tạo một command button để nhập dòch vụ cho cả đoàn PHẦN II: NỘI DUNG CHƯƠNG TRÌNH (SỬ DỤNG NGÔN NGỮ VISUAL BASIC) I- Giới thiệu các nét chính của ngôn ngữ VISUAL BASIC Visual Basic là một ngôn ngữ thảo chương hoàn thiện và hoạt động theo kiểu điều khiển bởi sự kiện ( Event - Driven programming language ) nhưng lại rất giống ngôn ngữ thảo chương có cấu trúc ( Structured... việc ) Các nội dung diễn ra khi ứng dụng đang chạy : Visual Basic giám sát các cửa sổ và các điều khiển trong từng cửa sổ cho tất cả mọi sự kiện mà từng điều khiển có thể nhận ra (các chuyển động chuột, các thao tác nhắp lên chuột, di chuyển, các gõ phím ) Khi Visual Basic phát hiện một sự kiện , nếu không có một đáp ứng tạo sẵn cho sự kiện đó, Visual Basic sẽ xem xét ứng dụng để kiểm tra người dùng đã... kiện đó hay chưa Nếu đã viết rồi , Visual Basic sẽ thi hành và hình thành nên thủ tục sự kiện đó và quay trở lại bước đầu tiên Nếu chưa viết thủ tục sự kiện , Visual Basic sẽ chờ sự kiện kế tiếp rồi quay về bước đầu tiên Các bước này quay vòng cho đến khi ứng dụng kết thúc Sau khi đã tìm hiểu thế nào là hoạt động theo kiểu điều khiển bởi sự kiện và các hổ trợ của Visual Basic, chúng ta sẽ thấy đây là một... theo kiểu điều khiển bởi sự kiện và các hổ trợ của Visual Basic, chúng ta sẽ thấy đây là một công cụ lập trình dể chòu và có xu hướng trở thành môi trường lập trình hoàn hảo cho những năm sắp tới II- MÔ HÌNH CLIENT – SERVER 1/ Giới thiệu mô hình Client – Server : ... Ngaysddv, Soluong, Dongia, Madvï) THANHTOANDV (MaTTDV, Masddv, NgayTT, PhieuTT, TienTT) 16 II.3 - MÔ HÌNH VẬT LÝ DỮ LIỆU Mô hình vật lý dữ liệu là mô hình của dữ liệu được cài đặt trên máy tính dưới một hệ quản trò cơ sở dữ liệu nào đó Trong chương trình này là hệ quản trò CSDL Access Ứng với mỗi lược đồ quan hệ trong mô hình tổ chức dữ liệu được cài đặt thành một bảng dữ liệu cơ sở (Table) Ở đây ta chỉ trình... loại (1,n) Phòng-Mã phòng -Loại phòng â â (1,n) Ttoán Dvụ -Mã TTDV -Ngày TT -Phiếu TT -Tiền TT 15 II.2 - MÔ HÌNH TỔ CHỨC DỮ LIỆU Mô hình tổ chức dữ liệu của hệ thống là lược đồ cơ sở dữ liệu của hệ thống Đây là bước trung gian chuyển đổi giữa mô hình quan niệm dữ liệu và mô hình vật lý dữ liệu (mô hình trong máy tính), chuẩn bò cho cài đặt hệ thống Sau đây là lược đồ quan hệ của bài toán quản lý khách... chung đoàn Trong Form này cho phép dò tìm tự động một vò khách trong hoặc ngoài nước đã được lưu trước đó trong CSDL bằng khoá là CMND, số hộ chiếu hay tên, tỉnh c) IOP Chart phân phòng: modun bố trí từng khách trong đoàn vào từng phòng IOP Chart Số : 03 Modun : Phân phòng Hệ thống : Client Lễ tân Mục tiêu : Bố trí khách vào phòng Ngày :01/01/2000 Người lập : NHLong Gọi bởi : Main Menu (Client lễ tân) ... tương đối rõ rệt Trong phận quản lý chung phải quản lý bao quát toà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... lễ tân, quầy nhà hàng phòng quản lý chung Trong sở liệu đặt phòng quản lý đóng vai trò Server CHƯƠNG TRÌNH QUẢN LÝ KHÁCH SẠN THEO MÔ HÌNH 30 CLIENT: CLIENT: LỄ LỄ TÂ TÂNN -Đă -Đănngg ký ký đặ... 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: CLIENT CLIENTKHÁ KHÁCCHHSẠ SẠNN Cậ Cậppnhậ