Phân tích thiết kế hệ thống thông tin quản lý thông tin card visit – leaflet

1 Ket noi com kho tài liệu miễn phí Khoa Tin Học Kinh Tế SV Nguyễn Minh Thư Lớp Tin Học Kinh Tế 46A 1 DANH MỤC CÁC CHỮ VIẾT TẮT 1 CSDL cơ sở dữ liệu 2 TNHH trách nhiệm hữu hạn 3 HTTT hệ thống thông ti.

Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế DANH MỤC CÁC CHỮ VIẾT TẮT CSDL: sở liệu TNHH: trách nhiệm hữu hạn HTTT: hệ thống thơng tin P.Giám đốc: phịng giám đốc P.HC-TH: phịng hành – tổng hợp BFD: sơ đồ chức kinh doanh DFD: sơ đồ luồng liệu SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế DANH MỤC HÌNH VẼ Hình 1.1: Sơ đồ chức kinh doanh BFD Hình 2.1: Mơ hình hệ thống thơng tin Hình 2.2: Form thiết kế Visual Basic Hình 2.3: Cửa sổ thuộc tính Hình 2.4: Hộp cơng cụ Hình 2.5: Project Explorer Hình 2.6: Cửa sổ thiết kế báo cáo Data Report Hình 3.1: Sơ đồ chức kinh doanh BFD Hình 3.2: Sơ đồ DFD mức ngữ cảnh Hình 3.3: Sơ đồ DFD mức Hình 3.4: Sơ đồ DFD mức – mức quản lý danh mục Hình 3.5: Sơ đồ DFD mức – mức quản lý Card Visit Hình 3.6: Sơ đồ DFD mức – mức quản lý Leaflet Hình 3.7: Sơ đồ DFD mức – mức lập báo cáo Hình 3.8: Bảng danh mục tỉnh thành phố Hình 3.9: Bảng danh mục Website Hình 3.10: Bảng liệu Leaflet Hình 3.11: Bảng liệu Card Visit Hình 3.12: Sơ đồ quan hệ thực thể ( Relasion Ships ) Hình 3.13: Giải thuật đăng nhập hệ thống Hình 3.14: Giải thuật thêm ghi Hình 3.15: Giải thuật sửa ghi Hình 3.16: Giải thuật xóa ghi Hình 3.17: Giải thuật in báo cáo Hình 3.18: Giao diện đăng nhập chương trình Hình 3.19: thơng báo sau đăng nhập SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế Hình 3.20: Giao diện chương trình Hình 3.21: chức hệ thống Hình 3.22: chức quản lý liệu Hình 3.23: chức quản lý thẻ Hình 3.24: chức báo cáo Hình 3.25: chức trợ giúp Hình 3.26: Giao diện thêm người sử dụng Hình 3.27: Giao diện xóa người sử dụng Hình 3.28: Giao diện thay đổi mật Hình 3.29: Giao diện danh mục tỉnh thành phố Hình 3.30: Giao diện danh mục Website Hình 3.31: giao diện quản lý Card Visit Hình 3.32: Giao diện quản lý Leaflet Hình 3.33: Báo cáo danh mục tỉnh thành phố Hình 3.34: báo cáo danh mục Website Hình 3.35: Báo cáo thơng tin Card Visit SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế LỜI NÓI ĐẦU Ngày xu phát triển vượt bậc công nghệ thơng tin tồn giới, thơng tin đóng vai trị quan trọng Bởi thơng tin hình thành từ nhiều yếu tố khác nhau, đa dạng phức tạp, việc xử lý thơng tin ngày khó khăn Chính , cơng nghệ thơng tin bước áp dụng vào lĩnh vực đời sống xã hội nhằm giải vấn đề xã hội khác Một lĩnh vực phát triển ứng dụng công nghệ thơng tin vào quản lý Khi trình độ tin học hóa cao, việc phát triển ứng dụng hệ thống thông tin thực hầu hết quan, tổ chức đơn vị Nhờ vào cơng tác tin học hóa mà việc quản lý điều hành doanh nghiệp ngày cải thiện theo hướng tích cực Tuy nhiên, trải qua trình tìm hiểu thực tế nơi thực tập cho thấy việc ứng dụng CNTT vào lĩnh vực quản lý thông tin Card Visit – Leaflet chưa có Do vấn đề đặt cần phải có quan tâm đến vấn đề quản lý thông tin Card Visit – Leaflet, để nâng cao cơng tác quản lý, giảm thiểu chi phí, bước tin học hóa, thực việc quản lý tự động lĩnh vực khác đời sống xã hội Chính đề tài “Phân tích thiết kế hệ thống thơng tin quản lý thông tin Card Visit – Leaflet” thực với mục đích chương trình áp dụng công ty Đề tài thực nhằm giảm bớt chi phí khơng cần thiết, nhằm nâng cao công tác quản lý Card Visit – Leaflet, giảm thiểu hạn chế quản lý thông tin cá nhân tổ chức hoạt động công ty kinh doanh dịch vụ lữ hành SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế ĐỀ TÀI BAO GỒM CÁC CHƯƠNG SAU: - Chương 1: Tổng quan công ty TNHH du lịch dịch vụ Việt Nam Của Tôi đề tài thực - Chương 2: Một số phương pháp luận nghiên cứu đề tài công cụ thực - Chương 3: Phân tích thiết kế hệ thống thông tin quản lý thông tin Card Visit – Leaflet cho công ty TNHH du lịch dịch vụ Việt Nam Của Tôi Do hạn chế mặt thời gian điều kiện khác nên chắn chương trình cịn nhiều thiều sót, mong quan tâm, góp ý q thầy bạn để chương trình hồn thiện Em xin chân thành cảm ơn thầy giáo Đoàn Quốc Tuấn – khoa Tin học kinh tế, Đại học Kinh Tế Quốc Dân, thầy giáo khoa Tin học kinh tế cô chú, anh chị công ty bạn quan tâm giúp đỡ em hồn thành tốt đề tài Em xin chân thành cảm ơn! Sinh viên thực Nguyễn Minh Thư SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế CHƯƠNG I TỔNG QUAN VỀ CÔNG TY TNHH DU LỊCH VÀ DỊCH VỤ VIỆT NAM CỦA TÔI VÀ ĐỂ TÀI THỰC HIỆN 1.1 TỔNG QUAN VỀ CÔNG TY 1.1.1 Giới thiệu chung công ty Đơn vị cấp ĐKKD: Sở kế hoạch đầu tư thành phố Hà Nội (phịng đăng kí kinh doanh) Hình thức: cơng ty TNHH có thành viên trở lên Số ĐKKD: 0102030500 Đăng kí lần đầu: ngày 09 tháng 04 năm 2007  Tên công ty: Công ty TNHH Du lịch Dịch vụ “Việt Nam Của Tôi” Tên giao dịch: Compagnie Limite’e de Services et de Voyages monVietNam Tên viết tắt: MONVIETNAM CO.; LTD  Trụ sở chính: số 14, 267/2/157 đường Hoàng Hoa Thám, phường Liễu Giai, quận Ba Đình, thành phố Hà Nội Tel: (84.)04.2580.159 Hotline: 0904.180.279 Fax: (84.) 2580 159 Email: monvietnam@yahoo.com Website: www.monvietnam.net  Ngành nghề đăng kí kinh doanh - Lữ hành, nội địa quốc tế; - Các dịch vụ phục vụ khách du lịch ( khơng bao gồm kinh doanh qn Bar, phịng Karaoke, vũ trường) SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế - Cho thuê xe du lịch; - Tổ chức hội nghị, hội thảo; kiện văn hóa cộng đồng  Vốn điều lệ: 1.800.000.000 VNĐ (một tỷ tám trăm triệu đồng)  Đại diện pháp luật - Chức danh: Giám đốc - Họ tên: Đỗ Anh Tuấn ( Nguồn: phòng Giám Đốc- Giấy phép đăng kí kinh doanh) 1.1.2 Lịch sử MonVietNam Cơng ty thành lập vào ngày 09 tháng 04 năm 2007 Hai người đồng sáng lập công ty anh Đỗ Anh Tuấn ông Gérard Giám đốc công ty anh Đỗ Anh Tuấn Anh cựu sinh viên trường Đại học Ngoại Ngữ, khoa Tiếng Pháp Ra trường, công việc anh làm giáo viên tiểu học Có thời gian dài anh hướng dẫn viên du lịch, sau anh làm trưởng quầy lễ tân khách sạn Quartier des Corporations Hanoi Năm 2004 anh Tuấn gặp ông Gérard hội thảo du lịch sau họ trở thành bạn bè Ông Gérard người Pháp sống nhiều nơi Khi cịn trẻ ơng tốt nghiệp trường đại học Hiện nay, ông Gérard cố vấn trực tiếp công ty 1.1.3 Định hướng kinh doanh Định hướng kinh doanh công ty “Việt Nam tôi” hai lĩnh vực du lịch dịch vụ, mảng du lịch chủ yếu, bao gồm hoạt động: - Lữ hành nội địa quốc tế - Các dịch vụ phục vụ khách du lịch Công ty TNHH Du lịch Dịch vụ “Việt Nam tôi” đời Việt Nam gia nhập WTO kinh tế đất nước tăng trưởng vượt bậc SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế Đó điều kiện thuận lợi đồng thời thử thách không nhỏ công ty du lịch tuổi đời cịn trẻ MonVietNam MonVietNam cơng ty du lịch quốc tế với thị phần chủ yếu thị trường Pháp Trong năm tới, cơng ty có hướng mở rộng thị phần sang thị trường Anh Mỹ, sau Trung Quốc Nhật Bản Với điều kiện thuận lợi bối cảnh chung đất nước, công ty MonVietNam mong muốn phục vụ ngày tốt nhu cầu dịch vụ lữ hành nước quốc tế MonVietNam có giám đốc trẻ nhiều kinh nghiệm đội ngũ nhân viên đầy nhiệt tình với cơng việc Cơng ty ln quan tâm cách sâu sắc đến khách hàng, cam kết cảm nhận đáp ứng tối đa nhu cầu mong muốn khách hàng, để lại ấn tượng tốt đẹp lòng bạn bè quốc tế MonVietNam đất nước Việt Nam hịa bình mến khách 1.1.4 Văn hóa kinh doanh Trong chuyến đi, cảm nhận người tham gia hành trình thực quan trọng Những điều du khách cảm nhận với chuyến mang lại thành công tất yếu doanh nghiệp kinh doanh hoạt động lữ hành du lịch Giám đốc cơng ty ln dặn dị nhân viên mình: “Đối với khách hàng, bạn nghĩ bạn bạn du lịch Hãy chăm sóc họ người thân bạn thể nhiệt tình, hiếu khách Nhận lỗi bạn có sơ suất tơi tin chắn chẳng có lại khơng mỉm cười.” Công ty chọn nhà nghỉ, địa điểm tham quan, nơi dạo hoạt động giải trí theo sở thích mong muốn khách hàng Khách hàng thay đổi hành trình chuyến khách hàng quan tâm đến nơi khác mà trước họ chưa nghĩ đến Ln có hướng dẫn viên bên cạnh khách hàng 24/24, giúp họ giải khó khăn hay tai nạn khơng may xảy SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí Khoa Tin Học Kinh Tế Đến với Monvietnam, khách hàng khám phá đất nước Việt Nam với thắng cảnh đẹp, cơng trình kiến trúc phong tục tập quán, lối sống, truyền thống văn hóa cơng trình dự án đất nước Việt Nam Cảm nhận đến với Monvietnam phục vụ tận tình tình cảm bạn bè thân thiện với tất du khách Điều mong muốn cơng ty mang lại cho người kì nghỉ mong đợi cảm giác thoải mái trở nhà SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 10 Khoa Tin Học Kinh Tế 1.1.5 Sơ đồ tổ chức chức phòng ban công ty 1.1.5.1 Sơ đồ tổ chức cơng ty Giám đốc Tour - guide Office Phịng Kinh doanh Quản lý hướng dẫn viên Đào tạo kiểm tra trình độ Booking Office P.Hành tổng hợp Quảng cáo Nhận tour Quản lý thông tin Tư vấn chọn tour Xếp tour Quản lý nhân Nghiên cứu thị trường Liên hệ địa điểm đến Kế toán Khảo sát thực tế trước tour Hình 1.1: Sơ đồ tổ chức cơng ty (Nguồn: Phịng hành – tổng hợp) SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 100 Khoa Tin Học Kinh Tế MsgBox "Invalid password admin", vbExclamation, "Invalid Password" TxtPassAdmin.Text = "" End If End If ErrorHandlerExit: Exit Sub ErrorHandler: MsgBox ("This username is already existed!") txtUsername.Text = "" Resume ErrorHandlerExit End Sub Private Sub CleanUp() TxtPassAdmin.Text = "" txtUsername.Text = "" txtPass.Text = "" txtConfirmPass.Text = "" TxtPassAdmin.SetFocus End Sub Private Sub Cmdthoat_Click() Unload Me FrmMain.Show End Sub Private Sub txtconfirmpass_Change() SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 101 Khoa Tin Học Kinh Tế If txtConfirmPass.Text = txtPass.Text Then LblStatus.Caption = "MËt khÈu hỵp nhau!" Else LblStatus.Caption = "MËt không hợp nhau!" End If End Sub Private Sub txtPassAdmin_KeyPress(keyASCII As Integer) If keyASCII = 13 Then txtUsername.SetFocus End If End Sub Private Sub TxtUsername_KeyPress(keyASCII As Integer) If keyASCII = 13 Then txtPass.SetFocus End If End Sub Private Sub TxtPass_KeyPress(keyASCII As Integer) If keyASCII = 13 Then txtConfirmPass.SetFocus End If End Sub Private Sub txtConfirmPass_KeyPress(keyASCII As Integer) If keyASCII = 13 Then cmdAdd.SetFocus End If End Sub SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 102 Khoa Tin Học Kinh Tế Private Sub cmdAdd_KeyPress(keyASCII As Integer) If keyASCII = 13 Then cmdThoat.SetFocus End If End Sub  Mã form PassConfig (Đổi mật khẩu) Private Sub cmd_Thoat_Click() Unload Me FrmMain.Show End Sub Private Sub cmdOK_Click() Dim Found As Boolean Dim Change As Boolean Dim Box As VbMsgBoxResult FrmLogin.AdodcPass.Refresh If cmbUsername.Text = "" Or txtCurrPassword.Text = "" Or txtConfirmPass.Text = "" Or txtNewPass.Text = "" Then MsgBox "Please fill in all non-optional fields", vbInformation, "Password configuration | Error" ElseIf txtConfirmPass.Text txtNewPass.Text Then MsgBox "Passwords dont match", vbInformation, "Password configuration | Error" txtNewPass.Text = "" txtConfirmPass.Text = "" SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 103 Khoa Tin Học Kinh Tế txtNewPass.SetFocus ElseIf Len(txtNewPass.Text) < Then MsgBox "Your password should have at least characters" txtNewPass.Text = "" txtConfirmPass.Text = "" txtNewPass.SetFocus Else Box = MsgBox("Are you sure?", vbQuestion + vbYesNo, "Change user password") If Box = vbYes Then FrmLogin.AdodcPass.Refresh FrmLogin.AdodcPass.Recordset.MoveFirst Do Until FrmLogin.AdodcPass.Recordset.EOF Or Found If FrmLogin.AdodcPass.Recordset.Fields("Username") = cmbUsername.Text And FrmLogin.AdodcPass.Recordset.Fields("Password") = txtCurrPassword.Text Then Found = True Else FrmLogin.AdodcPass.Recordset.MoveNext End If Loop If Found = True Then FrmLogin.AdodcPass.Refresh FrmLogin.AdodcPass.Recordset.MoveFirst Do Until FrmLogin.AdodcPass.Recordset.EOF Or Change If FrmLogin.AdodcPass.Recordset.Fields("Password") = txtCurrPassword.Text Then SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 104 Khoa Tin Học Kinh Tế FrmLogin.AdodcPass.Recordset.Fields("Password") = txtNewPass.Text Change = True Else FrmLogin.AdodcPass.Recordset.MoveNext End If Loop Else MsgBox "Incorrect Old Password ", vbExclamation, "Incorrect Old Password" txtCurrPassword.Text = "" txtCurrPassword.SetFocus End If If Change = True Then MsgBox "Password changed." & vbCrLf & vbCrLf & "Password will take effect next time the application is started.", vbInformation, "Password Status" FrmLogin.AdodcPass.Recordset.Update Call CleanUp End If FrmLogin.AdodcPass.Refresh End If End If End Sub Private Sub CleanUp() txtCurrPassword.Text = "" SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 105 Khoa Tin Học Kinh Tế txtNewPass.Text = "" txtConfirmPass.Text = "" End Sub Private Sub Form_Load() cmbUsername.Clear FrmLogin.AdodcPass.Recordset.MoveFirst Do Until FrmLogin.AdodcPass.Recordset.EOF cmbUsername.AddItem FrmLogin.AdodcPass.Recordset.Fields("Username") FrmLogin.AdodcPass.Recordset.MoveNext Loop cmbUsername.ListIndex = End Sub Private Sub txtconfirmpass_Change() If txtConfirmPass.Text = txtNewPass.Text Then lblStatus.Caption = "MËt khÈu hỵp nhau!" Else lblStatus.Caption = "Mật không hợp nhau!" End If End Sub Private Sub cmbUsername_KeyPress(keyASCII As Integer) If keyASCII = 13 Then txtCurrPassword.SetFocus End If SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 106 Khoa Tin Học Kinh Tế End Sub Private Sub txtCurrPassword_KeyPress(keyASCII As Integer) If keyASCII = 13 Then txtNewPass.SetFocus End If End Sub Private Sub txtNewPass_KeyPress(keyASCII As Integer) If keyASCII = 13 Then txtConfirmPass.SetFocus End If End Sub Private Sub txtConfirmPass_KeyPress(keyASCII As Integer) If keyASCII = 13 Then cmdOK.SetFocus End If End Sub Private Sub txtcmdOK_KeyPress(keyASCII As Integer) If keyASCII = 13 Then cmd_Thoat.SetFocus End If End Sub  Mã form Main Private Sub adduser_Click() FrmAddUser.Show End Sub Private Sub deluser_Click() SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 107 Khoa Tin Học Kinh Tế FrmDelUser.Show End Sub Private Sub hotkey_Click() FrmLogin.Show End Sub Private Sub mnuBC3_Click() BCDMTinhThanh.Show End Sub Private Sub mnuBC4_Click() BCDMWebsite.Show End Sub Private Sub mnuBCCard_Click() BCCard.Show End Sub Private Sub mnuC_Click() FrmCardVisit.Show End Sub Private Sub mnudmk_Click() FrmPassConfig.Show End Sub SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 108 Khoa Tin Học Kinh Tế Private Sub mnuL_Click() FrmLeaflet.Show End Sub Private Sub mnuThoat_Click() Unload Me End Sub Private Sub mnuTP_Click() FrmDMTinhThanh.Show End Sub Private Sub mnuweb_Click() FrmDMWeb.Show End Sub Private Sub Timer1_Timer() Dim x As String Dim Y As String x = Left(Label1.Caption, 1) Y = Right(Label1.Caption, Len(Label1.Caption) - 1) Label1.Caption = Y + x End Sub  Mã form danh mục tỉnh thành Private Sub Cmdthoat_Click(Index As Integer) Unload Me SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 109 Khoa Tin Học Kinh Tế FrmMain.Show End Sub Private Sub CmdLuu_Click(Index As Integer) AdoDMTinhThanh.Recordset.Save GrdDMTinhThanh.AllowUpdate = False End Sub Private Sub CmdSua_Click(Index As Integer) Dim TraLoi As Integer TraLoi = MsgBox("Bạn Muốn Sửa Giá Trị Mới?") If TraLoi = vbNo Then AdoDMTinhThanh.Refresh Exit Sub Else GrdDMTinhThanh.AllowUpdate = True AdoDMTinhThanh.Recordset.Update End If End Sub Private Sub CmdThem_Click(Index As Integer) AdoDMTinhThanh.Recordset.AddNew GrdDMTinhThanh.AllowUpdate = True SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 110 Khoa Tin Học Kinh Tế GrdDMTinhThanh.SetFocus Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdXoa_Click(Index As Integer) Dim TraLoi As Integer TraLoi = MsgBox("Bạn Muốn Xoá Bản Ghi Nµy ?", vbYesNo, "MonVietNam") If TraLoi = vbNo Then GrdDMTinhThanh.AllowDelete = False Else GrdDMTinhThanh.AllowDelete = True AdoDMTinhThanh.Recordset.Delete End If End Sub Private Sub cpiccuoi_Click() AdoDMTinhThanh.Recordset.MoveLast End Sub SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 111 Khoa Tin Học Kinh Tế Private Sub Cpicdau_Click() AdoDMTinhThanh.Recordset.MoveFirst End Sub Private Sub Cpicsau_Click() If AdoDMTinhThanh.Recordset.EOF = False Then AdoDMTinhThanh.Recordset.MoveNext Else MsgBox "Không Còn Bản Ghi Nào Nữa ", vbInformation + vbOKOnly AdoDMTinhThanh.Recordset.MoveLast End If End Sub Private Sub cpictruoc_Click() If AdoDMTinhThanh.Recordset.BOF = False Then AdoDMTinhThanh.Recordset.MovePrevious Else MsgBox "Không Còn Bản Ghi Nào Nữa ", vbInformation + vbOKOnly AdoDMTinhThanh.Recordset.MoveFirst End If End Sub  Mã form Quản lý Card Visit Private Sub Cmdthoat_Click(Index As Integer) Unload Me FrmMain.Show End Sub SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 112 Khoa Tin Học Kinh Tế Private Sub CmdLuu_Click(Index As Integer) AdodcCard.Recordset.Save DataGrid1.AllowUpdate = False End Sub Private Sub CmdSua_Click(Index As Integer) Dim TraLoi As Integer TraLoi = MsgBox("B¹n Muốn Sửa Giá Trị Mới?") If TraLoi = vbNo Then AdodcCard.Refresh Exit Sub Else DataGrid1.AllowUpdate = True AdodcCard.Recordset.Update End If End Sub Private Sub CmdThem_Click(Index As Integer) AdodcCard.Recordset.AddNew DataGrid1.AllowUpdate = True DataGrid1.SetFocus Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdXoa_Click(Index As Integer) Dim TraLoi As Integer SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 113 Khoa Tin Hc Kinh T TraLoi = MsgBox("Bạn Muốn Xoá Bản Ghi Nµy ?", vbYesNo, "MonVietNam") If TraLoi = vbNo Then DataGrid1.AllowDelete = False Else DataGrid1.AllowDelete = True AdodcCard.Recordset.Delete End If End Sub Private Sub cpiccuoi_Click() AdodcCard.Recordset.MoveLast End Sub Private Sub Cpicdau_Click() AdodcCard.Recordset.MoveFirst End Sub Private Sub Cpicsau_Click() If AdodcCard.Recordset.EOF = False Then AdodcCard.Recordset.MoveNext Else MsgBox "Không Còn Bản Ghi Nào Nữa ", vbInformation + vbOKOnly AdodcCard.Recordset.MoveLast End If End Sub Private Sub cpictruoc_Click() If AdodcCard.Recordset.BOF = False Then AdodcCard.Recordset.MovePrevious Else MsgBox "Không Còn Bản Ghi Nào Nữa ", vbInformation + vbOKOnly SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A Ket-noi.com kho tài liệu miễn phí 114 Khoa Tin Học Kinh Tế AdodcCard.Recordset.MoveFirst End If End Sub SV: Nguyễn Minh Thư Lớp: Tin Học Kinh Tế 46A ... dung: Phân tích thiết kế hệ thống thông tin quản lý thông tin Card Visit - Leaflet cho công ty TNHH du lịch dịch vụ Việt Nam Của Tôi - Yêu cầu công ty: cần có phần mềm quản lý cho biết thông tin. .. phí, bước tin học hóa, thực việc quản lý tự động lĩnh vực khác đời sống xã hội Chính đề tài ? ?Phân tích thiết kế hệ thống thông tin quản lý thông tin Card Visit – Leaflet? ?? thực với mục đích chương... vực quản lý thơng tin Card Visit – Leaflet chưa có Do vấn đề đặt cần phải có quan tâm đến vấn đề quản lý thông tin Card Visit – Leaflet, để nâng cao cơng tác quản lý, giảm thiểu chi phí, bước tin