Đề tài Quản lý khách sạn và đặt phòng trực tuyến

Khách sạn được hình thành từ các phòng, tổ quan hệ mật thiết hỗ trợ nhau. Mỗi phòng ban có tổ chức rõ ràng, không chồng chéo. Mọi hoạt động quản lý, sản xuất kinh doanh của khách sạn đều dưới sự chỉ đạo của Ban giám đốc. Ban giám đốc chịu trách nhiệm với hội đồng quản trị cấp trên và chịu trách nhiệm trước tập thể cán bộ công nhân viên công ty. Giám đốc là người chịu trách nhiệm chính của khách sạn và là người chịu trách nhiệm trực tiếp với hội đồng quản trị cấp trên và trước tập thể cán bộ công nhân viên.

Phó giám đốc hành chính chịu trách nhiệm trước giám đốc về công tác tổ chức, lao động, làm công tác khen thưởng, kỷ luật, quản trị hành chính, lưu trữ văn thư.

Phòng kinh doanh chịu trách nhiệm trước ban giám đốc chuyên sâu về vấn đề tổ chức kinh doanh của khách sạn để đạt hiệu quả cao, đem lại nhiều lợi nhuận cho khách sạn.

Bộ phận kế toán chịu trách nhiệm trước ban giám đốc khách sạn, bộ phận này gồm có một kế toán trưởng và các kế toán viên, có trách nhiệm thực hiện các hoạt động về kế hoạch tài chính cà công tác kế toán, cụ thể là lập kế hoạch tài chính, dự trù ngân sách hàng năm, tổ chức theo dõi việc thu chi của khách sạn, chi trả lương, định giá thành và kiểm soát các hoạt động tài chính.

Bộ phận lễ tân, Bộ phận nhà phòng, Bộ phận nhà hàng và bếp, Bộ phận dịch vụ, Bộ phận an ninh – sửa chữa, Bộ phận nhân sự, Bộ phận back office - chịu trách nhiệm trực tiếp với phòng kinh doanh và giám đốc.

Bộ phận lễ tân là chiếc cầu nối giữa khách hàng và khách sạn.

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 1

Trang 1

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 2

Trang 2

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 3

Trang 3

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 4

Trang 4

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 5

Trang 5

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 6

Trang 6

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 7

Trang 7

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 8

Trang 8

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 9

Trang 9

Đề tài Quản lý khách sạn và đặt phòng trực tuyến trang 10

Trang 10

Tải về để xem bản đầy đủ

pdf 75 trang Trúc Khang 12/01/2024 1640
Bạn đang xem 10 trang mẫu của tài liệu "Đề tài Quản lý khách sạn và đặt phòng trực tuyến", để tải tài liệu gốc về máy hãy click vào nút Download ở trên

Tóm tắt nội dung tài liệu: Đề tài Quản lý khách sạn và đặt phòng trực tuyến

Đề tài Quản lý khách sạn và đặt phòng trực tuyến
  
ĐỀ TÀI 
Quản lý khách sạn và đặt 
phòng trực tuyến 
 Giáo viên hướng dẫn : 
 Sinh viên thực hiện : 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 1
PHẦN B: NỘI DUNG 
CHƯƠNG I: 
MÔ TẢ BÀI TOÁN VÀ GIẢI PHÁP 
I. QUÁ TRÌNH HOẠT ĐỘNG CỦA KHÁCH SẠN 
Bộ máy quản lý của khách sạn bao gồm: Hội đồng quản trị, Ban giám đốc, 
Phó giám đốc, các phòng ban (Phòng kế toán, phòng kinh doanh, phòng tổ 
chức – hành chính), và các tổ; được bố trí theo sơ đồ sau: 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 2
Khách sạn được hình thành từ các phòng, tổ quan hệ mật thiết hỗ trợ 
nhau. Mỗi phòng ban có tổ chức rõ ràng, không chồng chéo. Mọi hoạt động 
quản lý, sản xuất kinh doanh của khách sạn đều dưới sự chỉ đạo của Ban giám 
đốc. Ban giám đốc chịu trách nhiệm với hội đồng quản trị cấp trên và chịu 
trách nhiệm trước tập thể cán bộ công nhân viên công ty. 
 Giám đốc là người chịu trách nhiệm chính của khách sạn và là người 
