Đang tải... (xem toàn vă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ế.
Báo cáo 1. From các giao diện: -From load: -From đăng nhập: -From hệ thống: -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 [...]... ctrl()) For i = 0 To UBound(ctrl) ctrl(i).Locked = True Next End Sub b Form load Private Sub Form_Load() lbl.Caption = "Quản lý khách sạn" 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ý " stateSplash = 0 frmLoad.Height = 8500 frmLoad.Width = 12500 End Sub Private Sub Timer1_Timer() Picture2.Width... cmdThoat_Click() End End Sub d Form h thng 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 frmDangNhap.Show End If End Sub Private Sub namekh_Click() frmkhachhang.Show End Sub Private Sub namenp_Click()... 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()) Dim i As Integer For i = 0 To UBound(ctrl) ctrl(i).Text = "" Next...-Nhn vo In danh sỏch trong ngy thỡ s chuyn n datareport in bng ghi hin hnh -Khi nhn Kt thỳc thỡ tr v form H thng ii Qun lý tr phũng: thờm, xúa, kt thỳc v in húa n -Form tr phũng: -Nhn vo thờm thỡ cỏc nỳt lnh n i, ch c phộp thờm hoc kt thỳc -Nhn vo in húa n -Nhn vo xúa -Nhn vo kt thỳc d Tỡm kim: Thụng tin khỏch hng - Giao... End Sub Private Sub Command4_Click() Adodc1.Recordset.MoveLast End Sub Private Sub Command6_Click() save_data End Sub Private Sub Command7_Click() Dim a As String a = MsgBox(" Ban co muon xoa khong", vbYesNo, "Thong Bao") If a = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MovePrevious End If End Sub Private Sub Command9_Click() If Command9.Caption = "Thoát" Then thoat Me End If End Sub Private... Adodc1.Recordset.Fields("ngaynhan").Value = txtnnp.Text Adodc1.Recordset.Fields("gionhan").Value = txtgnp.Text Adodc1.Recordset.Update End If End Sub Private Sub cmddel_Click() Dim a As String a = MsgBox(" Ban co muon xoa khong", vbYesNo, "Thong Bao") If a = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MovePrevious End If End Sub Private Sub cmdexit_Click() If cmdexit.Caption = "Kết thúc" Then thoat Me End If End Sub Private