ĐỒ ÁN: Xây dựng chương trình QLKS theo mơ hình Server/Client Visual Basic Đồ án tốt nghiệp Lời giới thiệu rong năm gần đây, du lịch ngành có tốc độ tăng trưởng Tcao 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 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 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 hoàn tất đề tài Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ á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ả toá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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 q 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 th 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 đồ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ế Đố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 ln 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 th 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 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 để chun 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 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 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 th 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 đ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: -Đồ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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 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: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ á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 Xaây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 10 Khi khách đến th 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 ln 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ó 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 đồ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ý: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 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 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 51 Đồ án tốt nghiệp 52 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 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) Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghieäp 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 Do While Not (.EOF) If Fields("masddv") = masddv Then Delete Exit Do Else MoveNext End If Loop Close End With Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 53 Đồ án tốt nghiệp 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 Else MoveNext End If Loop If Not timsp Then MsgBox "Khơng có phịng này", vbCritical, "L-u ý" Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 54 Đồ án tốt nghiệp 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 End With 'Lấy thông tin sử dụng dịch vụ Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 55 Đồ án tốt nghiệp 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 56 Đồ án tốt nghiệp 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") = 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 57 Đồ án tốt nghiệp 58 ‘ -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 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 59 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 cịn 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 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ế tố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:…………………… Stt Ngày sd 10/06/0 12/06/0 12/06/0 Giờ sd 17:10 8:12 14:30 Tên khách Nguyễn V/ A Lê Đức Bình Lê Đức Bình Ngày trả:………………… Tên dịch vụ Giặt ủi SL Đơn giá Thành tiền 2000 2000 An sáng 3000 3000 Thuê xe 3000 3000 Xaây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 60 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 đồ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 Giờ sd SP sd 10/06/03 17:10 101 12/06/03 8:12 102 12/06/03 14:30 102 Tên khách Nguyễn V/ A Lê Đức Bình Lê Đức Bình Tên dịch vụ Giặt ủi An sáng Thuê xe SL 1 Đơn giá 2000 3000 3000 Thành tiền 2000 3000 3000 Xaây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 61 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á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 Tổng Ngày 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp … … 62 … … … … … … … … … 30 31 TC Tổng hợp doanh thu: phòng, nhà hàng, dịch vụ ngày 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic … Đồ án tốt nghiệp … 63 … … … … 30 31 Cộng 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 HỢP DOANH THU THÁNG : MM/20YY KHÁCH ĐOÀN stt Tên đoàn Ngày Đơn Nhận Trả vị Doanh thu Khách sạn Nhà hàng Dịch vụ Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Cộng Đồ án tốt nghiệp … … 64 … … … Tổng 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 đến ngày) TÊN DỊCH VỤ: Ngày Dịch vụ Diễn giải Đvt Số lượng Đơn giá Thành tiền 1/5/03 1/5/03 2/5/03 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp … … 65 … … … … Tổng cộng: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic ... đề tài Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ á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á... :Một số biểu mẫu in chương trình 62 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp PHẦN I : PHÂN TÍCH & THIẾT KẾ HỆ THỐNG CHƯƠNG TRÌNH QUẢN LÝ KHÁCH... 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp I PHÂN TÍCH ĐÁNH GIÁ