Đồ án tốt nghiệp - Chủ đề: Học đi đôi với hành - Đỗ Thị Liên

Int(Val(Trim(Right(ngay, 4)))) < 1000 Then
MsgBox "Nam phai co 4 chu so.Vui long nhap lai.", vbOKOnly + vbExclamation, "Thong bao"
 	Test_Day = False
 	 	Exit Function
 	End If
If CInt(Val(Trim(Mid(ngay, 4, 2)))) < 1 Or
 CInt(Val(Trim(Mid(ngay, 4, 2)))) > 12 Then
MsgBox "Ngay thang khong hop le. Vui long nhap lai", vbOKOnly + vbExclamation, "Thong bao"
 	Test_Day = False
 	 	Else
 	Select Case CInt(Val(Trim(Mid(ngay, 4, 2))))
 	Case 1, 3, 5, 7, 8, 10, 12
 	If KTNgay 31 Then
MsgBox " Thang " & Mid(ngay, 4, 2) & " co 31 ngay", vbOKOnly + vbExclamation, "Thong bao"
 	Test_Day = False
 Else
 	Test_Day = True
 End If
 Case 2
 If KTNgay 29 Then
 MsgBox " ngay khong hop le", vbOKOnly + vbExclamation, "Thong bao"
 Test_Day = False
 Else
 If namnhuan(Right(ngay, 4)) = False Then
 If KTNgay > 28 Then
MsgBox "Nam " & Right(ngay, 4) & " thang 2 co 28 ngay. Vui long nhap lai", vbOKOnly + vbExclamation, "Thong bao"
 	Test_Day = False
 End If
 Else
 Test_Day = True
 End If
 End If
 Case Else
 If KTNgay 30 Then
 MsgBox "Ngay khong hop le! thang " & (Mid(ngay, 4, 2)) & _
 " chi co 30 ngay. Vui long nhap lai.", vbOKOnly + vbExclamation, "Thong bao"
 Test_Day = False
 Else
 Test_Day = True
 End If
 End Select
 End If
End Function
· Thủ tục đăng ký thuê phòng
	Input : THÔNG TIN ĐĂNG KÝ THUÊ PHÒNG
Output : Thông tin đăng ký thuê phòng ghi vào bảng DANGKY
Xử lý:
 Private Sub Luu_Du_Lieu()
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim str
If Trim(txtSoDK) = "" Or Trim(txtMaKH) = "" Or Trim(txtMaP) = "" Then
MsgBox "Chu y: MaKH, SoDK, MaP khong duoc trong", vbOKOnly + vbExclamation, "Thong bao"
 	Me.MousePointer = 0
 	Exit Sub
End If
Test_NULL
str = "select*from PHONG where MaP='" & Trim(txtMaP) & "'"
rs1.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText
If txtMaP = rs1!MaP Then
 	rs1.Update
 	 rs1.Close
 	 str = "select*from Dangky where SoDK='" & Trim(txtSoDK) & "' "
 	 rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText
 	If rs.EOF = True Then
 	rs.AddNew
 	rs!MaKH = txtMaKH
 	rs!soDK = txtSoDK
 	rs!NgayDK = txtNgayDK
 	rs!MaP = txtMaP
 	rs!Ngayden = txtNgayden
 	rs!Gioden = txtGioden
 	rs!Ngaydi = txtNgaydi
 	rs!Giodi = txtGiodi
 	rs!SLNL = txtSLNL
 	rs!SLTE= txtSLTE
 	rs!Giathue = txtGiathue
 	rs!Tiencoc = txtTiencoc
 	rs.Update
 	rs.Close
 	Else
 	Dim kiemtra
 	If txtSoDK = rs! SoDK Then
kiemtra = MsgBox(" Khach hang co So dang ky [" & txtSoDK & "]da ton tai. Neu ban muon SUA thong tin khach hang thi bam Yes", vbYesNo + vbQuestion, "Thong bao")
 	If kiemtra = vbNo Then
 	Exit Sub
 Else
rs!MaKH = txtMaKH
 	rs!SoDK = txtSoDK
 	rs!NgayDK = txtNgayDK
 	rs!MaP = txtMaP
 	rs!Ngayden = txtNgayden
 	rs!Gioden = txtGioden
 	rs!Ngaydi = txtNgaydi
 	rs!Giodi = txtGiodi
 	rs!SLNL = txtSLNL
 	rs!SLTE = txtSLTE
 	rs!Giathue = txtGiathue
 	rs!Tiencoc = txtTiencoc
 	rs.Update
 End If
 End If
 End If
