THÔNG TIN TÀI LIỆU
1 CHUYÊN ĐỀ TỐT NGHIỆP MỤC LỤC LỜI MỞ ĐẦU .5 CHƯƠNG 1: TỔNG QUAN VỀ CÔNG TY CỔ PHẦN ĐẦU TƯ - VẬN TẢI – DU LỊCH HOÀNG VIỆT VÀ ĐỀ TÀI .6 1.1 GIỚI THIỆU CÔNG TY 1.2 ĐẶC ĐIỂM HOẠT ĐỘNG VÀ CƠ CẤU TỔ CHỨC CỦA CÔNG TY 1.2.1 Lĩnh vực kinh doanh công ty 1.2.2 Tình hình nhân 1.2.3 Thành tích hoạt động kinh doanh công ty .7 1.2.4 Cơ cấu tổ chức .8 1.3 THỰC TRẠNG ỨNG DỤNG CNTT TẠI CÔNG TY 12 1.3.1 Cơ sở vật chất công ty 12 1.3.2 Tình hình ứng dụng tin học hỗ trợ quản lý nhiệm vụ công ty 12 1.4 ĐỊNH HƯỚNG CHỌN ĐỀ TÀI 13 1.4.1 Tên đề tài 13 1.4.2 Mục đích phạm vi nghiên cứu đề tài .13 CHƯƠNG 2: CƠ SỞ PHƯƠNG PHÁP LUẬN VÀ NHỮNG CÔNG CỤ CẦN THIẾT ĐỂ THỰC HIỆN ĐỀ TÀI 14 2.1 MỘT SỐ KHÁI NIỆM VỀ CHƯƠNG TRÌNH DU LỊCH 14 2.1.1 Khái niệm chương trình du lịch 14 2.1.2 Đặc điểm 15 2.1.3 Các bước xây dựng chương trình du lịch 16 2.1.4 Một số chương trình du lịch hấp dẫn Việt Nam 19 2.2 ĐẠI LÝ LỮ HÀNH 22 2.2.1 Khái niệm đại lý lữ hành 22 2.2.2 Tổ chức bán chương trình du lịch 23 2.2.3 Hệ thống dịch vụ đại lý lữ hành 23 2.2.4 Quy trình phục vụ đại lý lữ hành 25 2.3 PHẦN MỀM 27 2.4 CÔNG NGHỆ PHẦN MỀM 28 2.5 VÒNG ĐỜI PHÁT TRIỂN CỦA PHẦN MỀM 29 2.6 TIẾN TRÌNH THIẾT KẾ PHẦN MỀM 30 2.7 CÁC QUY TRÌNH TRONG CƠNG NGHỆ PHẦN MỀM 32 2.7.1 Quy trình xác định yêu cầu 32 2.7.2.QUY TRÌNH XÂY DỰNG VÀ QUẢN LÝ HỢP ĐỒNG 35 2.7.3 Quy trình thiết kế phần mềm 38 2.7.4 Quy trình lập trình .41 2.7.5 Quy trình Test phần mềm 43 2.7.6 Quy trình triển khai phần mềm 46 2.8 CÁC CƠNG CỤ MƠ HÌNH HĨA 49 TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUYÊN ĐỀ TỐT NGHIỆP 2.9 CÔNG CỤ SỬ DỤNG ĐỂ THỰC HIỆN ĐỀ TÀI 54 2.9.1 Visual Basic.NET 2008 54 2.9.2 Microsoft SQL Server 2000 54 CHƯƠNG 3: PHÂN TÍCH THIẾT KẾ VÀ XÂY DỰNG PHẦN MỀM QUẢN LÝ CHƯƠNG TRÌNH DU LỊCH CHO CƠNG TY ĐẦU TƯ – VẬN TẢI – DU LỊCH HOÀNG VIỆT 55 3.1 THÔNG TIN ĐẦU VÀO: YÊU CẦU KHÁCH HÀNG 55 3.2 THÔNG TIN ĐẦU RA 56 3.3 SƠ ĐỒ ERD 58 3.4 PHÂN TÍCH HỆ THỐNG .59 3.4.1 Sơ đồ luồng thông tin (IFD) .59 3.4.2 Sơ đồ chức hệ thống (BFD) 63 3.4.3 Sơ đồ luồng liệu (DFD) 64 3.5 THIẾT KẾ KIẾN TRÚC 69 3.6 THIẾT KẾ CƠ SỞ DỮ LIỆU 70 3.6.1 Danh mục quốc gia 70 3.6.3 Danh mục địa danh 70 3.6.4 Danh mục nhà hàng 70 3.6.5 Danh mục khách sạn 70 3.6.6 Danh mục đối tác .71 3.6.7 Danh mục chặng 71 3.6.8 Danh mục loại hình du lịch 71 3.6.12 Danh mục yêu cầu khách hàng 72 3.7.1 Tệp quốc gia 74 3.7.2 Tệp tỉnh thành 74 3.7.4 Tệp chặng 75 3.7.5 Tệp chặng chương trình 75 3.7.6 Tệp chương trình 76 3.7.7 Tệp loại hình 76 3.7.8 Tệp khách sạn 77 3.7.10 Tệp đối tác 79 3.7.11 Tệp hợp đồng 79 3.7.12 Tệp yêu cầu khách hàng 80 3.7.13 Tệp khách hàng 81 3.8 THIẾT KẾ GIẢI THUẬT 82 3.10.1 Cài đặt SQL Server 2000 124 3.10.2 Cài đặt phần mềm quản lý chương trình du lịch 129 PhỤ lỤc 136 TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUN ĐỀ TỐT NGHIỆP DANH MỤC HÌNH ẢNH Hình 1.1:Sơ đồ tổ chức công ty Đầu tư - Vận tải - Du lịch Hồng Việt Hình 2.1: Quy trình kinh doanh đại lý lữ hành Hình 2.2: Mơ hình thác nước Hình 3.1: Cơ sở liệu Giao diện chương trình Giao diện Danh mục quốc gia Giao diện Danh mục tỉnh, thành phố Giao diện Danh mục địa danh Giao diện Thêm thông tin địa danh Giao diện Sửa thông tin địa danh Giao diện Danh mục hành trình Giao diện Thêm thơng tin hành trình Giao diện Sửa thơng tin hành trình Giao diện Danh mục đối tác Giao diện Thêm thông tin đối tác Giao diện Sửa thông tin đối tác Giao diện Danh mục nhà hàng Giao diện Thêm thông tin nhà hàng Giao diện Sửa thông tin nhà hàng Giao diện Danh mục khách sạn Giao diện Thêm thông tin khách sạn Giao diện Sửa thông tin khách sạn Giao diện Danh mục khách hàng Giao diện Thêm thông tin khách hàng Giao diện Sửa thông tin khách hàng Giao diện Danh mục Yêu cầu khách hàng Giao diện Thêm thông tin yêu cầu khách hàng Giao diện Sửa thông tin yêu cầu khách hàng Giao diện Danh mục chương trình du lịch Giao diện Lịch chương trình du lịch Giao diện Yêu cầu khách hàng Giao diện Theo dõi chương trình du lịch TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUYÊN ĐỀ TỐT NGHIỆP LỜI CẢM ƠN Em xin chân thành cảm ơn khoa Tin học kinh tế trường Đại học Kinh Tế Quốc Dân tạo điều kiện cho em thực đề tài Em xin chân thành cảm ơn thầy Nguyễn Anh Phương tận tình hướng dẫn em suốt trình thực đề tài Em xin chân thành cảm ơn thầy cô giáo Khoa tận tình giảng dạy trang bị cho em kiến thức giúp em hoàn thành báo cáo Mặc dù cố gắng để hoàn thành báo cáo phạm vi khả cho phép tránh khỏi thiếu sót, em mong cảm thơng tận tình bảo thầy cô Người thực Trần Thị Thùy Linh TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUYÊN ĐỀ TỐT NGHIỆP LỜI MỞ ĐẦU Theo nguồn từ Tổng cục Thống kê, lượng khách quốc tế đến Việt Nam tháng 1/2010 ước đạt 416.429 lượt, tăng 10,6% so với tháng 12/2009 tăng 20,4% so với kỳ năm 2009. Khách du lịch quốc tế đến Việt Nam tháng 1/2010 nhiều từ Trung quốc tăng 94,9%, Hàn Quốc tăng 36,1,1%, Đài Loan (TQ) tăng 18,6%, Malaysia tăng 16,7%, Nhật Bản tăng 4,2%, Úc tăng 2,1%, thị trường khác tăng 38,3% so với tháng 01 năm 2009 Qua bảng thống kê ta thấy khách du lịch quốc tế đến Việt Nam ngày tăng Đây dấu hiệu tốt cho nghành du lịch Việt Nam Khách du lịch tăng đồng nghĩa với việc tour du lịch phải ngày phát triển Theo đó, việc ứng dụng tin học vào cơng tác quản lý chương trình du lịch cho doanh nghiệp du lịch Việt Nam cần thiết Bất doanh nghiệp du lịch muốn xây dựng chương trình du lịch cần thông tin địa điểm tham quan, thông tin khách hàng, thông tin nhà hàng, khách sạn, thông tin chuyến bay, tàu hoả…Thông tin chương trình du lịch cần lưu trữ có hệ thống, truy xuất nhanh để phục vụ nhu cầu trực tiếp khách hàng cách nhanh chóng linh hoạt Sau thời gian thực tập công ty ĐẦU TƯ – VẬN TẢI – DU LỊCH HOÀNG VIỆT, tìm hiểu nghiệp vụ quản lý ngành du lịch, tơi chọn đề tài : “Phân tích thiết kế xây dựng phần mềm Quản lý chương trình du lịch cho công ty Đầu tư – Vận tải – Du lịch Hoàng Việt” Đề tài thực hướng dẫn Th.s.Nguyễn Anh Phương BÁO CÁO TỐT NGHIỆP GỒM CHƯƠNG: - Chương 1: Tổng quan công ty Đầu tư - Vận tải – Du lịch Hoàng Việt - Chương 2: Cơ sở phương pháp luận công cụ để thực đề tài - Chương 3: Phân tích thiết kế xây dựng phần mềm quản lý chương trình du lịch cho doanh nghiệp Đầu tư – Vận tải – Du lịch Hoàng Việt TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUYÊN ĐỀ TỐT NGHIỆP CHƯƠNG 1: TỔNG QUAN VỀ CÔNG TY CỔ PHẦN ĐẦU TƯ - VẬN TẢI – DU LỊCH HOÀNG VIỆT VÀ ĐỀ TÀI 1.1 Giới thiệu công ty Tên công ty: Công ty Cổ phần Đầu tư - Vận tải – Du lịch Hoàng Việt Tên viết tắt: HoangVietTravel.,JSC Năm thành lập: 05/01/2005 Vốn pháp định: 800 000 000 Đồng Trụ sở chính: 62 Trần Quốc Toản – Hồn Kiếm – Hà Nội Văn phịng đại diện: 16 Âu Cơ – Tây Hồ - Hà Nội Website: http://hoangviettravel.vn Email: info@hoangviettravel.vn Tel: (844) 719 4188 Fax: (844) 719 5157 1.2 Đặc điểm hoạt động cấu tổ chức công ty 1.2.1 Lĩnh vực kinh doanh công ty - Lữ hành nội địa, lữ hành quốc tế dịch vụ phục vụ khách du lịch - Vận tải hàng hóa, vận tải hành khách - Bn bán, sửa chữa, cho thuê xe ô tô - Tư vấn, kinh doanh, môi giới bất động sản - Kinh doanh khách sạn, nhà nghỉ, nhà hàng ăn uống - Tư vấn xây dựng - Xây dựng cơng trình dân dụng, cơng nghiệp, giao thơng, thủy lợi, cơng trình điện trạm điện đến 35kw trang trí nội ngoại thất cơng trình - Sản xuất, bn bán, cho th máy móc, thiết bị, vật liệu, vật tư ngành xây dựng, đồ trang trí nội ngoại thất - Đại lý mua, kí gửi hàng hóa TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUYÊN ĐỀ TỐT NGHIỆP 1.2.2 Tình hình nhân Hiện nay, số nhân viên cơng ty 20 người (trong có tới 80% cử nhân kinh tế) có trình độ chun mơn nghiệp vụ tính kỷ luật cao Đó yếu tố quan trọng giúp cho doanh nghiệp có tảng sở ngày hôm để tiếp tục phát triển cách bền vững 1.2.3 Thành tích hoạt động kinh doanh cơng ty Cho đến công ty thành viên tổ chức du lịch nước, quốc tế có uy tín cao như: - Hiệp hội Du lịch Việt Nam (VITA) - Câu lạc Lữ hành Hà Nội - Hiệp hội Du lịch Châu Á Thái Bình Dương ( PATA Trung ương ) Công ty tổ chức tour du lịch nước quốc tế Du lịch nội địa: Cung cấp tour tham quan, du lịch truyền thống, lễ hội văn hoá, nghỉ dưỡng, sinh thái, hội nghị, kết hợp thăm quan, mua sắm… Du lịch nước ngoài: Chuyên tổ chức tour tham quan, du lịch quốc tế, kết hợp với tổ chức, Bộ, Nghành, Viện nghiên cứu, quan phủ nước ngồi tổ chức hội nghị, hội thảo, triển lãm (M.I.C.E) Lào, Campuchia, Trung Quốc, Thái Lan, Malaysia, Singapore, Hàn Quốc, Nhật Bản, Nga, Úc, Ý, Đức, Pháp, Bỉ, Hà Lan… Du lịch theo yêu cầu: Thực thiết kế tổ chức chương trình du lịch đặc thù theo yêu cầu cho quan, tổ chức, đoàn thể Ngoài cơng ty cịn có đội xe du lịch từ – 45 chỗ bao gồm: Lacetti, Camry 2.4,3.0, C180, C200, E240, S320, S500, Zace, Jolie, Innova, Pajero, Ford Everest, Land Cruiser, Mercedes Sprinter, Hyundai County, Aero Space… Lái xe đào tạo huấn luyện nghiệp vụ thường xuyên, sử dụng tiếng Anh giao tiếp thành thạo TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUYÊN ĐỀ TỐT NGHIỆP 1.2.4 Cơ cấu tổ chức Bộ máy tổ chức công ty bao gồm: - Đại hội đồng cổ đông - Hội đồng quản trị - Kiểm soát viên - Giám đốc - Các phận phòng ban nghiệp vụ Sơ đồ tổ chức công ty Cổ phần Đầu tư - Vận tải – Du lịch Hồng Việt Đại hội đồng cổ đơng Hội đồng quản trị Kiểm soát Giám đốc Bộ phận IT Phịng xe Phịng kế tốn Phịng tour Bộ phận kinh doanh Hình 1.1: Sơ đồ tổ chức cơng ty Cổ phần Đầu tư – Vận tải – Du lịch Hoàng Việt TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com CHUYÊN ĐỀ TỐT NGHIỆP Đại hội đồng cổ đông: quan tối cao công ty Hội đồng quản trị: vạch chiến lược, kế hoạch phát triển trung hạn kế hoạch kinh doanh hàng năm công ty Hội đồng cổ đông có quyền bổ nhiệm, miễn nhiệm, cách chức giám đốc Đồng thời hội đồng quản trị có quyền giám sát, đạo giám đốc điều hành công việc kinh doanh hàng ngày cơng ty Kiểm sốt viên: kiểm sốt tồn hệ thống tài việc thực quy chế cơng ty Khi có u cầu cổ đơng hay nhóm cổ đơng, kiểm sốt viên kiểm tra bất thường báo cáo giải trình vấn đề yêu cầu kiểm tra với hội đồng quản trị Giám đốc: người quản lý, điều hành tất hoạt động công ty, người đại diện hợp pháp công ty, chịu trách nhiệm trước Nhà nước hoạt động sản xuất kinh doanh công ty, đồng thời chịu trách nhiệm trước tồn thể nhân viên cơng ty vấn đề bảo đảm quyền lợi người lao động Phịng kế tốn: thực nhiệm vụ kế tốn cơng ty bao gồm: - Cập nhật thông tin hàng ngày, hàng tháng, hàng quý, hàng năm theo nội dung tài chính, chi phí lập báo cáo, bảng cân đối kế toán, bảng chấm cơng, bảng tính lương cho nhân viên, tốn chương trình du lịch, tính giá thành cho xe - Thực toán với đối tác nhà cung cấp Quản lý việc thu, chi ngân sách công ty, lập chịu trách nhiệm trước giám đốc quan pháp luật báo cáo tài - Phối hợp với phịng ban khác cơng ty để thực nhiệm vụ chung TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 10 CHUYÊN ĐỀ TỐT NGHIỆP Phòng tour: bao gồm người bán hàng, người điều hành, người quản lý Người quản lí - Thiết kế chương trình du lịch sở chương trình du lịch theo yêu cầu khách hàng - Tạo thư viện dịch vụ cung cấp từ đối tác - Quản lý thông tin, hợp đồng, giá dịch vụ đối tác cung cấp dịch vụ - Theo dõi tình trạng yêu cầu ngày (đã thực thi hay chưa) - Theo dõi tình trạng xếp phân bổ chương trình du lịch dịch vụ người điều hành Người bán hàng - Nhận yêu cầu từ khách hàng gửi đến tương tác với khách hàng - Gửi yêu cầu cho người điều hành - Kiểm tra trạng thái đơn hàng gửi lên cho người điều hành - Tìm kiếm đơn hàng, sản phẩm Người điều hành - Nhận đơn hàng từ bán hàng chuyển đến, kiểm tra thông tin lập lịch để điều hành cho đơn hàng - Sắp xếp phân bổ dịch vụ tương ứng theo yêu cầu đơn hàng - Gửi thông tin đặt dịch vụ (email, phone, fax,…) đến đối tác sau lên lịch xác nhận tình trạng dịch vụ - Lập chương trình nhật ký chương trình du lịch TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 187 CHUYÊN ĐỀ TỐT NGHIỆP textquery = "SELECT hdtour.id,tourcs.id AS matour,tourcs.name AS hanhtrinh,tourcs.tgian,tourcs.bdate,tourcs.sl,tourcs.gianl,tourcs.giate,tourcs.ptien,hdt our.dvkhac FROM hdtour LEFT JOIN tourcs ON tourcs.id=hdtour.tourcs WHERE hdtour.theodoi=1" myData = New SqlDataAdapter(textquery, QLTour.MainApp.appConn) myDT.TableName = "hdtour" myData.Fill(myDT) Dim column1 As New DataGridViewTextBoxColumn column1.DataPropertyName = "id" column1.HeaderText = "Mã hợp đồng" column1.ValueType = GetType(String) column1.ReadOnly = True column1.Width = 100 Dim column2 As New DataGridViewTextBoxColumn column2.DataPropertyName = "matour" column2.HeaderText = "Mã tour" column2.ValueType = GetType(String) column2.ReadOnly = True column2.Width = 100 Dim column4 As New DataGridViewTextBoxColumn column4.DataPropertyName = "hanhtrinh" column4.HeaderText = "Hành trình" column4.ValueType = GetType(String) column4.ReadOnly = True column4.Width = 250 Dim column6 As New DataGridViewTextBoxColumn column6.DataPropertyName = "tgian" column6.HeaderText = "Thời gian" column6.ValueType = GetType(DateTime) column6.ReadOnly = True column6.Width = 100 Dim column7 As New DataGridViewTextBoxColumn column7.DataPropertyName = "bdate" column7.HeaderText = "Ngày khởi hành" column7.ValueType = GetType(String) column7.ReadOnly = True column7.Width = 100 TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 188 CHUYÊN ĐỀ TỐT NGHIỆP Dim column8 As New DataGridViewTextBoxColumn column8.DataPropertyName = "sl" column8.HeaderText = "Số lượng" column8.ValueType = GetType(Integer) column8.ReadOnly = True column8.Width = 50 Dim column9 As New DataGridViewTextBoxColumn column9.DataPropertyName = "gianl" column9.HeaderText = "Giá người lớn" column8.ValueType = GetType(Integer) column9.ReadOnly = True column9.Width = 100 Dim column10 As New DataGridViewTextBoxColumn column10.DataPropertyName = "giate" column10.HeaderText = "Giá trẻ em" column10.ValueType = GetType(Integer) column10.ReadOnly = True column10.Width = 100 Dim column11 As New DataGridViewTextBoxColumn column11.DataPropertyName = "ptien" column11.HeaderText = "Phương tiện" column11.ValueType = GetType(Integer) column11.ReadOnly = True column11.Width = 100 Dim column12 As New DataGridViewTextBoxColumn column12.DataPropertyName = "dvkhac" column12.HeaderText = "DV khác" column12.ValueType = GetType(String) column12.ReadOnly = True column12.Width = 250 Dim column21 As New DataGridViewTextBoxColumn column21.DataPropertyName = "theodoi" column21.Visible = False Me.dgv1.Columns.Add(column1) Me.dgv1.Columns.Add(column2) Me.dgv1.Columns.Add(column4) TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 189 CHUYÊN ĐỀ TỐT NGHIỆP Me.dgv1.Columns.Add(column6) Me.dgv1.Columns.Add(column7) Me.dgv1.Columns.Add(column8) Me.dgv1.Columns.Add(column9) Me.dgv1.Columns.Add(column10) Me.dgv1.Columns.Add(column11) Me.dgv1.Columns.Add(column12) Me.dgv.Columns.Add(column21) Me.dgv1.DataSource = myDT End Sub Private Sub LoadData() Dim textquery As String myDT.Clear() textquery = "SELECT hdtour.id,tourcs.id AS matour,tourcs.name AS hanhtrinh,tourcs.tgian,tourcs.bdate,tourcs.sl,tourcs.gianl,tourcs.giate,tourcs.ptien,hdt our.dvkhac FROM hdtour LEFT JOIN tourcs ON tourcs.id=hdtour.tourcs WHERE hdtour.theodoi=1" myData = New SqlDataAdapter(textquery, QLTour.MainApp.appConn) myDT.TableName = "hdtour" myData.Fill(myDT) Me.dgv1.DataSource = myDT End Sub Private Sub btnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnew.Click Me.txtmatour.Text = "" Me.txthanhtrinh.Text = "" Me.txthoigian.Text = "" Me.txtsl.Text = "" Me.txtbedate.Text = "" Me.txtnl.Text = "" Me.txte.Text = "" Me.txtptien.Text = "" Me.lbdvkhac1.Text = "" Me.txtmahd.Text = "" Me.txtmahd.Focus() Me.SplitContainer1.Panel2.Enabled = False Me.btnsave.Enabled = True Me.btnew.Enabled = False Me.btnexit.Enabled = True Me.txtmahd.Enabled = True TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 190 CHUYÊN ĐỀ TỐT NGHIỆP End Sub 'Điền thông tin doi tac Private Sub txtmatour_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtmatour.KeyPress If (Asc(e.KeyChar) = 13) Then tid = "" tname = "" tthoigian = "" tbeg = "" tptien = "" tsl = "" tgianl = "" tgiate = "" Dim frmdis As New frmlichtour frmdis.ShowDialog() If (tid "") Then Me.txtmatour.Text = tid Me.txthanhtrinh.Text = tname Me.txthoigian.Text = tthoigian Me.txtbedate.Text = tbeg Me.txtptien.Text = tptien Me.txtsl.Text = tsl Me.txtnl.Text = tgianl Me.txte.Text = tgiate End If End If End Sub 'dien thong tin doi tac Private Sub LoadData4() Dim textquery As String myDT4.Clear() textquery = "SELECT id,tourcs,dvkhac,theodoi FROM hdtour" myData4 = New SqlDataAdapter(textquery, QLTour.MainApp.appConn) myData4.Fill(myDT4) End Sub 'Kiểm tra quy cách nhập id Private Function check_code(ByVal s As String) As Boolean For i As Integer = To s.Length - If (Char.IsLetter(s.Chars(i)) = False And Char.IsNumber(s.Chars(i)) = False) Then Return False End If TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 191 CHUYÊN ĐỀ TỐT NGHIỆP Next Return True End Function 'Kiểm giá trị tồn CSDL Private Function check_sql(ByVal conn As SqlConnection, ByVal table As String, ByVal col As String, ByVal edition_val As String) As Boolean Dim str As String str = "" Try str = StringType.FromObject(Sql.GetValue(conn, table, col, edition_val)).Trim Catch End Try If (str = "" Or str Is Nothing) Then Return False End If Return True End Function 'Kiểm tra ngoại lệ thông tin nhập Private Function check_info() As Boolean If (Me.txtmatour.Text = "") Then MessageBox.Show("Nhập mã chương trình") Return False End If If (Me.txtmahd.Text = "") Then MessageBox.Show("Nhập mã hợp đồng") Return False Else If (check_code(Me.txtmahd.Text) = False) Then MessageBox.Show("Nhập sai định dạng mã hợp đồng") Return False End If If (check_sql(QLTour.MainApp.appConn, "hdtour", "tourcs", "id = '" & Trim(Me.txtmahd.Text) & "'") = True) Then MessageBox.Show("Mã hợp đồng không trùng nhau") Return False End If End If Return True End Function TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 192 CHUYÊN ĐỀ TỐT NGHIỆP Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click myDR = Nothing Dim num As Integer = Me.dgv1.CurrentRow.Index For i As Integer = To myDT4.Rows.Count - If ((myDT4.Rows(i).Item("id") = Me.dgv1.Rows(num).Cells(0).Value.ToString) And (Not myDT4.Rows(i).RowState = DataRowState.Deleted)) Then myDR = myDT4.Rows(i) Exit For End If Next If (myDR Is Nothing) Then Exit Sub End If myDR.Item("theodoi") = Dim newDT As New DataTable newDT = myDT4.GetChanges If (Not newDT Is Nothing) Then Dim MyBuilder As New SqlCommandBuilder(myData4) myData4.TableMappings.Add("hdtour", myDT4.TableName) myData4.Update(newDT) LoadData4() myDT4.DefaultView.RowFilter = Nothing LoadData() End If myDR = Nothing End Sub Private Sub dgv1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgv1.DoubleClick Me.SplitContainer1.Panel2.Enabled = True Me.btnmoi.Enabled = True Me.btnxoa.Enabled = True Me.btnthoat.Enabled = True Me.btnluu.Enabled = False Me.btnsave.Enabled = True LoadData2() Me.txtmahd.Text = Me.dgv1.Rows(Me.dgv1.CurrentRow.Index).Cells(0).Value.ToString Me.txtmahd.Enabled = False End Sub 'Cập nhật liệu, load lại liệu lên datatable Private Sub LoadData2() TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 193 CHUYÊN ĐỀ TỐT NGHIỆP Dim textquery As String myDT2.Clear() textquery = "SELECT yeucau.id AS yeucau,khachhang.id,khachhang.name,khachhang.diachi,khachhang.nguoidaidien,k hachhang.chucvu,khachhang.dienthoai,khachhang.email,khachhang.fax,yeucau.sl FROM yeucau LEFT JOIN khachhang ON yeucau.khachhang=khachhang.id WHERE yeucau.hdtour='" & Trim(Me.dgv1.Rows(Me.dgv1.CurrentRow.Index).Cells(0).Value.ToString) & "'" myData2 = New SqlDataAdapter(textquery, QLTour.MainApp.appConn) myDT2.TableName = "yeucau" myData2.Fill(myDT2) Dim column1 As New DataGridViewTextBoxColumn column1.DataPropertyName = "yeucau" column1.HeaderText = "Yêu cầu" column1.ValueType = GetType(String) column1.ReadOnly = True column1.Width = 100 Dim column2 As New DataGridViewTextBoxColumn column2.DataPropertyName = "id" column2.HeaderText = "Khách hàng" column2.ValueType = GetType(String) column2.ReadOnly = True column2.Width = 100 Dim column3 As New DataGridViewTextBoxColumn column3.DataPropertyName = "name" column3.HeaderText = "Tên khách" column3.ValueType = GetType(String) column3.ReadOnly = True column3.Width = 200 Dim column4 As New DataGridViewTextBoxColumn column4.DataPropertyName = "diachi" column4.HeaderText = "Địa chỉ" column4.ValueType = GetType(String) column4.ReadOnly = True column4.Width = 200 Dim column5 As New DataGridViewTextBoxColumn column5.DataPropertyName = "nguoidaidien" column5.HeaderText = "Đại diện" TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 194 CHUYÊN ĐỀ TỐT NGHIỆP column5.ValueType = GetType(String) column5.ReadOnly = True column5.Width = 250 Dim column6 As New DataGridViewTextBoxColumn column6.DataPropertyName = "chucvu" column6.HeaderText = "Chức vụ" column6.ValueType = GetType(Integer) column6.ReadOnly = True column6.Width = 200 Dim column7 As New DataGridViewTextBoxColumn column7.DataPropertyName = "dienthoai" column7.HeaderText = "Điện thoại" column7.ValueType = GetType(String) column7.ReadOnly = True column7.Width = 100 Dim column8 As New DataGridViewTextBoxColumn column8.DataPropertyName = "email" column8.HeaderText = "Email" column8.ValueType = GetType(String) column8.ReadOnly = True column8.Width = 200 Dim column9 As New DataGridViewTextBoxColumn column9.DataPropertyName = "fax" column9.HeaderText = "Fax" column9.ValueType = GetType(String) column9.ReadOnly = True column9.Width = 100 Dim column10 As New DataGridViewTextBoxColumn column10.DataPropertyName = "sl" column10.HeaderText = "Số lượng" column10.ValueType = GetType(String) column10.ReadOnly = True column10.Width = 50 Me.dgv.Columns.Add(column1) Me.dgv.Columns.Add(column2) Me.dgv.Columns.Add(column3) TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 195 CHUYÊN ĐỀ TỐT NGHIỆP Me.dgv.Columns.Add(column4) Me.dgv.Columns.Add(column5) Me.dgv.Columns.Add(column6) Me.dgv.Columns.Add(column7) Me.dgv.Columns.Add(column8) Me.dgv.Columns.Add(column9) Me.dgv.Columns.Add(column10) Me.dgv.DataSource = myDT2 End Sub Private Sub LoadData6() Dim textquery As String myDT2.Clear() textquery = "SELECT yeucau.id AS yeucau,khachhang.id,khachhang.name,khachhang.diachi,khachhang.nguoidaidien,k hachhang.chucvu,khachhang.dienthoai,khachhang.email,khachhang.fax,yeucau.sl FROM yeucau LEFT JOIN khachhang ON yeucau.khachhang=khachhang.id WHERE yeucau.hdtour='" & Trim(Me.dgv1.Rows(Me.dgv1.CurrentRow.Index).Cells(0).Value.ToString) & "'" myData2 = New SqlDataAdapter(textquery, QLTour.MainApp.appConn) myDT2.TableName = "yeucau" myData2.Fill(myDT2) Me.dgv.DataSource = myDT2 End Sub Private Sub btnmoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmoi.Click Me.txtmakhach.Text = "" Me.txttenkh.Text = "" Me.txtdchikh.Text = "" Me.txtdaidien.Text = "" Me.txtchucvu.Text = "" Me.txtdt.Text = "" Me.txtemailkh.Text = "" Me.txtfaxkh.Text = "" Me.txttchu.Text = "" Me.txtfaxkh.Text = "" Me.txttchu.Focus() Me.txttchu.SelectAll() Me.btnluu.Enabled = True Me.btnmoi.Enabled = False Me.btnthoat.Enabled = True End Sub TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 196 CHUYÊN ĐỀ TỐT NGHIỆP Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click Me.Close() End Sub Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click Me.Close() End Sub 'Cập nhật liệu, load lại liệu lên datatable Private Sub LoadData5() Dim textquery As String myDT5.Clear() textquery = "SELECT id,khachhang,hdtour,tinhtrang FROM yeucau" myData5 = New SqlDataAdapter(textquery, QLTour.MainApp.appConn) myData5.Fill(myDT5) End Sub Private Sub btnluu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnluu.Click If (Me.txttchu.Text = "") Then MessageBox.Show("Nhập mã yêu cầu") Else For i As Integer = To myDT5.Rows.Count - If ((myDT5.Rows(i).Item("id") = Me.txttchu.Text) And ((myDT5.Rows(i).Item("khachhang") = Me.txtmakhach.Text) And (Not myDT5.Rows(i).RowState = DataRowState.Deleted))) Then myDR5 = myDT5.Rows(i) Exit For End If Next If (myDR5 Is Nothing) Then Exit Sub End If myDR5.Item("id") = Me.txttchu.Text myDR5.Item("khachhang") = Me.txtmakhach.Text myDR5.Item("hdtour") = Me.txtmahd.Text myDR5.Item("tinhtrang") = Dim newDT As New DataTable newDT = myDT5.GetChanges If (Not newDT Is Nothing) Then Dim MyBuilder As New SqlCommandBuilder(myData5) myData5.TableMappings.Add("yeucau", myDT5.TableName) TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 197 CHUYÊN ĐỀ TỐT NGHIỆP myData5.Update(newDT) LoadData5() myDT5.DefaultView.RowFilter = Nothing Me.btnluu.Enabled = False Me.btnmoi.Enabled = True Me.btnthoat.Enabled = True LoadData6() Me.txtmakhach.Text = "" Me.txttenkh.Text = "" Me.txtdchikh.Text = "" Me.txtdaidien.Text = "" Me.txtchucvu.Text = "" Me.txtdt.Text = "" Me.txtemailkh.Text = "" Me.txtfaxkh.Text = "" Me.txttchu.Text = "" Me.txtfaxkh.Text = "" Me.txttchu.Focus() Me.txttchu.SelectAll() End If End If End Sub Private Sub txttchu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txttchu.KeyPress If (Asc(e.KeyChar) = 13) Then bid = "" bsl = byc = "" Dim frmdis As New frmyeucaukh frmdis.ShowDialog() If (bid "") Then Me.txtmakhach.Text = bid Me.txtslkh.Text = bsl Me.txttchu.Text = byc End If End If LoadData3() Me.txttenkh.Text = myDT3.Rows(0).Item("name") Me.txtdt.Text = myDT3.Rows(0).Item("dienthoai") TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 198 CHUYÊN ĐỀ TỐT NGHIỆP Me.txtdchikh.Text = myDT3.Rows(0).Item("diachi") Me.txtdaidien.Text = myDT3.Rows(0).Item("nguoidaidien") Me.txtchucvu.Text = myDT3.Rows(0).Item("chucvu") Me.txtemailkh.Text = myDT3.Rows(0).Item("email") Me.txtfaxkh.Text = myDT3.Rows(0).Item("fax") End Sub 'Cập nhật liệu, load lại liệu lên datatable Private Sub LoadData3() Dim textquery As String myDT3.Clear() textquery = "SELECT name,dienthoai,diachi,nguoidaidien,chucvu,email,fax FROM khachhang WHERE id='" & Trim(Me.txtmakhach.Text) & "'" myData3 = New SqlDataAdapter(textquery, QLTour.MainApp.appConn) myData3.Fill(myDT3) End Sub Private Sub btnxoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnxoa.Click myDR5 = Nothing If (MessageBox.Show("Chắc chắn xóa yêu cầu?", "Quản lí danh sách yêu cầu", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.OK) Then Dim num As Integer = Me.dgv.CurrentRow.Index For i As Integer = To myDT5.Rows.Count - If ((myDT5.Rows(i).Item("id") = Me.dgv.Rows(num).Cells(0).Value.ToString) And ((myDT5.Rows(i).Item("khachhang") = Me.dgv.Rows(num).Cells(1).Value.ToString) And (Not myDT5.Rows(i).RowState = DataRowState.Deleted))) Then myDR5 = myDT5.Rows(i) Exit For End If Next If (myDR5 Is Nothing) Then Exit Sub End If myDR5.Item("id") = Me.txttchu.Text myDR5.Item("khachhang") = Me.txtmakhach.Text myDR5.Item("hdtour") = "" myDR5.Item("tinhtrang") = Dim newDT As New DataTable newDT = myDT5.GetChanges If (Not newDT Is Nothing) Then TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 199 CHUYÊN ĐỀ TỐT NGHIỆP Dim MyBuilder As New SqlCommandBuilder(myData5) myData5.TableMappings.Add("yeucau", myDT5.TableName) myData5.Update(newDT) LoadData5() myDT5.DefaultView.RowFilter = Nothing Me.btnluu.Enabled = False Me.btnmoi.Enabled = True Me.btnthoat.Enabled = True Me.btnxoa.Enabled = True LoadData6() 'LoadData9() End If End If End Sub 'Cập nhật liệu, load lại liệu de xoa Private Sub LoadData10() Dim textquery1 As String textquery1 = "SELECT hdtour from yeucau" myData10 = New SqlDataAdapter(textquery1, QLTour.MainApp.appConn) myData10.Fill(myDT10) End Sub Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click Try Dim num As Integer = Me.dgv1.CurrentRow.Index Dim bl As Boolean = True If (num >= 0) Then If (MessageBox.Show("Chắc chắn xóa hợp đồng?", "Quản lí danh sách hợp đồng", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.OK) Then For i As Integer = To myDT10.Rows.Count - If (UCase(myDT10.Rows(i).Item("hdtour")) = UCase(Me.dgv1.Rows(num).Cells(0).Value.ToString)) Then bl = False Exit For End If Next If (bl = False) Then MessageBox.Show("Mã hợp đồng có phát sinh, khơng xóa được!") Else TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 200 CHUYÊN ĐỀ TỐT NGHIỆP For i As Integer = To myDT4.Rows.Count - If ((myDT4.Rows(i).Item("id") = Me.dgv1.Rows(num).Cells(0).Value.ToString)) And (Not myDT4.Rows(i).RowState = DataRowState.Deleted) Then myDT4.Rows(i).Delete() Exit For End If Next Dim newDT As New DataTable newDT = myDT4.GetChanges If (Not newDT Is Nothing) Then Dim MyBuilder As New SqlCommandBuilder(myData4) myData4.TableMappings.Add("hdtour", myDT4.TableName) myData4.Update(newDT) LoadData4() myDT4.DefaultView.RowFilter = Nothing LoadData() End If End If End If End If Catch MessageBox.Show("Lỗi cập nhật liệu", "Cảnh báo", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If (check_info() = True) Then myDR = Nothing myDR = myDT4.NewRow myDR.Item("id") = Me.txtmahd.Text myDR.Item("dvkhac") = Me.lbdvkhac1.Text myDR.Item("tourcs") = Me.txtmatour.Text myDR.Item("theodoi") = myDT4.Rows.Add(myDR) Dim newDT As New DataTable newDT = myDT4.GetChanges If (Not newDT Is Nothing) Then Dim MyBuilder As New SqlCommandBuilder(myData4) myData4.TableMappings.Add("hdtour", myDT4.TableName) myData4.Update(newDT) TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com 201 CHUYÊN ĐỀ TỐT NGHIỆP LoadData4() myDT4.DefaultView.RowFilter = Nothing LoadData() End If End If myDR = Nothing Me.txtmahd.Enabled = False Me.btnew.Enabled = True Me.btnsave.Enabled = False Me.txtmatour.Text = "" Me.txthanhtrinh.Text = "" Me.txthoigian.Text = "" Me.txtsl.Text = "" Me.txtbedate.Text = "" Me.txtnl.Text = "" Me.txte.Text = "" Me.txtptien.Text = "" Me.lbdvkhac1.Text = "" Me.txtmahd.Text = "" Me.txtmahd.Enabled = True Me.txtmahd.Focus() End Sub End Class TRẦN THỊ THÙY LINH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ... LỊCH HỒNG VIỆT, tìm hiểu nghiệp vụ quản lý ngành du lịch, chọn đề tài : ? ?Phân tích thiết kế xây dựng phần mềm Quản lý chương trình du lịch cho công ty Đầu tư – Vận tải – Du lịch Hoàng Việt? ?? Đề... CHƯƠNG 1: TỔNG QUAN VỀ CÔNG TY CỔ PHẦN ĐẦU TƯ - VẬN TẢI – DU LỊCH HOÀNG VIỆT VÀ ĐỀ TÀI 1.1 Giới thiệu công ty Tên công ty: Công ty Cổ phần Đầu tư - Vận tải – Du lịch Hoàng Việt Tên viết tắt:... Phân tích, thiết kế xây dựng phần mềm quản lý chương trình du lịch cho công ty Đầu tư – Vận tải – Du lịch Hồng Việt 1.4.2 Mục đích phạm vi nghiên cứu đề tài Phạm vi nghiên cứu đề tài Phần mềm
Ngày đăng: 18/10/2022, 15:32
Xem thêm: