Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic

http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp OBO OK S CO M 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 PHẦN III PHẦN IV KIL III.Một số giao diện – mã lệnh (code) chương trình 45 :Kết luận – hướng phát triển 61 :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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp T KIL OBO OKS CO M Lời giới thiệu 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp PHÂN TÍCH ĐÁNH GIÁ HIỆN TRẠNG I.1- KHẢO SÁT HIỆN TRẠNG KIL OBO OKS CO M I 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ý Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M 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: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp I.3- KIL OBO OKS CO M -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 ĐẶ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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M -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ụ Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp I.4 MÔ HÌNH QUẢN LÝ KIL OBO OKS CO M 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp CLIENT KHÁCH SẠ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, KIL OBO OKS CO M 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 toán, 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 10 KIL OBO OKS CO M 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 56 KIL OBO OKS CO M 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 Imgtim_Click Else MsgBox "Chưa chọn khách", vbCritical, "Lưu ý" End If End Sub ‘ Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 57 KIL OBO OKS CO M 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 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 58 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M 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 ý" 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 59 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M 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 *" 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 60 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M ‘ -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") = 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 61 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp KIL OBO OKS CO M 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 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() Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 62 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 63 KIL OBO OKS CO M 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 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 64 KIL OBO OKS CO M 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á Thành tiền 2000 3000 3000 Cộng Phí dòch vụ (5%) Thuế VAT (10%) Cộng tiền phải trả Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 2000 3000 3000 8000 400 880 9280 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 65 KIL OBO OKS CO M 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 10/06/03 12/06/03 12/06/03 Giờ sd SP Tên khách Tên dòch vụ SL Đơn giá Thành tiền 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 Lễ Tân Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 66 KIL OBO OKS CO M Đồ án tốt nghiệp 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 … Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic … http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 67 KIL OBO OKS CO M Đồ án tốt nghiệp 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 Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 68 KIL OBO OKS CO M 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 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ụ … Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Cộng … http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 69 KIL OBO OKS CO M Đồ án tốt nghiệp 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 … … … … … … Thành tiền Tổng cộng: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M Đồ án tốt nghiệp Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic 70 [...]... TT -Phiếu TT -Tiền TT Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 17 II.2 - MÔ HÌNH TỔ CHỨC DỮ LIỆU KIL OBO OKS CO M 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),... TienTT) Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 18 II.3 - MÔ HÌNH VẬT LÝ DỮ LIỆU KIL OBO OKS CO M 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ổ... ng, thg III.3.1 Mô hình tổ chức xử lý: Mô hình tổ chức xử lý là mô hình liên hoàn các biến cố, công việc và các biến cố, công việc này được đặt tại vò trí làm việc cụ thể Những biến cố không xuất phát từ một nơi làm việc nào ta đặt trên đường phân cách giữa hai nơi làm việc Mô hình tổ chức xử lý chương trình khách sạn Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com... chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 32 4 MÔ HÌNH VẬT LÝ XỬ LÝ KIL OBO OKS CO M Từ mô hình tổ chức xử lý đã có, ta biến các thủ tục chức năng (công việc) tự động thành các đơn vò chương trình Ứng với mỗi đơn vò chương trình ta viết một đặc tả chi tiết để chuẩn bò cho việc lập trình Trong chương trình quản lý... Validation Rule Len()=12 Len()=12 5 Single Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 24 III- MÔ HÌNH HÓA XỬ LÝ KIL OBO OKS CO M III.1 - MÔ HÌNH THÔNG LƯNG : Nhằm mục đích xác đònh các luồng thông tin trao đổi giữa các bộ phận trong hệ thống thông tin quản lý Mô hình thông lượng của bài toán quản lý khách... danh sách đoàn Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 28 KIL OBO OKS CO M III.3 MÔ HÌNH TỔ CHỨC XỬ LÝ Mục tiêu là xác đònh rõ công việc do ai là, làm ở đâu, làm khi nào và làm theo phương thức nào Ở mức này các công việc trong mô hình quan niệm xử lý được gắn vào từng nơi làm việc cụ thể của môi trường thực... (5) Yêu cầu cung cấp dòch vụ nhà hàng Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 25 KIL OBO OKS CO M (6) Thông báo tình hình cung cấp dòch vụ nhà hàng Ban giám đốc – Lễ Tân: (7) Yêu cầu báo cáo doanh thu (8) Trả lời yêu cầu báo cáo III.2 MÔ HÌNH QUAN NIỆM XỬ LÝ a/ Mô hình quan niệm xử lý: Mục đích nhằm xác... No 2 Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 31 KIL OBO OKS CO M Đồ án tốt nghiệp KHÁCH HÀNG LỄ TÂN NHÀ HÀNG BAN QL 2 Hàng ngày Không có doanh thu ngày In Báo cáo doanh thu No Yes Giao bộ phận kế toán Cuối tháng In Doanh thu đoàn, tổng hợp dt,… In Báo cáo tháng Yes In Công suất buồng, danh sách đoàn,… Xây dựng chương trình. .. Thanh toán DV -Mã thanh toán DV -Ngày thanh toán -Phiếu TT -Tiền thanh toán Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Đồ án tốt nghiệp 16 Đơn vò -Mã đơn vò -Tên đơn vò -Điện thoại -Tài khoản -Mã số thuế (1,n) Đ-ĐV (1,1) KIL OBO OKS CO M II.1.2 MÔ HÌNH QUAN NIỆM DỮ LIỆU BÀI TOÁN QUẢN LÝ KHÁCH SẠN: Đoàn -Mã đoàn -Tên Đoàn -Ngày... phòng 4 Ghi nhận các dòch vụ khách sử dụng 6 Thanh toán tiền phòng và dòch vụ 7 Báo cáo doanh thu và quản trò Mô hình quan niệm xử lý: Khách hàng Đăng ký đặt phòng Yes No Thông báo nhận Thông báo không nhận Ghi thông tin khách Yes Xây dựng chương trình QLKS theo mô hình Server/Client bằng Visual Basic Có thông tin khách đặt phòng http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 26 KIL OBO OKS CO M Đồ ... Dòch vụ -Mã dòch vụ -Tên dòch vụ - ơn vò tính (1,n) Khách hàng -Mã KH -Tên KH - iện thoại Sử dụng Phòng -Mã đặt phòng -Nhận phòng Nước -Mã nước -Tên nước (1,1) -Mã đặt phòng -Ngày nhận phòng -Giờ... phòng -Ngày trả phòng -Giờ trả phòng -Giá phòng -Trả phòng (1,n) (1,n) (1,n) Phòng -Mã phòng -Loại phòng Ttoán phòng -Mã TTPH -Ngày TT -Phiếu TT -Tiền TT (1,n) Sdụng dòch vụ -Masddv -Ngày sddv -Diễn... (1,1) Đ-T (1,n) Tỉnh Mã tỉnh Tên tỉnh (1,n) KVN-T (1,1) Khách VN -CMND Đoàn Khách (1,n) (1,n) (1,1) DV-LDV (1,n) Loại DV -Mã loại -Tên loại KQT-N (1,1) Khách QT -Số hộ chiếu -Ngày cấp -Thời hạn