Baocao vb quản lý khách sạn

Báo cáo Vb đề tài quản lý khách sạn. Gồm quản lý nhận phòng, trả phòng, tìm kiếm, in bảng biểu Mục tiêu thực tập tốt nghiệp: Được trực tiếp làm những công việc trong khách sạn để nâng cao hiểu biết, nâng cao kiến thức trong lĩnh vực khách sạn. Và đây cũng là cơ hội cho mỗi sinh viên được thực tập sử dụng những kiến thức mà mình đã tích luỹ được trong quá trình học tập tại trường để vận dụng tại nơi làm việc. Bên cạnh đó, Khoa Du lịch cũng đạt được mục tiêu nâng cao chất lượng sinh viên không chỉ giỏi về lý thuyết mà còn giỏi về thực hành, có khả năng thích ứng cao với công việc thực tế.

-From thông tin khách hàng:

-From nhận phòng và trả phòng:

-From tìm kiếm:

-DataReport hóa đơn thanh toán tổng hợp:

-DataReport danh sách khách hàng nhận phòng và thông tin khách thuê phòng:

2 Kết quả chạy:

-Khi chạy chương trình form load chạy đầu tiên:

-Xong form load đến form đăng nhập:

Nhấn vào đăng nhập mà chưa điền tên đăng nhập thì báo “Bạn chưa nhập tên đăng nhập !”

Khi nhập tên đăng nhập xong mà không nhập mật khẩu thì báo “Bạn chưa nhập mật khẩu !”

Nhập xong mật khẩu và tên đăng nhập thì tiến hành kiểm tra tên đăng nhập và mật khẩu được gán cho nó nếu tên đăng nhập là “XuanVu” và mật khẩu là “123456” thì báo “Đăng nhập thành công !” và load vào form hệ thống

Nếu mật khẩu hoặc tên đăng nhập sai thì báo “Đăng nhập thất bại !”

-Khi vào form hệ thống trên menu có các lựa chọn

a Hệ thống: Trong đó có “Đăng xuất” để quay lại form đăng nhập

b Cập nhật: Trong đó có “Form thông tin khách hàng”

Form này cho phép sửa, xóa, làm mới và thoát

i Khi nhấn vào “Xóa” thì báo “Bạn có muốn xóa không ?”

ii Khi nhấn vào “Thoát” thì báo “Bạn có muốn thoát giao diện này không ?”

c Quản lý: gồm quản lý nhận phòng và trả phòng

i Quản lý nhận phòng : In danh sách khách nhận phòng, nhận khách hàng, xóa , thoát

-Khi nhấn vào nhận phòng thì các nút lệnh khác ẩn đi chỉ còn lưu và thoát

-Nhấn vào “In danh sách trong ngày” thì sẽ chuyển đến datareport in bảng ghi hiện hành

-Khi nhấn “Kết thúc” thì trở về form “Hệ thống”

ii Quản lý trả phòng: thêm, xóa, kết thúc và in hóa đơn

-Form trả phòng:

-Nhấn vào thêm thì các nút lệnh ẩn đi, chỉ được phép thêm hoăc kết thúc

-Nhấn vào “in hóa đơn”

-Nhấn vào “xóa”

-Nhấn vào “kết thúc”

d Tìm kiếm: Thông tin khách hàng

- Giao diện tìm kiếm:

-Tìm kiếm kết hợp 2 điều kiện

-In kết quả tìm kiếm

-Chọn lại

-Nhấn “Chọn lại”

-Nhấn “Kết thúc” trở về form hệ thống

e Thoát

3 Code chụp hình

a Form load

b Form đăng nhập

c Form hệ thống

d From khách hàng

e From nhận phòng

f From tìm kiếm

g Form trả phòng

h Module

4 Code

a Module

Public Sub ketnoidb(objADO As Adodc)

objADO.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0 ;" & _ "Data Source =" & App.Path & "\Qlks.mdb;" & _

"Persist Security Info=False;"

End Sub

Public Sub update_cbo(cbo As ComboBox, rs As Adodc, strField As String)

'Cap nhat du lieu cho hop chon combobox

' Mo khoa cho mang control

Public Sub open_control(ParamArray ctrl())

For i = 0 To UBound(ctrl)

ctrl(i).Locked = False

Next

End Sub

Public Sub thoat(frm As Form)

If MsgBox("Ban muon thoat khoi giao dien nay ?", vbYesNo + vbQuestion, "Xac nhan") = vbYes Then

Unload frm

End If

End Sub

' Xoa trang du lieu cho 1 mang cac o text

Public Sub clear_text(ParamArray ctrl())

' Mo khoa 1 mang nut lenh

