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

Trang 1

A Phần Mở đầuI 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 , hoá đơn thanh toá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 toá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

Trang 2

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 hoá đơ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.

Trang 3

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 hoá đơ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:

Trang 4

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ên2.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 hoá đơn dịch vụ.

- Tra cứu hoá đơ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 hoá đơn dịch vụ

Khi có yêu cầu tra cứu hoá đơn dịch vụ, chức năng này sẽ kết xuất thông tin từ file "Hoá đơ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 hoá đơ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 "hoá đơ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

Trang 5

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 toá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….

Trang 6

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

Trợ giúp

Trang 7

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ý.

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 ngoài.

Hình 2 Biểu đồ luồng dữ liệu mức khung cảnh

ban giam đốc

Quản lý khách sạn

Trang 8

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”:

Ban quản lý Khách hàng

Hoá đơn Danh sách phòng

Trang 9

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ơ"

Thống kê

Hồ sơThông tin

khách hàng

Danh mục

Các thông tin bảo trì

Trang 10

b.Chức năng "In báo cáo"

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”

In danh sách KH đăng ký thuê phòng

Ban giám

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òngD/S k/

h đăng ký

Trang 11

C.Chức năng “Tra cứu”

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

Tìm kiếm thông tin về một KH

Tìm kiếm Hoá đơn dịch vụ

Tìm kiếm hoá đơn tiền

phòngPhòng ban

Ban giám đốcThông tin yêu cầu

Trang 12

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:

Trang 13

Hình 7:biểu đồ 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

Dịch vụ

Nhận phòng

Trả phòng

Nhân viên

Sử dụng DV

-so-ngaySD-soDK-MaKH-MaDV-dongia-tientratruoc

Trang 14

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 SDDVTra cứu:

1.Tra cứu thông tin khách hàng 2.Tra cứu hoá đơn dịch vụ 3.Tra cứu hoá đơn tiền phòngGame

Lịch MusicGiới thiệuTrợ giúp Thoá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:

Trang 15

Option Explicit

‘phần khai báo ở đầu cửa sổ code(General_Declaration)’Private Sub Form_Load()

DE1.CN1.OpenEnd 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

Trang 16

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

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'

Trang 17

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

X = Right(ch, Len(ch) - 1)Label1.Caption = X + YEnd Sub

2.From khách hàng:

Dùng để nhập thông tin khách hàng theo các trường:

Trang 18

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 xoá dữ liệu’cmdDEL.Enabled = True ‘cho xoá 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

Trang 19

Adkh.Recordset.Updatecmdupdate.Enabled = TruecmdNEW.Enabled = FalsecmdDEL.Enabled = FalseEnd 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 = TruecmdNEW.Enabled = TruecmdUPDATE.Enabled = FalseAdph.Recordset.MoveNextEnd Sub

Trang 20

Private Sub cmdNEW_Click()Adph.Recordset.AddNewcmdNEW.Enabled = TruecmdDEL.Enabled = FalsecmdUPDATE.Enabled = FalseTxtmaphong.SetFocus

End Sub

=====================Private Sub cmdUPDATE_Click()Adph.Recordset.Update

cmdUPDATE.Enabled = TruecmdNEW.Enabled = FalsecmdDEL.Enabled = FalseEnd Sub

4.From Dịch vụ: xem thông tin về dịch vụ của khách sạn:

Trang 21

cmdDEL.Enabled = TruecmdNEW.Enabled = TruecmdUPDATE.Enabled = FalseAddv.Recordset.MoveNextEnd Sub

====================Private Sub cmdNEW_Click()Addv.Recordset.AddNewcmdNEW.Enabled = TruecmdDEL.Enabled = FalsecmdUPDATE.Enabled = FalsetxtmaDV.SetFocus

End Sub

=====================Private Sub cmdUPDATE_Click()Addv.Recordset.Update

5.From Nhân viên:thông tin về nhân viên của khách sạn

Trang 22

Private Sub cmdCLOSE_Click()Unload Me

End Sub

====================Private Sub cmdDEL_Click()Adnv.Recordset.Delete

cmdDEL.Enabled = TruecmdNEW.Enabled = TruecmdUPDATE.Enabled = FalseAddv.Recordset.MoveNextEnd Sub

=======================Private Sub cmdNEW_Click()Adnv.Recordset.AddNewcmdNEW.Enabled = TruecmdDEL.Enabled = FalsecmdUPDATE.Enabled = FalsetxtMaNV.SetFocus

End Sub

=======================Private Sub cmdUPDATE_Click()Adnv.Recordset.Update

7.From Tra cứu thông tin khách hàng:

Trang 23

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

Trang 24

End If

DE1.rsTRACUUTTKH.Requery tracuuTTKH.Show 1

End Sub

==================================================Private Sub cmdthoat_Click()

Unload MeEnd 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

Trang 25

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ở’

Trang 26

Private Sub cmdthoat_Click() Unload Me

If Not IsNumeric(DataCombo.Text) Then

DataCombo = "" DataCombo.SetFocus Exit Sub

End If

cmdin.SetFocus End Select

End Sub

9.From Tra cứu hoá đơn tiền phòng: giúp tra cứu số tiền khách hàng phải

trả

Trang 27

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,

End If

DE1.rsTRACUUHDTIENPHONG.Requery

Trang 28

End Sub

==============================================Private Sub cmdthoat_Click()

Unload MeEnd Sub

========================================Private Sub txtMaP_KeyPress(KeyAscii As Integer) Select Case KeyAscii

Case 13

If Not IsNumeric(txtMap.Text) Then

txtMap = "" txtMap.SetFocus Exit Sub

End If

cmdin.SetFocus End Select

End Sub

10.From game

Trang 29

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

Trang 30

End Sub

11.From lich

12.From Music

Trang 31

End IfEnd Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)

Private Sub Option11_Click()

WindowsMediaPlayer1.URL = "AVSEQ16.DAT"End Sub

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

Trang 32

WindowsMediaPlayer1.URL = "Tinh ca Tay Bac.DAT"End Sub

WindowsMediaPlayer1.URL = "Nguoi di xay ho ke go.DAT"End Sub

WindowsMediaPlayer1.URL = "Gui em o cuoi song Hong.DAT"End Sub

13.From giới thiệu