Báo cáo thực tập xây dựng chương trình QLKS theo mô hình server client bằng visual basic

BÁO CÁO THỰC TẬP TỐT NGHIỆP ĐỀ 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 .2 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 Thieát keá 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 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 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 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp I I.1- PHÂN TÍCH ĐÁNH GIÁ HIỆN TRẠNG 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp -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: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệ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 CLIENTKHÁCH KHÁCHSẠN SẠN Cập Cậpnhập nhậpdữ dữliệu liệu: : -Đặt phòng -Đặt phòng -Phân -Phânphòng phòng -Nhập -Nhập dịch dịch vụ vụ khách khách sạn sạn -Trả -Trả phòng phòng và thanh toán, toán, 10 CLIENT CLIENTNHÀ NHÀHÀNG HÀNG Cập Cậpnhập nhậpdữ dữliệu liệu: : - - Nhập Nhập các dịch dịch vụ vụ nhà nhàhàng hàng - - Quản Quản lý lý danh danh mục mục hàng, hàng, SERVER SERVER -Lưu -Lưutrữ trữ CSDL CSDLcủa củakhách khách sạn sạn -Quản -Quảnlý lýthông thôngtin tin -Tổng hợp xử lý -Tổng hợp xử lýdữ dữliệu liệu do22Client Clientkhách kháchsạn sạnvà nhà hàng cung cấp nhà hàng cung cấp -Cấp -Cấp phát phát quyền quyền truy truy caäp, caä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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 53 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 Chuyenphong Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 54 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() '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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 55 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 Do While Not (.EOF) Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 56 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, "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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 57 End If Loop If Not timsp Then MsgBox "Không có phòng naø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 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 Đồ án tốt nghiệp 58 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 End Sub ‘ -Public Sub Chuyenphong() Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 59 '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 End Sub ‘ -Private Sub txtngay_Click() txtngay.Text = Date Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 60 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 "Nhaà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 đề Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp II 61 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ế 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ả:………………… St t 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:1 8:12 Nguyễn V/ A Lê Đức Bình Lê Đức Bình Giặt ủi 2000 2000 n sáng Thuê xe 3000 3000 3000 3000 14:3 Đơn giá Thành tiền Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 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:………… St t Ngà y sd Giờ sd 10/06/ 03 12/06/ 03 12/06/ 03 17:10 8:12 14:30 SP Tên khách Tên dịch vụ SL Đơn giá Thành tiền 10 10 10 Nguyễn V/ A Lê Đức Bình Lê Đức Bình Giặt ủi 2000 2000 n sáng 3000 3000 Thuê xe 3000 3000 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp 63 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 Nga øy Tổn g số Khá ch 40 35 Đoàn Sk 30 30 % 75 60 Phân loại khách Vãng Trong lai 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 … … … … 64 … … … … … … … … 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 HP 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 … … 65 … … … 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 HP DOANH THU THÁNG : MM/20YY KHÁCH ĐOÀN st t Tên đoàn Đơ n vị … … … Ngày Nha Tra än û … … Tổng cộng: Doanh thu Khách Nhà sạn 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 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á Thành tiền 1/5/0 1/5/0 2/5/0 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Đồ án tốt nghiệp … … 67 … … … … Tổng cộng: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic ... thành môi trường lập trình hoàn hảo cho năm tới Xây dựng chương trình QLKS theo mô hình Server/ Client Visual Basic Đồ án tốt nghiệp II- 38 MÔ HÌNH CLIENT – SERVER 1/ Giới thiệu mô hình Client – Server. .. 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 Xây dựng chương trình QLKS theo mô hình Server/ Client Visual Basic Đồ án tốt nghiệp Mô hình gồm có Server Client, ... lớp Client lớp Server thật 3/ Truy cập liệu Visual Basic : Mô hình minh hoạ truy cập liệu VB Xây dựng chương trình QLKS theo mô hình Server/ Client Visual Basic Đồ án tốt nghiệp 41 Trong chương trình