End If
Lock_Text
Display_Listview
cmdNEW.SetFocus
Me.MousePointer = 0
End Sub
Hàm kiểm tra ngày đến
Private Function KTNgayden(Ngayden As String) As Boolean
 	Dim rs As New ADODB.Recordset
 	Dim str
 	str = " select * from Dangky where SoDK='" & Trim(txtSoDK.Text) & "'"
 	rs.Open str, cn, adOpenKeyset, adLockOptimistic, adCmdText
 	If rs.EOF = True Then
 If txtNgayDK = "" Then
 MsgBox " Ban chua nhap ngay dang ky ! ", vbOKOnly + vbExclamation, "Thong bao"
 	KTNgayden = False
txtNgayDK.SetFocus
 	Exit Function
 Else
 	If CDate(Ngaythang(Ngayden)) < txtNgayDK Then
MsgBox " Ngayden phai >= [" & txtNgayDK & "] ", vbOKOnly + vbExclamation, "Thong bao"
 	KTNgayden = False
 Else
 	KTNgayden = True
 	End If
 End If
 Else
 If CDate(Ngaythang(Ngayden)) < rs!NgayDK Then
MsgBox " Ngayden phai >= [" & txtNgayDK & "] ", vbOKOnly + vbExclamation, "Thong bao"
 	KTNgayden = False
 Else
 	KTNgayden = True
 End If
 End If
End Function
II. Thiết kế giao diện
	Có lẽ khâu quan trọng nhất trong lập trình là thiết kế. Sau khi thiết kế giao diện, bạn cần thiết kế cấu trúc chương trình. Cách thiết kế khác nhau sẽ dẫn đến các hoạt động khác nhau và bảo trì theo đó cũng khác nhau. Code trong VB được tổ chức theo dạng cây phân nhánh. Một ứng dụng thông thường chứa một hoặc nhiều mô-đun. Mỗi biểu mẫu có một mô-đun, có thêt có thêm những mô-đun chuẩn chứa những đoạn chương trình dùng chung và cũng có thể có thêm mô-đun lớp.
	Có hai loại giao diện chính SDI (giao diện đơn tài liệu - single document interface) và MDI (giao diện đa tài liệu - multiple document interface).
	Ví dụ : Notepad là một ví dụ của SDI, Microsoft Excel - Microsoft Word là những MDI.	
	Dưới đây là một số Form của chương trình
Form_Main
Form _Khachhang
Form _DANGKY
	Form_NHANPHONG
Kết luận
Mặc dù đã rất cố gắng tìm hiểu công việc " Quản lý khách sạn " nhưng không sao tránh khỏi những thiếu sót. Mong quý Thầy , Cô và các bạn đóng góp ý kiến để em rút ra được nhiều kinh nghiệm quý báu khi bước vào cuộc sống mới.
Quá trình khảo sát, phân tích - thiết kế và cài đặt bàitoán quản lý khách sạn cơ bản đã hoàn thành những công việc sau:
- Cập nhật, lưu trữ, thêm thông tin:
	* Khách hàng đăng ký thuê phòng
	* Khách hàng nhận phòng
	* Khách hàng huỷ đăng ký
	* Khách hàng sử dụng dịch vụ
	* Khách hàng trả phòng
	* Thông tin nhân viên trong khách sạn
- Báo biểu:
	* Danh mục phòng
	* Danh sách khách hàng đăng ký thuê phòng
	* Danh sách khách hàng nhận phòng
	* Danh sách khách hàng sử dụng dịch vụ
- Tra cứu:
	* Thông tin khách hàng
	* Thông tin nhân viên của khách sạn
	* Hoá đơn dịch vụ
	* Hoá đơn tổng hợp
	Bài toán được thiết kế và cài đặt bằng ngôn ngữ Visual Basic cho phép chạy trên môi trường Windows do đó kế thừa được những tính năng mạnh của Windows như:
	- Cho một giao diện thân thiện với người sử dụng
	- Chạy theo chế độ đa nhiệm
	- In ấn nhanh chóng và thuận lợi
	Bài toán quản lý khách sạn này chủ yếu là áp dụng với khách sạn có quy mô tương đối nhỏ, do đặc thù của mỗi khách sạn nên công tác quản lý với mỗi khách sạn là khác nhau. Ở đây em chỉ tìm hiểu về công tác quản lý của khách sạn Minh hoàng nên chương trình này chủ yếu áp dụng cho công tác quản lý của khách sạn mà thôi.
	Do thời gian hạn chế và trình độ hiểu biết của bản thân chưa nhiều nên việc phân tích thiết kế và cài đặt bài toán quản lý khách sạn chưa hoàn thiện như một phần mềm quản lý. Nó mang tính chất học hỏi, trao đổi và bắt đầu làm quen với thực tế. Nhưng qua đợt thực tập này, em đã học hỏi được nhiều kinh nghiệm trong quá trình phân tích thiết kế và cài đặt một chương trình quản lý, đồng thời cũng bổ sung kiến thức cho bản thân.
	Em xin chân thành cảm ơn Cô Nguyễn Kim Anh đã tận tình giúp đỡ để em hoàn thành đồ án của mình. Em cũng bày tỏ lòng biết ơn sâu sắc tới quý Thầy Cô khoa Công nghệ thông tin trường Đại học Bách khoa Hà nội, các Thầy Cô khoa Công nghệ thông tin trường Đại học Thuỷ sản đã chỉ dạy trong suốt khoá học. Tôi cảm ơn các bạn đã đóng góp ý kiến và động viên để tôi hoàn thành đồ án này.
