Phântí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

1 CHUYÊN ĐỀ TỐT NGHIỆP MỤC LỤC LỜI MỞ ĐẦU .3 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 HỢP ĐỒNG DU LỊCH 55 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 Hoà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 TRẦN THỊ THÙY LINH CHUYÊN ĐỀ TỐT NGHIỆP 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 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 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, 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: TRẦN THỊ THÙY LINH CHUYÊN ĐỀ TỐT NGHIỆP - 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 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 – Hoà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 - Buôn 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 TRẦN THỊ THÙY LINH CHUYÊN ĐỀ TỐT NGHIỆP - Sản xuất, buôn bán, cho thuê 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 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 độ chuyên 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 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ó độ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 TRẦN THỊ THÙY LINH CHUYÊN ĐỀ TỐT NGHIỆP 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 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 Hoà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ế toá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 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 soát viên: kiểm soát toàn hệ thống tài việc thực quy chế công ty Khi có yêu cầu cổ đông hay nhóm cổ đông, kiểm soá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 toà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ế toán: thực nhiệm vụ kế toá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, toán chương trình du lịch, tính giá thành cho xe TRẦN THỊ THÙY LINH CHUYÊN ĐỀ TỐT NGHIỆP - 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 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 TRẦN THỊ THÙY LINH CHUYÊN ĐỀ TỐT NGHIỆP - 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 Bộ phận kinh doanh: thực chức bản: - Điều tra nghiên cứu thăm dò nhu cầu thị trường, nhu cầu thị trường đoạn thị trường cách xác, khả thi, đưa chiến lược, sách cách phù hợp để thâm nhập khai thác thị trường - Thực chức quản lý khách hàng cũ bao gồm: đánh giá nhu cầu khách hàng, phân loại khách hàng, đánh giá tiềm khách hàng, phối hợp với phòng ban khác công ty để cải tạo chương trình phục vụ khách hàng cách tốt - Đảm đương công việc quảng cáo, mở rộng thị trường quản trị quan hệ khách hàng Phòng điều hành xe: nhận yêu cầu từ khách hàng Trên sở xếp điều động xe theo yêu cầu khách hàng Đồng thời xây dựng hợp đồng với đối tác khách hàng, xác định thủ tục toán với khách hàng Bộ phận IT: phụ trách tất công việc liên quan đến máy móc thiết bị, phần cứng, phần mềm công ty Đồng thời phụ trách xây dựng trang điện tử cho công ty TRẦN THỊ THÙY LINH 10 CHUYÊN ĐỀ TỐT NGHIỆP 1.3 Thực trạng ứng dụng công nghệ thông tin công ty 1.3.1 Cơ sở vật chất công ty - Trang thiết bị công ty nhìn chung đại Tất phòng ban trang bị máy điều hoà, điện thoại, máy in, máy fax…Hiện công ty có máy chủ, 15 máy khách, máy tính máy trang bị cho hầu hết nhân viên, nhân viên sở hữu máy tính có nối mạng Internet - Phòng tour trang bị thêm máy photocopy để tiện cho công việc 1.3.2 Tình hình ứng dụng tin học hỗ trợ quản lý nhiệm vụ công ty - Nói chung trang thiết bị công ty đại chưa khai thác hết tiềm năng:  Phòng kế toán sử dụng phần mềm kế toán phần mềm thuế phục vụ cho nghiệp vụ  Phòng IT xây dựng trang điện tử công ty  Phòng tour sử dụng phần mềm word, excel để lưu trữ thông tin chương trình du lịch, dùng tính toán chi phí cho chương trình du lịch, soạn thảo hợp đồng du lịch Ngoài ra, phòng tour chưa sử dụng phần mềm chuyên dụng du lịch để quản lý chương trình du lịch công ty - Nhìn chung đội ngũ cán công nhân viên công ty chủ yếu tốt nghiệp ngành tuý kinh tế, trình độ tin học họ sử dụng tin học đơn TRẦN THỊ THÙY LINH 185 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,hd tour.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 186 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 187 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,hd tour.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 188 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 189 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 190 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 191 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 192 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 193 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 194 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 195 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 196 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 197 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 198 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 199 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 [...]... 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 1.4.2 Mục đích và phạm vi nghiên cứu của đề tài Phạm vi nghiên cứu của đề tài • Phần mềm quản lý chương trình du lịch giúp quản lý các yêu cầu của khách hàng, nhắc nhở người bán hàng khi có yêu cầu của khách hàng sắp đến ngày khởi hành • Phần mềm quản lý chương trình du lịch giúp người... dõi một chương trình du lịch đang thực hiện từ lúc xây dựng cho đến khi chương trình được thực hiện • Phần mềm quản lý chương trình du lịch giúp định nghĩa chương trình cơ sở dùng làm nền để mở các chương trình du lịch cụ thể sau này • Phần mềm quản lý chương trình du lịch giúp lưu trữ tất cả các thông tin về khách hàng, đối tác, các địa điểm du lịch và thông tin chi tiết của các chương trình du lịch. .. đại lý lữ hành không được tổ chức thực hiện chương trình du lịch 2.2.2 Tổ chức bán chương trình du lịch Các hình thức bán chương trình du lịch • Bán chương trình du lịch trực tiếp cho người tiêu dùng • Bán chương trình du lịch nội địa thông qua các đại lý, các công ty lữ hành gửi khách trong phạm vi quốc gia • Bán chương trình du lịch quốc tế cho người nước ngoài thông qua các công ty gửi khách và các... tham quan du lịch, danh sách nhà hàng, khách sạn thì có thể được lấy ra nhanh chóng Mục đích của đề tài Đề tài này chỉ nghiên cứu 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 TRẦN THỊ THÙY LINH 12 CHUYÊN ĐỀ TỐT NGHIỆP 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 2.1 Một số khái niệm về chương trình du lịch 2.1.1... hiệu quả nhất 2.6 Tiến trình thiết kế phần mềm Trong sản xuất phần mềm công nghiệp, người ta xét quá trình thiết kế dưới hai góc độ: về mặt quản lý và về mặt kĩ thuật • Xét từ góc độ quản lý: người ta chia làm 2 giai đoạn: o Thiết kế sơ bộ o Thiết kế chi tiết • Xét từ góc độ kĩ thuật: người ta chia làm 4 công đoạn: o Thiết kế kiến trúc o Thiết kế dữ liệu o Thiết kế thủ tục o Thiết kế giao diện TRẦN THỊ... bước 4 Kết thúc bước 5 Điều kiện kết thúc Quyết định của công ty Khách hàng chấp nhận giải pháp Hợp đồng phần mềm được công ty duyệt Thực hiện tốt hợp đồng Công ty duyệt 36 CHUYÊN ĐỀ TỐT NGHIỆP 2.7.3 Quy trình thiết kế phần mềm Mục đích: Trên cơ sở của hồ sơ phân tích nghiệp vụ và mô hình hoạt  động của hệ thống tiến hành thiết kế kiến trúc và thiết kế kĩ thuật để xây dựng hồ sơ thiết kế phần mềm Các... tiến trình xây dựng và phát triển một chương trình du lịch mới của doanh nghiệp lữ hành  Bước 4: Lập hành trình (chi tiết hóa chương trình) Hành trình hoặc lộ trình là trình tự cách đi, các nơi đến và điểm tham quan sẽ trải qua trong chuyến đi du lịch Mỗi chương trình du lịch không chỉ có một hành trình, mà các doanh nghiệp lữ hành cần lập nhiều hành trình cho một chương trình Đó là những hành trình. .. giao, vận chuyển TRẦN THỊ THÙY LINH 26 CHUYÊN ĐỀ TỐT NGHIỆP 2.4 Công nghệ phần mềm Công nghệ phần mềm là một tổng thể bao gồm các phương pháp công cụ và thủ tục giúp cho người quản lý dự án điều hành tốt nhất một dự án phần mềm và giúp cho kĩ sư lập trình nắm được các quy trình cơ bản trong sản xuất phần mềm và quy mô công nghệ Ta có thể mô hình hóa khái niệm công nghệ phần mềm: Mỗi dự án phần mềm không... tính khó bán chương trình du lịch là kết quả bởi các đặc tính trên Khi mua chương trình du lịch khách du lịch có rất nhiều băn khoăn, không an tâm về các rủi ro như: rủi ro về sản phẩm, về thân thể, về tài sản, tâm lý, thời gian… 2.1.3 Các bước xây dựng chương trình du lịch  Bước 1: Nghiên cứu thị trường du lịch Để nắm bắt được nhu cầu của khách hàng du lịch nhằm đưa ra chương trình du lịch phù hợp... thành cuối cùng của chương trình du lịch) • Căn cứ vào khả năng tổ chức, kinh doanh chương trình du lịch dự kiến Một chương trình du lịch mới có thể được đánh giá là có giá trị và ưa chuộng đối với khách và tạo ra lợi nhuận tiềm năng cho doanh nghiệp nhưng chương trình đó lại không thể tổ chức, vận hành trong thực tế vì lý do chính trị hoặc một số lý do khác Ví dụ như: chương trình du lịch mạo hiểm… Bên