đồ án công nghệ thông tin Xây dựng phần mềm Quản lý khách sạn Sông Nhuệ Hà Tây

Ví dụ: trước kia khi chưa ứng dụng tin học vào công tácquả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ôngtin về d ịch vụ của khách sạn,thông tin về số phòng,và côn

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àocô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ácquả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ôngtin 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êncá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ữngthô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àmcô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ảiquả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áchcác phòng đang sử dụng, danh sách các dịch vụ,thông tin khách hàngnhậ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ềuthờ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ácquả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ý

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ệcquả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ũngqua đề 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 đượccá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

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ống2.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:

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ênnhân viên ,chức vụ,mã nhân viên Được lưu trong file “nhân viên”

- 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ấtthô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ấtthông tin từ file "Hoá đơn dịch vụ" để đưa ra với điều kiện ngươi dùng phảinhậ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á đơntiề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

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ìmhiể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 tinhọ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

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ốngquản lý

Chú thích:

Tác nhân ngoà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 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

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

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

phòng

Các thông tin bảo

trì

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

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ý

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òng Phòng ban

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

-hotenKH -diachi -soCMND -Quoctich -ngaysinh -maDV -MaNV -maphong -Gia -soDK -ngaynhan -ngaytra -ngaySD -dongia -tientratruoc

Nhận phòng

-maKH -soDK -ngaynhan -gionhan

Trả phòng

-MaKH -soDK -ngaytra -giotra

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

3.Tra cứu hoá đơn tiền phòng

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

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 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'

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()

Dùng để xem thông tin của phòng:

Private Sub cmdCLOSE_Click()

Private Sub cmdNEW_Click()

Private Sub cmdCLOSE_Click()

KHACHHANG.DIACHI, KHACHHANG.HOTENKH FROM

KHACHHANG, BANGDANGKY WHERE KHACHHANG.MAKH = BANGDANGKY.MAKH"

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"

DICHVU.TENDV, BANGDANGKY.MAP FROM BANGDANGKY,

SUDUNGDICHVU, DICHVU WHERE BANGDANGKY.MAKH =

SUDUNGDICHVU.MAKH AND SUDUNGDICHVU.MADV =

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"

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"

Private Sub Command6_Click()

If MsgBox("Ban co muon thoat khong?", vbOKCancel, "Thong bao") = vbOK Then

Unload Me

End Sub

11.From lich

12.From Music

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.Thoát khỏi chương trình

End

====================================================

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

đỡ tận tình của thầy Lê Đức Khiêm đến nay chương trình đã được hoànthà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ằngngô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

liệu tìm kiếm thông tin nhanh, giao diện dễ sử dụng, thân thiện vớingườ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ạnchế, thời gian ít, khâu phân tích thiết kế còn yếu nên chương trình cònnhiều điểm chưa thật sự hoàn thiện như: sơ đồ phân cấp chức năng cònthiếu, chưa bám sát được với yêu cầu thực tế của một bài toá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 giancho phép em hoàn toàn có thẻ hoàn thiện hơn nữa chương trình để phầnmềm này trở thành một phần mềm Quản Lý Khách Sạn được ứng dụngthự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êmcùng sự đóng góp ý kiến của tất cả các bạn trong tập thể lớp TinAK27 Em rất mong sẽ tiếp tục nhận được ý kiến đóng góp quý báu củaThầy cô và các bạn cho chương trình ngày một hoà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âmTin 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

A 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

1.Biểu đồ luồng dữ liệu mức khung cảnh: 8

2.Biểu đồ luồng dữ liệu dưới mức đỉnh: 10

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