Đề tài Quản lý khách sạn Sông Nhuệ Hà Tây

A Phần Mở đầu I.Lý do chọn đề t ài Chúng ta đang bước vào những năm đầu của thề k ỷ XXI,nhũng năm đầu của sự hội nhập va phát triển kinh tế,cùng với sự phát triển khơng ngừng của KH cơng nghệ . Chỉ với tuổi đời cực kỳ non trẻ nhưng tin học đã nhanh chĩng xâm nhập vào mọi ngĩc ngách của đời sống xã hội và đ ã mang l ại nhiều tiện ích trong các chiến lược quản lý của tất cả các ngành nghề trong xã hội và một trong những ứng dụng phổ biến nhất của KH máy tính được ap d ụng hiện nay, tại các cơ quan cơng sở là chương trình quản lý cơ sở d ữ liệu,nĩ đ ược ứng dụng trong hầu hết các mặt của đời sống xã hội. Do chương trình quản lý khách sạn bằng máy tính, là rất cần thiết, bởi v ì nĩ đem lại hiệu quả cơng việc rất cao, thời gian thực hiện cơng việc ngắn và độ chính xác lại cao. Đặc biệt là giảm tối thiểu số nhân cơng tham gia vào cơng tác quản lý. Ví dụ: trước kia khi chưa ứng dụng tin học vào cơng tác quản lý thì các cơng việc như cập nhật thơng tin khách hàng,xem các thơng tin về d ịch vụ của khách sạn,thơng tin về số phịng,và cơng nhân viên , hố đơn thanh tốn hay cơng việc bảng biểu, báo cáo tất cả đều làm thủ cơng nên các cán bộ quản lý phải mất rất nhiều thời gian mới tổng hợp được những thơng tin cần thiết.Mặt khác hiện nay trong các khách sạn, các cán bộ làm cơng tác quản lý thơng tin của khách sạn phải quản lý một lượng lớn thơng tin về cán bộ cơng nhân viên,tình trạng phịng. Trong cơng việc quản lý, họ phải quản lý thơng tin của mọi khách hàng, như: Họ tên, ngày sinh , địa chỉ,số phịng ....Từng ngày họ phải xem và cập nhật khách hàng , cũng như định k ỳ theo yêu cầu từ câp trên .Cán bộ quản lý phải đưa ra các báo cáo, danh sách các phịng đang sử dụng, danh sách các dịch vụ,thơng tin khách hàng nhận ,trả phịng, bảng thanh tốn của từng khách hàng. Việc này mất rất nhiều thời gian v à cơng sức của con người nên việc ứng dụng tin học vào cơng tác quản lý ngày càng trở nên hết sức cần thiết, quan trọng, trong việc quản lý khách sạn. Xuất phát từ mục đích đĩ em chọn đề tài "Quản lý khách sạn Sơng Nhuệ Hà Tây". Khi thực hiện đề tài này em rất mong sẽ giúp đỡ được phần nào cho việc quản lý thơng tin khách hàng,và các cơng việc quản lý của khách sạn, tại đây được thuận tiện,dễ dàng,tiết kiệm thời gian ,tiền của và hiệu quả cao , chuyên nghiệp hơn. Đề tài này được thực hiện trên phần mềm Microsoff Visuabasic 6.0. Cũng qua đề tài này em đã bổ xung được nhiều kiến thức mới , ơn l ại kiến thức cũ, thực hiện nhuần nhuyễn các thao tác trên from,report,menu... và nắm được cách tổ chức,sắp xếp,lưu trữ và quản l ý thơng tin của khách sạn . II. Mục đích ,và nhiệm vụ nghiên cứu: 1/ Định hướng + Cập nhật thơng tin về các khách hàng + Tìm kiếm khách hàng theo họ tên,số phịng,… + Thơng kê các phịng ,các dich vụ,nhân viên trong khách sạn… + In ra danh sách các nhân viên ,phong,dich vụ , khách hàng… +Tra cứu thơng tin khách hàng,và các hố đơn - Thiết kế hệ thống: + Để tìm xâydựng hệ thống thơng tin của cơ quan, xí nghiệp, trường học, doanh nghiệp… Điều cần thiết cần phải cĩ là phân tích thiết kế hệ thống. - Hệ thống phải đáp ứng được cho các cơ quan lớn, theo yêu cầu của hệ thống quản lý các chương trình cần thiết - Tổng hợp đầy đủ ,chính xác¸ kịp thời thơng tin về các khách hàng đến khách sạn,và sử dụng các dịch vụ. theo từng mã phịng hay họ tên. - Đưa ra danh sách khách hàng khi cần tìm kiếm theo một tiêu chuẩn nào đĩ - Cĩ khả năng bổ sung hoặc xố¸ bỏ thơng tin của khách hàng khi cần thiết. 2/Phân tích các chức năng của hệ thống 2.1. Thơng tin đầu vào và thơng tin đầu ra của hệ thống. Trước tiên, ta phải xác định các luồng thơng tin vào và ra của hề thống 2.1.1. Thơng tin đầu vào. - Danh sách khách hàng đến thuê phịng. - Danh sách khách hàng sử dụng dịch vụ. - Các thơng số cĩ liên quan đến khách hàng,và khách sạn. 2.1.2. Thơng tin đầu ra. - Danh mục phịng ,dịch vụ của khách sạn -Bảng danh sách khách hàng đăng ký -Các hố đơn sử dụng dịch vụ của khách hàng - Danh sách cán bộ cơng nhân viên 2.2. Nguyên tắc quản lý của hệ thống. - Hệ thống gồm ba chức năng chính sau: + Cập nhập. +Báo biểu + Tra cứu. - Phương thức hoạt động của các chức năng chính như sau: 2.2.1. Cập nhập thơng tin khách hàng. - Gồm các chức năng: a.thơng tin khách hàng. Khi khách hàng bắt đầu đến khách sạn, họ phải khai báo các thơng tin cần thiết mà khách sạn yêu cầu. Việc này cả nhiệm vụ nhập các thơng tin về khách hàng đĩ như: Họ tên, địa chỉ, ngày sinh, giới tính... đồng thời đánh mã cho từng khách hàng(đây là khồ chính), ... Tất cả các thơng tin trên lưu vào file "Khách hàng". b.Danh mục phịng. -Thơng tin các phịng,tình trạng phịng,mã số phịng và lưu vào file“phịng” c.Danh mục dịch vụ. Cĩ chức năng cung cấp danh sách dịch vụ của khách sạn,gồm tên dịch vụ và mã dịch vụ.Được lưu vào file “dịch vụ” d.Danh sách nhân viên. Cung cấp danh sách của cán bộ cơng nhân viên trong khách sạn.gơm tên nhân viên ,chức vụ,mã nhân viên Được lưu trong file “nhân viên” 2.2.2 Báo biểu. Gồm các chức năng: -In danh sách khách hàng nhận phịng và trả phịng -In danh mục phịng _In danh sách cua nhân viên 2.2.3 Tra cứu Gồm ba chức năng: - Tra cứu thơng tin về một khách hàng. - Tra cứu hố đơn dịch vụ. - Tra cứu hố đơn tiền phịng. a.Tra cứu thơng tin về một khách hàng. Khi cĩ yêu cầu tìm thơng tin khách hàng, chức năng này sẽ kết xuất thơng tin từ file "Khách hàng" để đưa ra với điều kiện người tìm kiếm phải nhập thơng tin để căn cứ tìm kiếm (mã kh, họ tên,sốCMND,....)của khách hàng cần tìm. b.Tra cứu hố đơn dịch vụ.. Khi cĩ yêu cầu tra cứu hố đơn dịch vụ, chức năng này sẽ kết xuất thơng tin từ file "Hố đơn dịch vụ" để đưa ra với điều kiện ngươi dùng phải nhập mã dịch vụ,và mã KH sử dụng dịch vụ đĩ. c.Tra cứu hố đơn tiền phịng Khi cĩ yêu cầu , chức năng này sẽ kết xuất thơng tin từ file "hố đơn tiền phịng" để đưa ra thơng tin về số tiền sử dụng của khách hàng.. III. Đối tượng và phạm vi nghiên cứu - Đối tượng nghiên cưu: Các thơng tin quản lý khách sạn - Phạm vi nghiên cứu: Chương trình chỉ quản lý vấn đề về khách thuê phịng và các dịch vụ. IV. Phương pháp nghiên cứu: - Nghiên cứu tìm hiểu thực tiễn: Tìm hiểu về danh sách khách thuê và thơng tin của khách, các thủ tục thuê, thanh tốn phịng và các dịch vụ. Tìm hiểu các quy chế, nội quy của khách sạn đối với khách thuê phịng và dịch vụ. _Nghiên cứu các tài liệu ,các chương trình quản lý ,các giao trình tin học…. _Điều tra phỏng vấn… V.Đĩng gĩp của đề tài Đề tài nếu được đưa vào ứng dụng thì sẽ gĩp phần cho việc quản lý khách sạn được dễ dàng , nhanh chĩng và tiện lợi hơn. Đề tài là một nền tảng cho các nghiên cứu, cơng việc của em sau này. Và là kinh nghiệm về thực tế, nâng cao kiến thức cho bản thân em. B.Phần nội dung Chương I: Phân tích thiết kế hệ thống I/Biểu đồ phân cấp chức năng QUẢN LÝ KHÁCH SẠN Thốt Game Lịch Music TRA CỨU BÁO BIỂU Giới thiệu Trợ giúp DS K/H nhận phịng DS khách hàng DS K/H trả phịng Danh mục phịng DS K/H đăng ký phịng Hố đơn dich vụ Hố đơn tiền phịng TC TT khách hàng Hình 1 : biểu đồ phân cấp chức năng của chương trình II. Biểu đồ luồng dữ liệu. Các biểu đồ luồng dữ liệu cĩ tác dụng mơ tả sự hoạt động của hệ thống quản lý. Chú thích: Tác nhân ngồi: là một người,hay nhĩm ngưịi cĩ trao đổi thơng tin với hệ thống. Chức năng xử lý làm biến đổi thơng tin. Luồng dữ liệu vào hay ra của hệ thống Nơi lưu trữ thơng tin cần cho hệ thống. 1. Biểu đồ luồng dữ liệu mức khung cảnh. Thể hiện chức năng tổng thể, các luồng thơng tin vào, mối quan hệ của hệ thống với tác nhân ngồi. ban giam đốc Khách hàng Nhân viên Quản lý khách sạn Hình 2. Biểu đồ luồng dữ liệu mức khung cảnh Ban quản lý Khách hàng Hố đơn Danh sách phịng K/h nhận phịng Số lượng phịng đã sử dụng K/h trả phịng y/c thuê Thanh tốn tiền Kiểm tra hố đơn Hình 3: Biểu đồ luồng dữ liệu mức đỉnh của hệ thống 2.Luồng dữ liệu mức dưới đỉnh a.Chức năng “danh mục”: Thống kê Hồ sơ Thơng tin khách hàng Danh mục phịng dịch vụ Cơng nhân viên Các thơng tin bảo trì Hình 4. Biểu đồ luồng dữ liệu mức dưới đỉnh của chức năng "Cập nhật hồ sơ" b.Chức năng "In báo cáo" In danh sách KH đăng ký thuê phịng Ban giám đốc Danh mục phịng Danh sách nhân viên Danh sách KH Danh mục phịng Danh sách KH nhận phịng Danh sách KH Trả phịng D/S k/h đăng ký Hình 5. Biểu đồ luồng dữ liệu mức dưới đỉnh của chức năng “In báo cáo” C.Chức năng “Tra cứu” Tìm kiếm thơng tin về một KH Tìm kiếm Hố đơn dịch vụ Tìm kiếm hố đơn tiền phịng Phịng ban Ban giám đốc Thơng tin yêu cầu Thơng tin trả lại Tthơng tin trả lại thơng tin trả lại Thơng tin yêu caucÇu Thơng tin yêu cầu thơng tin trả lại Thơng tin yêu cầu Thơng tin yêu cầu Thơng tin trả lại Thơng tin yêu cầu Thơng tin trả lại Hình 6:biểu đồ luồng dữ liệu mức dưới đỉnh chức năng “tìm kiếm” 3/xây dựng mơ hình thực thể liên kiết Mơ hình thực thể liên kết E-R: Mục đích của mơ hình này là: - Xác định dữ liệu nội tại cần cho quan lý - Xác định mối quan hệ giữa các dữ liệu 3.2/ Sơ đồ thực thể liên kết: a/ Các thực thể chính trong quản lý khách sạn Sơng Nhuệ Hà Tây Hồ sơ khách sạn(hsks) Khách hàng Phịng Dịch vụ Nhân viên b/ Sơ đồ thực thể liên kết: Khách hàng -MaKH -hotenKH -nam -diachi -dienthoai -soCMND -Quoctich -ngaysinh Hồ sơ khách sạn -MaKH -hotenKH -diachi -soCMND -Quoctich -ngaysinh -maDV -MaNV -maphong -Gia -soDK -ngaynhan -ngaytra -ngaySD -dongia -tientratruoc Dịch vụ -maDV -tenDV Phịng -maphong -loaiphong -Gia Nhận phịng -maKH -soDK -ngaynhan -gionhan Trả phịng -MaKH -soDK -ngaytra -giotra Nhân viên -MaNV -tenNV -chucvu Sử dụng DV -so -ngaySD -soDK -MaKH -MaDV -dongia -tientratruoc Hình 7:biểu đồ thực thể liên kết Chương II:thiết kế chưong trình I.Tồn bộ nội dung của đề tài được thể hiện qua các menu: Danh mục: 1.khách hàng 2.phịng 3.dịch vụ 4.phịng Báo biểu: A.Danh sách khách hàng B.Danh sách khách hàng nhận phịng C.Danh sách khách hàng trả phịng D.Danh mục phịng E.Danh sách khách hàng đăng ký thuê phịng F:Danh sách nhân viên G:Danh sách khách hàng SDDV Tra cứu: 1.Tra cứu thơng tin khách hàng 2.Tra cứu hố đơn dịch vụ 3.Tra cứu hố đơn tiền phịng Game Lịch Music Giới thiệu Trợ giúp Thốt: II.Các from và câu lệnh của chương trình: 1.From chính:(FrmQLKS) gồm các menu để chạy chương trình: Option Explicit ‘phần khai báo ở đầu cửa sổ code(General_Declaration)’ Private Sub Form_Load() DE1.CN1.Open End Sub Private Sub mnu4_Click(Index As Integer) Frmgioithieu.Show 'cho hien form gioithieu' End Sub Private Sub mnudichvu_Click(Index As Integer) FrmtracuuHD.Show 'cho hien form tracuu' End Sub Private Sub mnudkp_Click(Index As Integer) DSKHDKTP.Show End Sub Private Sub mnudv_Click(Index As Integer) frmdichvu.Show End Sub Private Sub mnukh_Click(Index As Integer) Frmkhachhang.Show 'cho hien form khachhang' End Sub Private Sub mnukhachhang_Click(Index As Integer) Report_TTKH.Show End Sub Private Sub mnul_Click(Index As Integer) Frmlich.Show 'cho hiện form lich' End Sub Private Sub mnunp_Click(Index As Integer) Report_nhanphong.Show End Sub Private Sub mnunv_Click(Index As Integer) Frmnhanvien.Show 'cho hiện form nhân viên' End Sub Private Sub mnunvien_Click(Index As Integer) Report_nhanvien.Show End Sub Private Sub mnuph_Click(Index As Integer) frmphong.Show 'cho hiện form phịng' End Sub Private Sub mnuphong_Click(Index As Integer) Report_phong.Show End Sub Private Sub mnusddv_Click(Index As Integer) Report_SDDV.Show End Sub Private Sub mnuthoat_Click() Dim nut As Integer nut = MsgBox("ban co muon thoat khong (yes/no)?", 4 + 32, "") If nut = 6 Then End End If End Sub Private Sub mnutp_Click(Index As Integer) FrmHDTP.Show 'cho hiện form HDTP' End Sub Private Sub mnutrp_Click(Index As Integer) Report_traphong.Show End Sub Private Sub mnuttkh_Click(Index As Integer) Frmtracuukh.Show End Sub Private Sub Timer1_Timer() Dim X, Y, ch As String ch = Label1.Caption Y = Left(ch, 1) X = Right(ch, Len(ch) - 1) Label1.Caption = X + Y End Sub 2.From khách hàng: Dùng để nhập thơng tin khách hàng theo các trường: Private Sub cmdCLOSE_Click() Unload Me ‘đĩng from hiện hành’ End Sub ====================== Private Sub cmdDEL_Click() Adkh.Recordset.Delete ‘thi hành thủ tục xố dữ liệu’ cmdDEL.Enabled = True ‘cho xố record hiện hành’ cmdNEW.Enabled = True ‘cập nhật dữ liệu’ cmdupdate.Enabled = False ‘khơng cho phép sửa’ Adkh.Recordset.MoveNext End Sub Private Sub cmdNEW_Click() Adkh.Recordset.AddNew cmdNEW.Enabled = True cmdDEL.Enabled = False cmdupdate.Enabled = False TxtmaKH.SetFocus End Sub ======================== Private Sub cmdUPDATE_Click() Adkh.Recordset.Update cmdupdate.Enabled = True cmdNEW.Enabled = False cmdDEL.Enabled = False End Sub 3.From danh mục phịng: Dùng để xem thơng tin của phịng: Private Sub cmdCLOSE_Click() Unload Me End Sub ===================== Private Sub cmdDEL_Click() Adph.Recordset.Delete cmdDEL.Enabled = True cmdNEW.Enabled = True cmdUPDATE.Enabled = False Adph.Recordset.MoveNext End Sub ==================== Private Sub cmdNEW_Click() Adph.Recordset.AddNew cmdNEW.Enabled = True cmdDEL.Enabled = False cmdUPDATE.Enabled = False Txtmaphong.SetFocus End Sub ===================== Private Sub cmdUPDATE_Click() Adph.Recordset.Update cmdUPDATE.Enabled = True cmdNEW.Enabled = False cmdDEL.Enabled = False End Sub 4.From Dịch vụ: xem thơng tin về dịch vụ của khách sạn: Private Sub cmdCLOSE_Click() Unload Me End Sub ================ Private Sub cmdDEL_Click() Addv.Recordset.Delete cmdDEL.Enabled = True cmdNEW.Enabled = True cmdUPDATE.Enabled = False Addv.Recordset.MoveNext End Sub ==================== Private Sub cmdNEW_Click() Addv.Recordset.AddNew cmdNEW.Enabled = True cmdDEL.Enabled = False cmdUPDATE.Enabled = False txtmaDV.SetFocus End Sub ===================== Private Sub cmdUPDATE_Click() Addv.Recordset.Update cmdUPDATE.Enabled = True cmdNEW.Enabled = False cmdDEL.Enabled = False End Sub 5.From Nhân viên:thơng tin về nhân viên của khách sạn Private Sub cmdCLOSE_Click() Unload Me End Sub ==================== Private Sub cmdDEL_Click() Adnv.Recordset.Delete cmdDEL.Enabled = True cmdNEW.Enabled = True cmdUPDATE.Enabled = False Addv.Recordset.MoveNext End Sub ======================= Private Sub cmdNEW_Click() Adnv.Recordset.AddNew cmdNEW.Enabled = True cmdDEL.Enabled = False cmdUPDATE.Enabled = False txtMaNV.SetFocus End Sub ======================= Private Sub cmdUPDATE_Click() Adnv.Recordset.Update cmdUPDATE.Enabled = True cmdNEW.Enabled = False cmdDEL.Enabled = False End Sub 7.From Tra cứu thơng tin khách hàng: Option Explicit ======================================== Private Sub cmdin_Click() Dim str str = "SELECT KHACHHANG.MAKH, KHACHHANG.NAM, KHACHHANG.NGAYSINH, KHACHHANG.QUOCTICH, KHACHHANG.SOCMND, BANGDANGKY.MAP, KHACHHANG.DIACHI, KHACHHANG.HOTENKH FROM KHACHHANG, BANGDANGKY WHERE KHACHHANG.MAKH = BANGDANGKY.MAKH" If Opttc(0).Value Then str = str & " and KHACHHANG.HOTENKH LIKE '%" & Trim(txttracuu) & "%'" End If If Opttc(1).Value Then str = str & " and BANGDANGKY.MAP = '" & Trim(txttracuu) & "'" End If DE1.Commands(7).CommandText = str If DE1.rsTRACUUTTKH.State = 0 Then DE1.rsTRACUUTTKH.Open End If DE1.rsTRACUUTTKH.Requery tracuuTTKH.Show 1 End Sub ================================================== Private Sub cmdthoat_Click() Unload Me End Sub =================================================== Private Sub txttracuu_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Opttc(1).Value = True Then If Not IsNumeric(txttracuu.Text) Then MsgBox " Ban phai nhap kieu so. Vui long nhap lai !", vbOKOnly + vbExclamation, "Thong bao" txttracuu = "" txttracuu.SetFocus Exit Sub End If If Len(Trim(txttracuu)) 3 Then MsgBox "Ban nhap phong so voi ma la 3 ki tu", vbOKOnly + vbExclamation, "Thong bao" txttracuu = "" txttracuu.SetFocus End If Else If Opttc(0).Value = True Then If IsNumeric(txttracuu.Text) Then MsgBox " Ban phai nhap kieu chu . Vui long nhap lai !", vbOKOnly + vbExclamation, "Thong bao" txttracuu = "" txttracuu.SetFocus Exit Sub End If End If End If cmdin.SetFocus End Select End Sub 8.From Tra cứu hố đơn dịch vụ: Giúp tra cứu những khách hàng đã sử dụng dịch vụ Option Explicit ============================================= Private Sub cmdin_Click() Dim str str = " SELECT SUDUNGDICHVU.DONGIA, SUDUNGDICHVU.MADV, SUDUNGDICHVU.MAKH, SUDUNGDICHVU.NGAYSD, SUDUNGDICHVU.SO, SUDUNGDICHVU.SODK, SUDUNGDICHVU.TIENTRATRUOC, DICHVU.TENDV, BANGDANGKY.MAP FROM BANGDANGKY, SUDUNGDICHVU, DICHVU WHERE BANGDANGKY.MAKH = SUDUNGDICHVU.MAKH AND SUDUNGDICHVU.MADV = DICHVU.MADV" str = str & " and BANGDANGKY.MAP = '" & Trim(DataCombo) & "' " DE1.Commands(10).CommandText = str If DE1.rstracuudv.State = 0 Then DE1.rstracuudv.Open ‘mở command nếu chưa được mở’ End If DE1.rstracuudv.Requery ‘refresh lại nội dung command(recordset rstracuudv)’ tracuudichvu.Show 1 ‘xuất kết quả ra report_tracuudichvu,ở chế độ Modal’ End Sub ======================================================== Private Sub cmdthoat_Click() Unload Me End Sub ============================ Private Sub datacombo_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Not IsNumeric(DataCombo.Text) Then MsgBox " Ban phai nhap kieu so. Vui long nhap lai !", vbOKOnly + vbExclamation, "Thong bao" DataCombo = "" DataCombo.SetFocus Exit Sub End If cmdin.SetFocus End Select End Sub 9.From Tra cứu hố đơn tiền phịng: giúp tra cứu số tiền khách hàng phải trả Option Explicit ================ Private Sub cmdin_Click() Dim str str = "SELECT hoadonthanhtoan.Giacoban, hoadonthanhtoan.HOTENKH, hoadonthanhtoan.MAKH, hoadonthanhtoan.NGAYDEN, hoadonthanhtoan.NGAYDI, hoadonthanhtoan.SODK, hoadonthanhtoan.songayo, hoadonthanhtoan.thanhtien, hoadonthanhtoan.TIENDATCOC, hoadonthanhtoan.tienphaitra, BANGDANGKY.MAP FROM hoadonthanhtoan, BANGDANGKY WHERE hoadonthanhtoan.MAKH = BANGDANGKY.MAKH" & " and BANGDANGKY.MAP = '" & Trim(txtMap) & "' " DE1.Commands(12).CommandText = str If DE1.rsTRACUUHDTIENPHONG.State = 0 Then DE1.rsTRACUUHDTIENPHONG.Open End If DE1.rsTRACUUHDTIENPHONG.Requery TRACUUHDTP.Show 1 End Sub ============================================== Private Sub cmdthoat_Click() Unload Me End Sub ======================================== Private Sub txtMaP_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 If Not IsNumeric(txtMap.Text) Then MsgBox " Ban phai nhap kieu so. Vui long nhap lai !", vbOKOnly + vbExclamation, "Thong bao" txtMap = "" txtMap.SetFocus Exit Sub End If cmdin.SetFocus End Select End Sub 10.From game Private Sub Command1_Click() Dim g g = Shell("Chinh phuc ai tinh.exe", vbNormalFocus) End Sub Private Sub Command2_Click() Dim g g = Shell("picachu_2005.exe ", vbNormalFocus) End Sub Private Sub Command3_Click() Dim g g = Shell("picachu1.exe", vbNormalFocus) End Sub Private Sub Command6_Click() If MsgBox("Ban co muon thoat khong?", vbOKCancel, "Thong bao") = vbOK Then Unload Me End If End Sub 11.From lich 12.From Music Private Sub Command1_Click() If MsgBox("Ban co muon thoat khong?", vbOKCancel, "Thong bao") = vbOK Then Unload Me End If End Sub Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Option1_Click() Dim g g = Shell("Xa vang.exe", vbNormalFocus) End Sub Private Sub Option10_Click() WindowsMediaPlayer1.URL = "AVSEQ08.DAT" End Sub Private Sub Option11_Click() WindowsMediaPlayer1.URL = "AVSEQ16.DAT" End Sub Private Sub Option12_Click() WindowsMediaPlayer1.URL = "AVSEQ04.DAT" End Sub Private Sub Option2_Click() Dim g g = Shell("only love.exe", vbNormalFocus) End Sub Private Sub Option3_Click() Dim g g = Shell("Xa vang.exe", vbNormalFocus) End Sub Private Sub Option4_Click() Dim g g = Shell("Em se cho anh ve.exe", vbNormalFocus) End Sub Private Sub Option5_Click() Dim g g = Shell("Tinh xin chang phai.exe", vbNormalFocus) End Sub Private Sub Option6_Click() Dim g g = Shell("Muon mang khi em ra di.exe", vbNormalFocus) End Sub Private Sub Option7_Click() WindowsMediaPlayer1.URL = "Tinh ca Tay Bac.DAT" End Sub Private Sub Option8_Click() WindowsMediaPlayer1.URL = "Nguoi di xay ho ke go.DAT" End Sub Private Sub Option9_Click() WindowsMediaPlayer1.URL = "Gui em o cuoi song Hong.DAT" End Sub 13.From giới thiệu 14.From trợ giúp 15.Thốt khỏi chương trình End ==================================================== Chương III: Kiết nối dữ liệu I/ Kết nối dữ liệu Access: II/kết nối dữ liệu access qua Microsoft jet 4.0 OLE DB provider III./Modules của chương trình Option Explicit ================================ Public cn As New ADODB.Connection Sub Open_mdb() Dim db_name, str As String ‘kết nối với các cơ sở dữ liệu quanlykhachsan.mdb,Đặt trong thư mục thi hành chương trình’ db_name = App.Path & "\quanlykhachsan.mdb" str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_name & "" DE1.CN1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db_name & "" DE1.CN1.Open cn.Open str End Sub ========================== C Phần kết luận Trên đây là nội dung chương trình Quản lý Khách Sạn của em. Trong thời gian làm chương trình này em cũng đã gặp nhiều khĩ khăn như: thơi gian nghiên cứu tài liệu í, năng lực chuyên mơn cịn hạn chế Nhưng bằng sự quyết tâm, nỗ lực ,tinh thần say mê học hỏi và sự giúp đỡ tận tình của thầy Lê Đức Khiêm đến nay chương trình đã được hồn thành đúng thời hạn được giao. Chương trình phần mềm Quản lý Khách Sạn được lập trình bằng ngơn ngữ Visual Basic 6.0 kết hợp với các cơ sở dữ liệu được thiết kế bằng Microsoft Access 2003. Cho đến thời điểm kết thúc chương trình đã đạt được những yêu cầu sau: Giao tiếp được với các cơ sở dữ liệu một cách hiệu quả, phân cấp được các chức năng cần thiết, truy cập dữ liệu tìm kiếm thơng tin nhanh, giao diện dễ sử dụng, thân thiện với người dùng chương trình... Song bên cạnh đĩ, do cịn gặp nhiều khĩ khăn trong quá trình làm chương trình như: khả năng lập trình cịn hạn chế, thời gian ít, khâu phân tích thiết kế cịn yếu... nên chương trình cịn nhiều điểm chưa thật sự hồn thiện như: sơ đồ phân cấp chức năng cịn thiếu, chưa bám sát được với yêu cầu thực tế của một bài tốn Quản Lý Khách Sạn, cơ sơ dữ liệu chưa thật sự gọn gàng, nhưng nếu thời gian cho phép em hồn tồn cĩ thẻ hồn thiện hơn nữa chương trình để phần mềm này trở thành một phần mềm Quản Lý Khách Sạn được ứng dụng thực tế trong các khách sạn. Em xin chân thành cảm ơn sự hướng dẫn của thầy giáo Lê Đức Khiêm cùng sự đĩng gĩp ý kiến của tất cả các bạn trong tập thể lớp TinA K27. Em rất mong sẽ tiếp tục nhận được ý kiến đĩng gĩp quý báu của Thầy cơ và các bạn cho chương trình ngày một hồn thiện hơn. Em xin chân thành cảm ơn ! Thường Tín ,ngày 14 tháng 12 năm 2007 Phần tài liệu tham khảo Tài liệu tham khảo Tự học lập trình visual Basic 6.0 của Đậu Quang Tuấn Visual Basic cho sinh viên & kỹ thuật viên CNTT của Đinh Xuân Lâm Tin học văn phịngMicrosoft Access 2000 cđa Nguyễn Sỹ Dũng Những bài thực hành cơ sở dữ liệu Visual Basic 6.0 của Đinh Xuân Lâm. Phân tích và thiết kế hệ thống Mục lục Phần mở đầu: 1 I . Lý do chọn đề tài: 1 II. Mục đích và nhiệm vụ nghiên cứu: 2 III. Đối tượng và phạm vi nghiên cứu: 3 IV. Phương pháp nghiên cứu: 3 V. Đĩng gĩp của đề tài: 3 B. Phần nội dung: 4 Chương I: Phân tích thiết kế hệ thống: 5 I . Biểu đồ phân cấp chức năng: 6 II. Biểu đồ luồng dữ liệu: 7 Biểu đồ luồng dữ liệu mức khung cảnh: 8 Biểu đồ luồng dữ liệu dưới mức đỉnh: 10 Xây dựng mơ hình thực thể liên kết: 13 Chưong II: Thiết kế chưong trình : 15 I. Các Menu của chương trình: 15 II. Các Form và các lệnh của chương trình : 28 Chưong III: Kết nối dữ liệu: 29 I.Kết nối dữ liệu Access: 29 II. Kết nối dữ liệu qua Microsoft JET 4.0 OLEDB: 33 III. Modules của chương trình: 33 C: Kết luận chương trình: 34 Tài liệu tham khảo: 35