chịu trách nhiệm trực tiếp với hội đồng quản trị cấp trên và trước tập thể cán 
bộ công nhân viên. 
Phó giám đốc hành chính chịu trách nhiệm trước giám đốc về công 
tác tổ chức, lao động, làm công tác khen thưởng, kỷ luật, quản trị hành chính, 
lưu trữ văn thư. 
HỘI ĐỒNG QUẢN TRỊ 
GIÁM ĐỐC 
PHÒNG KINH DOANH PHÒNG KẾ TOÁN PHÓ GIÁM ĐỐC 
BỘ 
PHẬN 
LỄ TÂN 
BỘ 
PHẬN 
NHÀ 
PHÒNG 
BỘ 
PHẬN 
NHÀ 
HÀNG 
VÀ BẾP 
BỘ 
PHẬN 
DỊCH VỤ 
PHÒNG TỔ CHỨC 
- HÀNH CHÍNH 
BỘ 
PHẬN 
NHÂN 
SỰ 
BỘ 
PHẬN 
AN NINH 
SỬA 
CHỬA 
BỘ 
PHẬN 
BACK 
OFFICE 
Hình 1.1: Sơ đồ bộ máy quản lý của khách sạn 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 3
Phòng kinh doanh chịu trách nhiệm trước ban giám đốc chuyên sâu về 
vấn đề tổ chức kinh doanh của khách sạn để đạt hiệu quả cao, đem lại nhiều 
lợi nhuận cho khách sạn. 
Bộ phận kế toán chịu trách nhiệm trước ban giám đốc khách sạn, bộ 
phận này gồm có một kế toán trưởng và các kế toán viên, có trách nhiệm thực 
hiện các hoạt động về kế hoạch tài chính cà công tác kế toán, cụ thể là lập kế 
hoạch tài chính, dự trù ngân sách hàng năm, tổ chức theo dõi việc thu chi của 
khách sạn, chi trả lương, định giá thành và kiểm soát các hoạt động tài chính. 
Bộ phận lễ tân, Bộ phận nhà phòng, Bộ phận nhà hàng và bếp, Bộ 
phận dịch vụ, Bộ phận an ninh – sửa chữa, Bộ phận nhân sự, Bộ phận 
back office - chịu trách nhiệm trực tiếp với phòng kinh doanh và giám đốc. 
Bộ phận lễ tân là chiếc cầu nối giữa khách hàng và khách sạn. 
 1. Quy trình đặt phòng qua mạng: 
Sau khi truy vấn những thông tin của khách sạn trên mạng, khách hàng có thể 
lựa chọn việc đặt phòng tại khách sạn thông qua website. Để có thể đăng ký 
đặt phòng, khách có nhu cầu cần phải đăng ký một account cho mình trên 
website của khách sạn – account gồm có địa chỉ Email đang hoạt động và 
password của khách. Khi tiến hành lựa chọn phòng thuê, khách sẽ đăng nhập 
vào website thông qua account của mình (hoặc có thể đăng nhập sau khi đã 
lựa chọn được phòng phù hợp với yêu cầu của mình), sau đó sẽ chọn loại 
phòng muốn đăng ký. Từ yêu cầu đặt phòng của khách, hệ thống website sẽ 
tự động kiểm tra trong cơ sỡ dữ liệu rồi đưa ra những phòng có trong loại 
phòng khách yêu cầu. 
Từ danh sách phòng mà website đưa ra, nếu khách hàng tìm được 
phòng theo yêu cầu của họ, họ sẽ đánh dấu vào phòng mình chọn, điền các 
thông tin bắt buộc và không bắt buộc (những thông tin có thể điền hoặc có thể 
không) như: chọn loại phòng, ngày nhận phòng (Ngày nhận phòng phải sau 
ngày đặt phòng tối thiều là 2 ngày), ngày trả phòng, số lượng phòng, số người 
ở (số người lớn và số trẻ em), họ và tên khách (người đăng ký), giới tính, số 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 4
partpost hoặc số chứng minh thư nhân dân, số tài khoản, địa chỉ liên lạc, số 
điện thoại, số fax (nếu có), tên nước; và chọn chức năng “đặt phòng”. 
Thông tin của cuộc đặt phòng của khách sẽ được gửi về ban quản lý để 
xử lý. Danh sách phòng được đặt và khách thuê là kết quả cuối cùng và sẽ 
được chuyển cho bộ phận lễ tân. 
Bộ phận phụ trách và điều hành website sẽ có trách nhiệm giải quyết 
những thắc mắc, yêu cầu của khách hàng qua Email hoặc hướng dẫn qua điện 
thoại. 
Sơ đồ quy trình đặt phòng: 
Nguồn khách 
Nhận yêu cầu đặt phòng 
Đưa ra danh sách phòng 
thuộc loại phòng khách 
yêu cầu
Nhận thông tin đặt phòng 
Khẳ đị h ủ khá h
Nhận thay đổi yêu cầu 
của khách
Khách sạn không có khả 
năng đáp ứng 
Khách đồng ý 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 5
2. Đón tiếp và xếp phòng cho khách: 
Khi khách hoặc đoàn đến khách sạn; 
+ Đối với khách đã đặt phòng từ trước khi yêu cầu nhận phòng phải 
đưa thông tin liên quan tới cuộc đặt phòng của mình. Nhân viên lễ tân sẽ tìm 
kiếm thông tin đặt phòng trên máy tính hoặc trong sổ sách, xác nhận lại các 
thông tin check in và lưu vào cơ sở dữ liệu ... t) & "','" & 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 60
Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & 
Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" 
& TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & 
Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & 
txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & 
Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & 
Trim(TxtRate.Text) & "," & BOOK & ")" 
 pConnection.Execute (sql) 
 sql = "INSERT INTO CUR_CUST 