Hướng phát triển
	- Chương trình chỉ mới cho phép nhân viên trong khách sạn tiếp cận hệ thống. Nên hướng là cần phải phân quyền sử dung hệ thống cho khách có thể tiếp cận với hệ thống.
	- Mở rộng bài toán cho nhiều khách sạn riêng biệt
	- Thống kê danh sách khách hàng theo khoảng thời gian nào đó
	- Đưa ra doanh thu cho khách sạn trong khoảng thời gian nhất định
	- Ngoài ra để chương trình được tối ưu hơn, ta có thể xây dựng thêm hệ thống cung cấp thông tin về phòng, giá cả và cho phép đặt phòng qua mạng.
Tài liệu tham khảo
[1] - " Microsoft Visual Basic & Lập trình cơ sở dữ liệu 6.0 ", Nguyễn Thị Ngọc Mai (chủ biên), Nhà xuất bản lao động -Xã hội.
[2] - " Những bài thực hành cơ sở dữ liệu Visual Basic căn bản ", Ks. Đinh Xuân Lâm, Nhà xuất bản thống kê.
[3] - " Bài giảng Microsoft Access ", Ths.Nguyễn Đình Thuân 
[4] - "Bài giảng cơ sở dữ liệu & phân tích và thiết kế hệ thống thông tin quản lý ", Ths. Nguyễn Hữu Trọng.
[5] - " Phân tích thiết kế hệ thống thông tin quản lý ", Ths. Đinh Thế Hiển, Nhà xuất bản thống kê - 2000.
[6] - " Một số bài luận văn tốt nghiệp " của anh chị các khoá trước.
Phụ lục
	1. Cài đặt Visual Basic 6.0
Sử dụng chương trình Setup, ta có thể cài đặt Visual Basic trên máy tính. Chương trình Setup cài đặt VB và các thnàh phần khác từ đĩa CD vào đĩa cứng. Chương trình này còn cài đặt các tập tin cần thiết để xem tài liệu trên đĩa CD MSDN (Microsoft Developer Network). Ta không thể thi hành VB bằng cách chỉ copy các tập tin từ đĩa CD-ROM vào đĩa cứng. Ta phải dùng chương trình Setup để giải nén và cài đặt các tập tin vào thư mục thích hợp.
a. Cấu hình cài đặtVB 6.0
- Microsoft Windows 95 trở lên hoặc Microsoft Windows NT Workstation 4.0 trở lên.
- Bộ vi xử lý 486DX / 66MHz trở lên
- Một ổ đĩa CD-ROM
- Màn hình VGA hoặc màn hình độ phân giải cao được hỗ trợ bởi Microsoft Windows.
- 16 MB RAM cho Win95, 32MB RAM cho Win NT Workstation
- Một thiết bị chuột hoặc các thiết bị trỏ tương thích
b. Đọc tập tin Readme
Tập tin này liệt kê các sửa đổi trên tài liệu của VB từ khi nó được phát hành. Kiểm tra phần đầu của tập tin này để nắm được thông tin mới, chi tiết về cài đặt VB.
c. Quá trình cài đặt
- Đặt đĩa CD-ROM vào ổ đĩa CD-ROM
- Dùng lệnh thích hợp với môi trường hệ điều hành để thi hành chương trình Setup chứa trong thư mục gốc của đĩa số 1. Chẳng hạn với Win 98, chọn Start ® Run ® nhập vào E:\Setup (giả sử E là tên ổ đĩa CD trên máy để cài đặt).
- Chọn Install Visual Basic 6.0 
- Lần lượt làm theo những hướng dẫn trên màn hình
d. Khởi động Visual Basic
Sau khi đã hoàn tất thủ tục cài đặt, ta có thể khởi động VB bằng cách sử dụng nút Start trên thanh công việc của Windows. Nếu hệ thống hỗ trợ AutoPlay, ta có thể khởi động VB bằng cách đặt đĩa VB vào ổ đĩa.
2. Cài đặt Microsoft Access 97
	Microsoft Acces 97 nằm trong bộ Microsoft Office 97. Đưa đĩa CD chứa bộ Office 97 vào máy và thực hiện lệnh Setup để bắt đầu quá trình cài đặt. Nên chọn mục Custom để cài đầy đủ bộ Access.