Public Sub open_button(ParamArray cmd())

' Khoa mang control

Public Sub lock_control(ParamArray ctrl())

Label1.Caption = "Sinh Viên thực hiện: Hà Xuân Vũ"

Label2.Caption = "Giáo Viên Hớng Dẫn : THS Hoàng Thị Mỹ Lệ" lbl1.Caption = "Xin chờ để vào hệ thống quản lý "

Private Sub cmdChon_Click()

If Text1.Text = "XuanVu" And txtPassword.Text = "123456" ThenMsgBox "Dang nhap thanh cong !"

frmhethong.Show

Unload Me

ElseIf Text1.Text = "" Then

MsgBox "Ban chua nhap ten dang nhap !"

ElseIf txtPassword.Text = "" Then

MsgBox "Ban chua nhap mat khau !"

Private Sub exit_Click()

If MsgBox("Ban muon thoat khoi he thong nay ?", vbYesNo + vbQuestion, "Xac nhan") = vbYes Then

End

End If

End Sub

Private Sub namedx_Click()

If MsgBox("Ban muon thoat khoi giao dien nay ?", vbYesNo + vbQuestion, "Xac nhan") = vbYes Then

Private Sub Command3_Click()

If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then

Private Sub Command9_Click()

If Command9.Caption = "Tho¸t" Then

'Xu ly giao dien

Private Sub cmdnext_Click()

If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then Adodc1.Recordset.MoveLast

MsgBox "Ban dang o bang ghi cuoi cung !"

MsgBox "Ban dang o bang ghi dau tien !"

Adodc3.RecordSource = str

Adodc3.Refresh

On Error Resume Next

Set rptnhanphong.DataSource = Adodc3

Private Sub cmdlast_Click()

Adodc1.Recordset.MoveLast

End Sub

Private Sub cmdnext_Click()

If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then Adodc1.Recordset.MoveLast

MsgBox "Ban dang o bang ghi cuoi cung !"

Private Sub cmdprint_Click()

Dim strtinh As String

Dim tienp, tientt As Double

tienp = 0

tientt = 0

strtinh = "select ngaydi-ngayden As ngayo, ngayo*dongia As tienphong " _ & "from tbl_loaiphong inner join (tbl_dangky inner join tbl_phong on tbl_dangky.maphong = tbl_phong.maphong) on tbl_loaiphong.loaiphong =

'Tien can thanh toan = tien dich vu + tien phong - tien dat truoc

tientt = tienp - CDbl(txttdc.Text)

txttp.Text = tienp

txtttt.Text = tientt

Dim strSQL As String

strSQL = "select sotp,tbl_dangky.maphong,tbl_dangky.makh,tenkh,(ngaydi-ngayden) as ngayo,tiendatcoc,tienp,tienp-tiendatcoc as tientt from (tbl_khachhang inner join tbl_dangky on tbl_khachhang.makh = tbl_dangky.makh) inner join tbl_traphong on tbl_dangky.sodk = tbl_traphong.sotp where sotp='" & cbodk.Text & "'"

' Chi xu ly thanh toan cho nhung so dang ky da nhan phong

sql = "select sonp from tbl_nhanphong"

Adodc2.RecordSource = sql

Adodc2.Refresh

'Nap thong tin so dang ky cho combobox cbodk

update_cbo cbodk, Adodc2, "sonp"

Private Sub txttp_Change()

txtttt.Text = CDbl(txttp.Text) - CDbl(txttdc.Text)End Sub

update_cbo cbop, Adodc2, "maphong"

sql = "select sodk from tbl_dangky"

End Sub

Private Sub cmdtk_Click()

If optp.Value = False And optten.Value = False And optcm.Value = False And

optdk.Value = False And opttc.Value = False And optktg.Value = False Then

MsgBox "Ban chua chon dieu kien tim kiem !", vbOKOnly + vbInformation, "Thong bao"

& "FROM tbl_dangky inner join tbl_khachhang on

tbl_dangky.makh=tbl_khachhang.makh"

If optp.Value = True Then

str = str & " where tbl_dangky.maphong='" & Trim(cbop.Text) & "'"

flagand = True

Else

If optten.Value = True Then

str = str & " where tenkh like '%" & Trim(txttenkh.Text) & "%'"

flagand = True

Else

If optcm.Value = True Then

str = str & " where CMND='" & Trim(txtcmnd.Text) & "'"

If optktg.Value = True Then

If flagand = True Then

str = str & " and ngaydk between #" & cbotungay.Value & "# and #" & cbodenngay.Value & "#"

Else

str = str & " where ngaydk between #" & cbotungay.Value & "# and #" & cbodenngay.Value & "#"