(CUSTOMERID,LASTNAME,FIRSTNAME,BIRTHDAY,NATION,SEXSU
AL,DATE_IN,DATE_OUT,PAYMENT,VISA_NUM,PASSPORT,TIME_IN
,TIME_OUT,ROOMNUM,COMPANY,RATE,BOOK) VALUES(" & 
Trim(TxtCusID.Text) & ",'" & Trim(TxtLastName.Text) & "','" & 
Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & 
Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" 
& TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & 
Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & 
txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & 
Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & 
Trim(TxtRate.Text) & "," & BOOK & ")" 
 pConnection.Execute (sql) 
 Call LoadCustomer 
 SetButton False 
 ThemMoiFlag = False 
 SuaFlag = False 
ElseIf SuaFlag = True Then 
 sql = "DELETE FROM CUR_CUST WHERE CUSTOMERID=" & 
Trim(VSDS.TextMatrix(VSDS.Row, 0)) & "" 
 pConnection.Execute (sql) 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 61
 sql = "DELETE FROM CUSTOMER WHERE CUSTOMERID=" & 
Trim(VSDS.TextMatrix(VSDS.Row, 0)) & "" 
 pConnection.Execute (sql) 
 sql = "INSERT INTO CUSTOMER 
(CUSTOMERID,LASTNAME,FIRSTNAME,BIRTHDAY,NATION,SEXSU
AL,DATE_IN,DATE_OUT,PAYMENT,VISA_NUM,PASSPORT,TIME_IN
,TIME_OUT,ROOMNUM,COMPANY,RATE,BOOK) VALUES(" & 
Trim(TxtCusID.Text) & ",'" & Trim(TxtLastName.Text) & "','" & 
Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & 
Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" 
& TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & 
Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & 
txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & 
Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & 
Trim(TxtRate.Text) & "," & BOOK & ")" 
 pConnection.Execute (sql) 
 sql = "INSERT INTO CUR_CUST 
(CUSTOMERID,LASTNAME,FIRSTNAME,BIRTHDAY,NATION,SEXSU
AL,DATE_IN,DATE_OUT,PAYMENT,VISA_NUM,PASSPORT,TIME_IN
,TIME_OUT,ROOMNUM,COMPANY,RATE,BOOK) VALUES(" & 
Trim(TxtCusID.Text) & ",'" & Trim(TxtLastName.Text) & "','" & 
Trim(TxtFirstName.Text) & "','" & TxtBirthDay.Value & "','" & 
Trim(CboNation.Tag) & "','" & CboGT.Tag & "','" & TxtDateIn.Value & "','" 
& TxtDateOUT.Value & "','" & Trim(CboPayment.Tag) & "','" & 
Trim(TxtVisaNum.Text) & "','" & TxtPassNum.Text & "','" & 
txtTimeIn.Value & "','" & TxtTimeOut.Value & "','" & 
Trim(TxtRoomNumber.Text) & "','" & Trim(TxtCompany.Text) & "'," & 
Trim(TxtRate.Text) & "," & BOOK & ")" 
 pConnection.Execute (sql) 
 Call LoadCustomer 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 62
 SetButton False 
 ThemMoiFlag = False 
 SuaFlag = False 
End If 
End Sub 
Private Sub init() 
Dim i As Integer 
 VSDS.Cols = 16 
 VSDS.Rows = 1 
 For i = 1 To 5 
 VSDS.ColWidth(i) = (VSDS.Width - VSDS.ColWidth(0)) / 5 - 20 
 Next 
 VSDS.TextMatrix(0, 0) = "Cust. ID" 
 VSDS.TextMatrix(0, 1) = "RoomNum" 
 VSDS.TextMatrix(0, 2) = "Last Name" 
 VSDS.TextMatrix(0, 3) = "First Name" 
 VSDS.TextMatrix(0, 4) = "Birthday" 
 VSDS.TextMatrix(0, 5) = "National" 
 VSDS.TextMatrix(0, 6) = "Sexual" 
 VSDS.TextMatrix(0, 7) = "Day In" 
 VSDS.TextMatrix(0, 8) = "Day out" 
 VSDS.TextMatrix(0, 9) = "Payment" 
 VSDS.TextMatrix(0, 10) = "No. Visa" 
 VSDS.TextMatrix(0, 11) = "Rate" 
 VSDS.TextMatrix(0, 12) = "Time In" 
 VSDS.TextMatrix(0, 13) = "Time out" 
 VSDS.TextMatrix(0, 14) = "No. Pass" 
 VSDS.TextMatrix(0, 15) = "Company" 
 For i = 6 To 15 
 VSDS.ColHidden(i) = True 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 63
 Next 
 For i = 0 To VSDS.Cols - 1 
 VSDS.Cell(flexcpAlignment, 0, 0, 0, 5) = flexAlignCenterCenter 
 VSDS.Cell(flexcpFontBold, 0, 0, 0, 5) = True 
 Next 
 BOOK = 1 
End Sub 
- Hàm kiểm tra phòng 
Private Function CheckRoom(RN As String) As Boolean 
 CheckRoom = False 
 If (Trim(RN) = "201" Or Trim(RN) = "202" Or Trim(RN) = "203" Or 
Trim(RN) = "204" Or _ 
 Trim(RN) = "301" Or Trim(RN) = "302" Or Trim(RN) = "303" Or 
Trim(RN) = "304" Or _ 
 Trim(RN) = "401" Or Trim(RN) = "402" Or Trim(RN) = "403" Or 
Trim(RN) = "404" Or _ 
 Trim(RN) = "501" Or Trim(RN) = "502" Or Trim(RN) = "503" Or 
Trim(RN) = "504" Or _ 
 Trim(RN) = "601" Or Trim(RN) = "602" Or Trim(RN) = "603" Or 
Trim(RN) = "604" Or _ 
 Trim(RN) = "701" Or Trim(RN) = "702" Or Trim(RN) = "703" Or 
Trim(RN) = "704" Or _ 
 Trim(RN) = "801" Or Trim(RN) = "802" Or Trim(RN) = "803" Or 
Trim(RN) = "804") Then 
 CheckRoom = True 
 End If 
End Function 
Private Sub LoadCustomer() 
 Dim rs1 As ADODB.Recordset 
 Dim STT As Integer 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 64
 sql = "Select * FROM CUR_CUST where book=" & BOOK 
 Set rs1 = pConnection.Execute(sql) 
 VSDS.Clear 1 
 VSDS.Rows = 1 
 STT = 0 
 While Not rs1.EOF 
 STT = STT + 1 
 VSDS.AddItem rs1!CUSTOMERID & vbTab & Trim(rs1!ROOMNUM) 
& vbTab & rs1!LASTNAME & vbTab & rs1!FIRSTNAME & vbTab & 
rs1!BIRTHDAY & vbTab & rs1!nation & vbTab & Trim(rs1!SEXSUAL) & 
vbTab & Trim(rs1!DATE_IN) & vbTab & Trim(rs1!DATE_OUT) & vbTab 
& Trim(rs1!PAYMENT) & vbTab & Trim(rs1!VISA_NUM) & vbTab & 
Trim(rs1!Rate) & vbTab & Trim(rs1!TIME_IN) & vbTab & 
Trim(rs1!TIME_OUT) & vbTab & Trim(rs1!PASSPORT) & vbTab & 
Trim(rs1!COMPANY) 
 rs1.MoveNext 
 Wend 
 If (VSDS.Rows > 1) Then 
 VSDS.Row = 1 
 CmdSua.Enabled = True 
 Call VSDS_Click 
 Else 
 CmdSua.Enabled = False 
 End If 
 rs1.Close 
 Set rs1 = Nothing 
End Sub 
- Bảng hiển thị danh sách khách đăng ký 
Private Sub VSDS_Click() 
Dim rs1 As ADODB.Recordset 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 65
Dim MaChungTu As String 
Dim MaLoaiHangHoa As String 
Dim MaHangHoa As String 
clicked = True 
 If (VSDS.Row > 0 And VSDS.Row < VSDS.Rows) Then 
 TxtCusID.Text = VSDS.TextMatrix(VSDS.Row, 0) 
 TxtRoomNumber.Text = VSDS.TextMatrix(VSDS.Row, 1) 
 TxtLastName.Text = VSDS.TextMatrix(VSDS.Row, 2) 
 TxtFirstName.Text = VSDS.TextMatrix(VSDS.Row, 3) 
 TxtBirthDay.Value = VSDS.TextMatrix(VSDS.Row, 4) 
 CboNation.ListIndex = 
GetIndex(VSDS.TextMatrix(VSDS.Row, 5)) 
 If (Trim(VSDS.TextMatrix(VSDS.Row, 6)) = "M") Then 
 CboGT.ListIndex = 0 
 Else 
 CboGT.ListIndex = 1 
 End If 
 TxtDateIn.Value = VSDS.TextMatrix(VSDS.Row, 7) 
 TxtDateOUT.Value = VSDS.TextMatrix(VSDS.Row, 8) 
 CboPayment.ListIndex= 
GetIndexPayMent(VSDS.TextMatrix(VSDS.Row, 9)) 
 TxtVisaNum.Text = VSDS.TextMatrix(VSDS.Row, 10) 
 TxtRate.Text = VSDS.TextMatrix(VSDS.Row, 11) 
 txtTimeIn.Value = VSDS.TextMatrix(VSDS.Row, 12) 
 TxtTimeOut.Value = VSDS.TextMatrix(VSDS.Row, 13) 
 TxtPassNum.Text = VSDS.TextMatrix(VSDS.Row, 14) 
 TxtCompany.Text = VSDS.TextMatrix(VSDS.Row, 15) 
 End If 
End Sub 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 66
Private Function GetIndex(Ma As String) As Integer 
 Dim NationName As String 
 Dim i As Integer 
 Dim rs1 As ADODB.Recordset 
 sql = "Select * from QG where Manuoc='" & Trim(Ma) & "'" 
 Set rs1 = pConnection.Execute(sql) 
 GetIndex = -1 
 If (Not rs1.EOF) Then 
 NationName = rs1!Tennuoc 
 End If 
 rs1.Close 
 Set rs1 = Nothing 
 If (CboNation.ListCount >= 0) Then 
 For i = 0 To CboNation.ListCount - 1 
 If (Trim(CboNation.List(i)) = Trim(NationName)) Then 
 GetIndex = i 
 Exit Function 
 End If 
 Next 
 End If 
End Function 
Private Function GetIndexPayMent(Ma As String) As Integer 
 Dim PayMentName As String 
 Dim i As Integer 
 Dim rs1 As ADODB.Recordset 
 sql = "Select * from PAYMENT where PAYMENTID='" & 
Trim(Ma) & "'" 
 Set rs1 = pConnection.Execute(sql) 
 GetIndexPayMent = -1 
 If (Not rs1.EOF) Then 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 67
 PayMentName = rs1!Detail 
 End If 
 rs1.Close 
 Set rs1 = Nothing 
 If (CboPayment.ListCount >= 0) Then 
 For i = 0 To CboPayment.ListCount - 1 
 If (Trim(CboPayment.List(i)) = Trim(PayMentName)) Then 
 GetIndexPayMent = i 
 Exit Function 
 End If 
 Next 
 End If 
End Function 
- Xóa thông tin đang nhập 
Private Sub ClearItem() 
 Call LoadCusID 
 TxtRoomNumber.Text = "" 
 TxtLastName.Text = "" 
 TxtFirstName.Text = "" 
 TxtBirthDay.Value = Null 
 CboNation.ListIndex = -1 
 CboGT.ListIndex = -1 
 CboPayment.ListIndex = -1 
 TxtVisaNum.Text = "" 
 TxtPassNum.Text = "" 
 TxtRate.Text = "" 
 TxtCompany.Text = "" 
 TxtDateIn.Value = Date 
 TxtDateOUT.Value = Date 
 txtTimeIn.Value = Time() 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 68
 TxtTimeOut.Value = Time() 
End Sub 
Private Function RoomBusy(ROOMNUM As String) As 
Boolean 
 Dim rs1 As ADODB.Recordset 
 sql = "Select ROOMNUM From CUR_CUST WHERE 
ROOMNUM='" & Trim(ROOMNUM) & "' and book=1" 
 Set rs1 = pConnection.Execute(sql) 
 RoomBusy = False 
 If (Not rs1.EOF) Then 
 RoomBusy = True 
 End If 
 rs1.Close 
 Set rs1 = Nothing 
End Function 
 5. Chức năng Trả phòng ( Quản lý khách ra) 
Bao gồm các Form: 
 Nhập hoá đơn 
 Nhập hoá đơn điện thoại 
 Nhập hoá đơn Fax 
 Sửa hoá đơn 
 Trả phòng. 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 69
 6. Chức năng Đặt phòng (Quản lý thông tin đặt phòng) 
Form hiển thị tình trạng phòng của khách sạn 
 - Đoạn code 
Private Sub SetStatusRoomBusy(ByVal Room As String, ByVal code 
As Integer) 
Room = Trim(Room) 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 70
 If (CheckRoom(Room) = True) Then 
 If (code = 1) Then ' Free Room 
 IRoomX((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 
1).ZOrder (0) 
 L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) 
 ElseIf (code = 2) Then ' Busy Room 
 IRoomD((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 
1).ZOrder (0) 
 L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) 
 ElseIf (code = 3) Then ' Overdate Room 
 IRoomV((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 
1).ZOrder (0) 
 L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) 
 ElseIf (code = 4) Then ' Booking Room 
 IRoomT((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 
1).ZOrder (0) 
 L((Val(Left(Room, 1)) - 2) * 4 + Val(Right(Room, 1)) - 1).ZOrder (0) 
 End If 
 End If 
End Sub 
7. Chức năng báo cáo 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 71
8. Chức năng trợ giúp 
- Code kết nối dữ liệu access bằng OLEDB: 
Private Sub init() 
 Set pConnection = New ADODB.Connection 
 With pConnection 
 .ConnectionTimeout = 5 
 .ConnectionString = 
"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
App.Path & "\CSDLKS.mdb;Jet OLEDB:Database 
Password=vietnam;" 
 .CursorLocation = adUseServer 
 .IsolationLevel = adXactIsolated 
 .Open 
 End With 
 Exit Sub 
End Sub 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 72
CHƯƠNG 5: KẾT LUẬN 
 1. Nhận xét về đề tài 
Trong thời gian nghiên cứu, xây dựng chương trình, em hết sức cố 
gắng làm việc với sự giúp đỡ tận tình của thầy giáo. Chương trình đã đạt được 
một số kết quả nhất định: Giao diện đơn giản, dể sử dụng, đảm bảo tìm kiếm 
thông tin nhanh chóng, chính xác và tiết kiệm thời gian, hạn chế được việc 
phải lưu trữ quá nhiều sổ sách trong quá trình quản lý. 
Quản lý khách sạn và đặt phòng trực tuyến là một đề tài thiết thực với 
nhu cầu của các doanh nghiệp kinh doanh trong lĩnh vực khách sạn hiện nay. 
Tuy nhiên với thời gian ngắn, trình độ và kinh nghiệm còn hạn chế; hệ 
thống quản lý vẫn còn có nhiều thiếu sót. Rất mong các thầy cô giáo và các 
bạn tận tình giúp đỡ để hệ thống quản lý ngày càng được hoàn thiện hơn. 
2. Hướng phát triển của đề tài: 
Hệ thống quản lý khách sạn và đặt phòng trực tuyến trên đây phần nào 
đã đáp ứng được nhu cầu sử dụng của các doanh nghiệp kinh doanh khách 
sạn; tuy nhiên còn có rất nhiều thiếu sót và hạn chế. 
 Nếu được phát triển tiếp đề tài này em sẽ xây dựng hệ thống quản lý 
bằng website, ban quản lý khách sạn có thể quản lý dữ liệu trực tiếp trong cơ 
sở dữ liệu của website, đồng thời cập nhật thường xuyên cho khách hàng 
những thông tin mới nhất của khách sạn đồng thời tiếp nhận ý kiến của khách 
hàng cũng nhanh chóng hơn. Việc quản lý và đăng ký đặt phòng trực tuyến 
cũng trở nên dể dàng hơn; Hạn chế được việc để lỡ các cơ hội cho thuê phòng 
cũng như những sai sót có thể làm ảnh hưởng đến uy tính của khách sạn do 
ảnh hưởng của việc tra cứu thông tin chậm trễ - đó là điều mà những nhà kinh 
doanh nói chung và kinh doanh khách sạn nói riêng không bao giờ mong đợi. 
Cuối cùng, một lần nữa em xin chân thành cảm ơn TS.Trần Minh cùng 
ThS.Nguyễn Hoài Thu, người đã định hướng cho em hướng nghiên cứu đề tài 
này và là người hướng dẫn, giúp đỡ tôi rất nhiều trong quá trình thực hiện đề 
tài. Em xin cảm ơn Ba, Mẹ, anh chị và bạn bè đã tạo điều kiện và giúp đỡ em 
trong quá trình thực hiện đề tài này. 
Em xin trân trọng cảm ơn! 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 73
PHỤ LỤC 
Danh sách các hồ sơ dữ liệu 
STT Ký Hiệu Tên kho DL Mô tả 
1 D1 Tiện nghi Lưu thông tin tiện nghi trang bị của khách sạn
2 D2 Dịch vụ Lưu thông tin dịch vụ mà khách sạn cung cấp 
3 D3 DS Khách Lưu thông tin khách hàng 
4 D4 Hoá đơn Lưu hóa đơn thanh toán 
5 D5 DS Phòng Lưu thông tin phòng 
6 D6 DS Phòng đặt Lưu thông tin phòng khách hàng đặt trước. 
7 D7 Loại phòng Lưu thông tin loại phòng 
Ma trận thực thể 
D1: Tiện nghi 
D2: Dịch vụ 
D3: DS Khách 
D4: Hoá đơn 
D5: DS Phòng 
D6: DS Phòng đặt 
D7: Loại phòng 
 D1 D2 D3 D4 D5 D6 D7 
1.0 Quản lý đặt phòng R C 
2.0 Quản lý khách vào C R R 
3.0 Quản lý sử dụng dịch vụ R C 
4.0 Quản lý khách ra R C U U 
5.0 Quản lý tài nguyên U U U U 
6.0 Báo cáo R R R R R R R 
TÀI LIỆU THAM KHẢO 
Đồ án tốt nghiệp Quản lý khách sạn và đặt phòng trực tuyến 
Trường ĐHDL Hải Phòng 74
1. Mô hình quản lý của khách sạn Hilton. 
2. Mô hình quản lý của khách sạn ATS của công ty du lịch dịch vụ 
Quân khu thủ đô. 
3. Phân tích thiết kế các hệ thống thông tin hiện đại – PGS.TS. Nguyễn 
Văn Vị - Nhà xuất bản thống kê 2002. 
 4. Hướng dẫn sử dụng Microsoft Access – Nhà xuất bản thống kê. 
 Và một số tại liệu có liên quan khác. 

File đính kèm:

  • pdfde_tai_quan_ly_khach_san_va_dat_phong_truc_tuyen.pdf