Cùng với sự phát triển của các lĩnh vực kinh tế, xã hội thì nhu cầu ứng dụng công nghệ thông tin ngày càng cao và không ngừng biến đổi. Khi hệ thống càng phát triển, càng phức tạp thì các phương thức quản lý cổ điển truyền thống sẽ trở nên cồng kềnh và khó có thể đáp ứng yêu cầu ngày càng cao của hệ thống. Để xử lý các thông tin một cách nhanh chóng, chính xác và có hiệu quả, đòi hỏi phải có sự hỗ trợ của một công cụ hiện đại đó chính là Công nghệ thông tin. Sự phát triển nhảy vọt của công nghệ thông tin đã tác động mạnh mẽ đến các hoạt động xã hội làm thay đổi một cách sâu sắc đến phong cách sống làm việc của xã hội. Từ những việc tái tạo những bức ảnh đã phai nhạt theo thời gian cho đến việc tạo ra những con rô bốt biết suy nghĩ, tàu vũ trụ không ngườì lái. Công nghệ thông tin đã trở thành trụ cột chính của nền kinh tế tri thức, ứng dụng công nghệ thông tin vào lĩnh vực quản lý các hoạt động xã hội và nghiên cứu khoa học được nhiều người quan tâm. Phạm vi ứng dụng của công nghệ thông tin ngày càng mở rộng trên nhiều lĩnh vực: Truyền thông, đo lường, tự động hoá, quản lý các hoạt động của con người và xã hội…Những lợi ích mà các phần mềm ứng dụng mang lại là đáng kể: Xử lý thông tin nhanh chóng, chính xác khoa học, giảm bớt nhân lực và công sức, phí tổn thấp và hiệu quả công việc nâng cao một cách rõ rệt. Với khẩu hiệu “ Không được đứng nhìn từ xa ”. Em tiếp cận với ngành Công nghệ thông tin từ những việc nhỏ nhất trong ngành học. Trong lĩnh vực công nghệ thông tin, các ngôn ngữ lập trình, các hệ quản trị cơ sở dữ liệu không ngừng phát triển và đổi mới, cho phép chúng ta xây dựng các phần mềm ứng dụng hỗ trợ việc quản lý các hoạt động xã hội một cách tốt nhất. Với tầm quan trọng của ứng dụng công nghệ thông tin trong quản lý nên em đã tìm hiểu ngôn ngữ lập trình Visual Basic và hệ quản trị cơ sở dữ liệu Access để xây dựng phần mềm “ Quản lý Bán vé và điều hành xe ” tại bến xe Vinh để làm đề tài thực tập. Được sự quan tâm giúp đỡ của Ban quản lý Bến xe Vinh, và sự giúp đỡ của Công ty Cổ phần Công nghệ Gia Linh, cùng với sự chỉ bảo tận tình của Giáo viên hướng dẫn đã tạo mọi điều kiện để em được nhiều thuận tiện trong quá trình xâm nhập thực tế. Qua đó cập nhật kiến thức chuyên môn của nhiều ngành nghề nhằm hỗ trợ việc tin học hoá trong quản lý của ngành công nghệ thông tin. Mặc dù vậy, do trình độ còn hạn chế và thời gian có hạn nên em chỉ dừng lại ở mức khảo sát bài toán để tiến đến phân tích hệ thống, thiết kế cơ sở dữ liệu và thiết kế giao diện người dùng nhằm đáp ứng nhu cầu cho một chuyên đề thực tập tốt nghiệp. Một lần nữa em xin chân thành cảm ơn sự giúp đỡ quý báu của các Cô chú trong của Ban quản lý Bến xe Vinh, và các anh chị trong Công ty Cổ phần Công nghệ Gia Linh và đặc biệt em xin chân thành cảm ơn sự chỉ bảo tận tình của thầy giáo Thạc sĩ Đào Phan Vũ đã tạo điều kiện tốt giúp cho em hoàn thành báo cáo đề tài thực tập tốt nghiệp này. Trong khoảng thời gian ngắn, em còn nhiều điều thiếu sót, em mong quí thầy cô cùng các bạn đồng nghiệp góp ý chỉ bảo để em có một chương trình hoàn thiện hơn. Em xin chân thành cảm ơn!
Báo cáo thực tập Quản lý bán vé điều hành xe MỤC LỤC MỤC LỤC LỜI MỞ ĐẦU .1 Chương 1: TỔNG QUAN .3 1.1 Giới thiệu Công Ty Cổ phần Công nghệ Gia Linh .3 1.2 Giới thiệu sản phẩm dịch vụ công ty 1.3 Các đối tác nhà cung cấp 1.4 Cơ cấu tổ chức công ty Cổ phần Công Nghệ Gia Linh 2.1 Giới thiệu vài nét Bến xe Vinh 2.2 Cơ cở khoa học đề tài thực tiễn đề tài 2.2.1 Cơ sở khoa học đề tài 2.2.2 Thực tiễn đề tài .8 2.3 Nhiệm vụ toán 2.4 Các mục tiêu đề tài 2.5 Các công cụ cài đặt sử dụng 2.6 Môi trường thực Chương 3: CƠ SỞ LÍ THUYẾT 10 3.1 Hệ quản trị sở liệu Access 10 3.2 Ngơn ngữ lập trình Visual Basic 10 3.2.1 Cài đặt Visual Basic 6.0 .10 3.2.2 Đặc điểm ngơn ngữ lập trình Visual Basic 11 3.2.3 Cấu trúc chương trình Visual Basic 11 Chương 4: KHẢO SÁT HỆ THỐNG 17 4.1 Hành khách 17 4.2 Thông tin vào bến .18 4.3 Thông tin xe khách 18 4.4 Thông tin giá vé 18 NGOẠI TỈNH: 21 NỘI TỈNH: 21 Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập Quản lý bán vé điều hành xe 4.5 Mức thu phí loại xe khách .21 Cha chuÈn ho¸ .34 a Chức in ấn phí vào 103 b Chức in ấn phí bến đậu 104 c Chức in ấn tiến bán vé 104 104 KẾT LUẬN .105 TÀI LIỆU THAM KHẢO 106 Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập Quản lý bán vé điều hành xe LỜI MỞ ĐẦU Cùng với phát triển lĩnh vực kinh tế, xã hội nhu cầu ứng dụng công nghệ thông tin ngày cao không ngừng biến đổi Khi hệ thống phát triển, phức tạp phương thức quản lý cổ điển truyền thống trở nên cồng kềnh khó đáp ứng yêu cầu ngày cao hệ thống Để xử lý thông tin cách nhanh chóng, xác có hiệu quả, đòi hỏi phải có hỗ trợ cơng cụ đại Cơng nghệ thơng tin Sự phát triển nhảy vọt công nghệ thông tin tác động mạnh mẽ đến hoạt động xã hội làm thay đổi cách sâu sắc đến phong cách sống làm việc xã hội Từ việc tái tạo ảnh phai nhạt theo thời gian việc tạo rô bốt biết suy nghĩ, tàu vũ trụ khơng ngườì lái Cơng nghệ thơng tin trở thành trụ cột kinh tế tri thức, ứng dụng công nghệ thông tin vào lĩnh vực quản lý hoạt động xã hội nghiên cứu khoa học nhiều người quan tâm Phạm vi ứng dụng công nghệ thông tin ngày mở rộng nhiều lĩnh vực: Truyền thông, đo lường, tự động hoá, quản lý hoạt động người xã hội…Những lợi ích mà phần mềm ứng dụng mang lại đáng kể: Xử lý thơng tin nhanh chóng, xác khoa học, giảm bớt nhân lực cơng sức, phí tổn thấp hiệu công việc nâng cao cách rõ rệt Với hiệu “ Khơng đứng nhìn từ xa ” Em tiếp cận với ngành Công nghệ thông tin từ việc nhỏ ngành học Trong lĩnh vực cơng nghệ thơng tin, ngơn ngữ lập trình, hệ quản trị sở liệu không ngừng phát triển đổi mới, cho phép xây dựng phần mềm ứng dụng hỗ trợ việc quản lý hoạt động xã hội cách tốt Với tầm quan trọng ứng dụng công nghệ thông tin quản lý nên em tìm hiểu ngơn ngữ lập trình Visual Basic hệ quản trị sở liệu Access để xây dựng phần mềm “ Quản lý Bán vé điều hành xe ” bến xe Vinh để làm đề tài thực tập Được quan tâm giúp đỡ Ban quản lý Bến xe Vinh, giúp đỡ Công ty Cổ phần Công nghệ Gia Linh, với bảo tận tình Giáo viên Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập Quản lý bán vé điều hành xe hướng dẫn tạo điều kiện để em nhiều thuận tiện trình xâm nhập thực tế Qua cập nhật kiến thức chuyên môn nhiều ngành nghề nhằm hỗ trợ việc tin học hố quản lý ngành cơng nghệ thơng tin Mặc dù vậy, trình độ hạn chế thời gian có hạn nên em dừng lại mức khảo sát toán để tiến đến phân tích hệ thống, thiết kế sở liệu thiết kế giao diện người dùng nhằm đáp ứng nhu cầu cho chuyên đề thực tập tốt nghiệp Một lần em xin chân thành cảm ơn giúp đỡ quý báu Cô Ban quản lý Bến xe Vinh, anh chị Công ty Cổ phần Công nghệ Gia Linh đặc biệt em xin chân thành cảm ơn bảo tận tình thầy giáo Thạc sĩ Đào Phan Vũ tạo điều kiện tốt giúp cho em hoàn thành báo cáo đề tài thực tập tốt nghiệp Trong khoảng thời gian ngắn, em nhiều điều thiếu sót, em mong q thầy bạn đồng nghiệp góp ý bảo để em có chương trình hoàn thiện Em xin chân thành cảm ơn! Sinh viên thực Hoàng Thu Hoài Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập Quản lý bán vé điều hành xe Chương 1: TỔNG QUAN 1.1 Giới thiệu Công Ty Cổ phần Công nghệ Gia Linh CÔNG TY CỔ PHẦN CÔNG NGHỆ GIA LINH Tên giao dịch: GIA LINH TECHNOLOGY JOIT STOCT COMPANY Tên viết tắt: GLTECH.,JSC Giám đốc điều hành: Ơng Nguyễn Văn Bình * Trụ sở chính: Địa chỉ: 2/392 Bạch Mai – Hai Bà Trưng – TP Hà Nội, Việt Nam Điện thoại : +844 9950601 Fax : +844 6288713 Email: info@gltech.vn Website : www.gltech.vn * Mã số thuế: 0102669449 * Tài khoản Ngân hàng: 10320796644012 - Techcombank Bách Khoa - Hà Nội 1.2 Giới thiệu sản phẩm dịch vụ công ty Công ty Gia Linh phát triển kinh doanh tập trung vào lĩnh vực: * Tư vấn, Gia công, phát triển phần mềm: - Phần mềm kế toán - Phần mềm quản lý nhân - Phần mềm quản lý chấm công - Phần mềm tính lương - Phần mềm quản lý khách sạn, nhà hàng (Hospitality): + Hotellinx: Phần mềm quản lý khách sạn + Compuwave: Phần mềm quản lý nhà hàng + SHARP: Máy tính tiền chuyên dụng ECR * Chuyên tư vấn cung cấp triển khai lắp đặt hệ thống mạng, máy chủ, hệ thống tổng đài điện thoại, camera giám sát, hệ thống chấm cơng, kiểm sốt vào Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập Quản lý bán vé điều hành xe * Nhà phân phối sản phẩm công nghệ thông tin: - Máy chủ/Hệ thống mạng LAN, mạng WAN, thiết bị CNTT - Máy in, thiết bị an ninh, thẻ, máy chiếu thiết bị viễn thông * Dịch vụ hỗ trợ kỹ thuật bảo hành: Dịch vụ phần cứng phầm mềm : Dịch vụ tư vấn giải pháp, bảo hành, bảo trì sửa chữa thiết bị phần cứng cài đặt phần mềm 1.3 Các đối tác nhà cung cấp - Phần mềm: SAGE ERP, 1VS, TAS - Thiết bị CNTT: IBM (Server/ PC Intel Base), CISCO, HP/COMPAQ, Sun Microsystems, SONY/ TOSHIBA/ EIKI, PANASONIC - Thiết bị an ninh thiết bị khác: HONEYWELL (Access Control / CCTV ), TALLY, SATO, FARGO, SHARP, DAIKIN/Mitshubishi/Panasonic/LG Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Bộ phận phát triển phần mềm, (05 người) Phòng Dự Án (01 Người) Bộ phận bán hàng / Kinh doanh (03 Người) Giám Đốc (01 Người) BAN GIÁM ĐỐC (03 Người) Bộ phận kỹ thuật/Bảo hành (05 Người) Bộ phận kế toán (02 Người) Ban cố vấn (01 Người) Bộ phận hành (01 Người) Báo cáo thực tập Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Quản lý bán vé điều hành xe 1.4 Cơ cấu tổ chức công ty Cổ phần Công Nghệ Gia Linh Báo cáo thực tập Quản lý bán vé điều hành xe Trong chức phòng ban: Bộ phận hành chính: - Quản lý hành - Quản lý nhân Bộ phận kế tốn: - Báo cáo tài - Báo cáo thuế - Quản lý nhập xuất kho hàng hóa Bộ phận kỹ thuật/bảo hành: - Hỗ trợ kỹ thuật - Hỗ trợ bảo trì, bảo hành cho giải pháp phần cứng/phần mềm Bộ phận bán hàng/kinh doanh: - Phát triển kinh doanh - Thúc đẩy chiến lược makerting - Củng cố, xây dựng thương hiệu cơng ty Phòng dự án: - Quản lý dự án - Quản lý dự án dài hạn Bộ phận phát triển phần mềm: - Tư vấn phầm mềm - Gia công/ Phát triển - Sản xuất phần mềm - Tích hợp phần mềm Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập Quản lý bán vé điều hành xe Chương 2: GIỚI THIỆU VỀ ĐỀ TÀI 2.1 Giới thiệu vài nét Bến xe Vinh Bến xe Vinh trực thuộc Công ty Cổ phần xe khách Nghệ An Chịu giám sát quản lý Công ty cấu hoạt động bến xe Vinh có trưởng ban quản lý, phòng ban Địa chỉ: Bến xe khách Vinh nằm số 79 - Đường Lê Lợi - Thành phố Vinh Tỉnh Nghệ An Có diện tích 2.500m2 nằm trung tâm thành phố có sức chứa 80 xe Cơ cấu tổ chức hoạt động Bến xe Vinh CÔNG TY CỔ PHẦN XE KHÁCH NGHỆ AN ( BẾN XE VINH) QUẢN LÝ ĐIỀU HÀNH THỦ TỤC XUẤT NHẬP BẾN Bộ phận quản lý điều độ Bộ phận bán vé Bộ phận thu phí Bộ phận bảo vệ Hoạt động Bến xe Vinh hành khách vào bến xe, hành khách muốn theo tuyến luồng xem thơng tin bảng phòng bán vé, giá vé bán theo yêu cầu tuyến luồng hành khách Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập Quản lý bán vé điều hành xe 2.2 Cơ cở khoa học đề tài thực tiễn đề tài 2.2.1 Cơ sở khoa học đề tài Trong xu chung phát triển lĩnh vực xã hội giới, khoảng 10 năm gần ngành công nghệ thông tin đạt thành tựu vượt bậc Tin học sâu vào lĩnh vực đời sống Nó xâm nhập vào khoa học đời sống, đưa lại hiệu cao chất lượng công việc, thời gian nhân lực trí tuệ người Hiện ngành công nghệ phần mềm sử dụng rộng rãi đơn vị, quan chức năng, hỗ trợ cho công tác quản lý dễ dàng Đối với nước ta, nước đà phát triển ngành tin học góp phần tự động hố phần lớn vào cơng việc phức tạp Hệ thống quản lý phần mềm giúp ta giảm công sức, thời gian điều kiện thực công việc quản lý Trong phạm vi đề tài, em xin đưa ứng dụng thiết thực công việc quản lý bán vé điều hành xe Bến xe Vinh máy vi tính Giúp cho nhà quản lý hành khách tiếp nhận thông tin cách nhanh chóng xác Hệ thống “Quản lý Bán vé điều hành xe ” áp dụng cho Bến xe Vinh 2.2.2 Thực tiễn đề tài Hệ thống “Quản lý Bán vé điều hành xe ” Bến xe Vinh áp dụng chủ yếu dạng thủ công (sổ, bút…) việc nhập thông tin tuyến luồng xe chạy, thông tin lái xe, thông tin giá vé theo tuyến luồng Quản lý, cập nhật, trao đổi thông tin… Với cách quản lý bán vé điều hành xe hồn tồn phương pháp thủ cơng truyền thống gặp nhiều khó khăn việc lưu trữ xử lí thơng tin Bởi cần xây dựng chương trình quản lý máy để giúp việc quản lý cách xác hiệu hơn, làm giảm nhẹ phần đáng kể nhân lực công sức Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài 92 Báo cáo thực tập Quản lý bán vé điều hành xe If rssoxe.RecordCount > Then rssoxe.MoveFirst Do While Not rssoxe.EOF cbsx.AddItem rssoxe!Soxe rssoxe.MoveNext Loop Else MsgBox "Mời bạn cập nhật số xe", vbOKOnly + vbInformation, "Thông báo" End If '''Tinh phi vao Set rsphivaora = New ADODB.Recordset rsphivaora.Open "SELECT Xetaiben.tuyen, Xetaiben.soxe, Phivaora.socho, Xetaiben.ngayvao, Xetaiben.ngayxuat, Xetaiben.Giochay, Phivaora.mucphi " & _ "FROM Phivaora INNER JOIN (Soxe INNER JOIN Xetaiben ON Soxe.soxe = Xetaiben.soxe) ON (Phivaora.socho = Soxe.soghe) AND (Phivaora.tuyen = Xetaiben.tuyen) where xetaiben.ngayvao= # " & Format(Date, "mm/dd/yyyy") & " # ", kn, adOpenDynamic, adLockReadOnly Dim phivaora As Single If rsphivaora.RecordCount > Then rsphivaora.MoveFirst phivaora = Do While Not rsphivaora.EOF phivaora = phivaora + Val(rsphivaora!mucphi) rsphivaora.MoveNext Loop lbvr.Caption = rsphivaora.RecordCount lbpvr.Caption = phivaora Else lbpvr.Caption = "0" Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài 93 Báo cáo thực tập Quản lý bán vé điều hành xe lbvr.Caption = "0" End If rsphivaora.Close '''Tinh phi ben dau Dim phibendau As Single Set rsphibendau = New ADODB.Recordset rsphibendau.Open "SELECT Xetaiben.tuyen, Xetaiben.soxe, Xetaiben.ngayvao, Xetaiben.ngayxuat, Xetaiben.Giochay, Xetaiben.songay, Phibendau.sotien " & _ "FROM Xetaiben INNER JOIN Phibendau ON Xetaiben.songay = Phibendau.songay where xetaiben.ngayvao=# " & Format(Date, "mm/dd/yyyy") & " # ", kn, adOpenDynamic, adLockReadOnly phibendau = If rsphibendau.RecordCount > Then rsphibendau.MoveFirst Do While Not rsphibendau.EOF phibendau = phibendau + Val(rsphibendau!sotien) rsphibendau.MoveNext Loop lbpbd.Caption = phibendau lbtb.Caption = rsphibendau.RecordCount Else lbpbd.Caption = "0" lbtb.Caption = "0" End If rsphibendau.Close '''' Tinh tien ban ve Dim tienbanve As Single Set rstbv = New ADODB.Recordset rstbv.Open "select * from datve where ngay=# " & Format(Date, "mm/dd/yyyy") & Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập 94 Quản lý bán vé điều hành xe " # ", kn, adOpenDynamic, adLockReadOnly tienbanve = If rstbv.RecordCount > Then rstbv.MoveFirst Do While Not rstbv.EOF tienbanve = tienbanve + Val(rstbv!giave) rstbv.MoveNext Loop lbtbv.Caption = tienbanve Else lbtbv.Caption = "0" End If rstbv.Close lbtt.Caption = Str(tienbanve + phibendau + phivaora) Dim tnt As Integer Dim tnoit As Integer tnt = tnoit = Set rsngoaitinh = New ADODB.Recordset rsngoaitinh.Open "SELECT Xetaiben.tuyen, Xetaiben.soxe, Xetaiben.ngayvao, Luongchay.Noitinh " & _ "FROM Xetaiben INNER JOIN Luongchay ON Xetaiben.tuyen = Luongchay.tuyen where ngayvao=#" & Format(Date, "mm/dd/yyyy") & "#", kn, adOpenDynamic, adLockReadOnly If rsngoaitinh.RecordCount > Then rsngoaitinh.MoveFirst Do While Not rsngoaitinh.EOF If rsngoaitinh!noitinh = "Ngoại tỉnh" Then tnt = tnt + Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập 95 Else tnoit = tnoit + End If rsngoaitinh.MoveNext Loop End If lbnoit.Caption = tnoit lbnt.Caption = tnt Exit Sub End Sub 7.5 Thiết kế giao diện tìm kiếm thơng tin 7.5.1 Tìm kiếm xe theo luồng a Giao diện Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Quản lý bán vé điều hành xe 96 Báo cáo thực tập Quản lý bán vé điều hành xe b Modul chương trình + Tìm kiếm theo chức có heckbox chọn thông tin ComboBox + Thông tin hiển thị bảng thông tin c Code Dim rstt As ADODB.Recordset Dim rs As ADODB.Recordset Private Sub cbtl_Click() rstt.Filter = "tuyen='" & cbtl.Text & "'" End Sub Private Sub Form_Load() Call modulieu(rs, "Luongchay") If rs.RecordCount > Then rs.MoveFirst Do While Not rs.EOF cbtl.AddItem rs!tuyen rs.MoveNext Loop Else MsgBox "Mời bạn nhập thông tin tuyến luồng cần tìm", vbOKOnly + vbExclamation, "Thơng báo" End If Set rstt = New ADODB.Recordset rstt.Open "SELECT Soxe.soxe, Soxe.chatluongcao, Xetaiben.tuyen, Xetaiben.ngayvao, Xetaiben.ngayxuat, Xetaiben.Giochay, Luongchay.Noitinh " &_ " FROM (Soxe INNER JOIN Xetaiben ON Soxe.soxe = Xetaiben.soxe) INNER JOIN Luongchay ON Xetaiben.tuyen = Luongchay.tuyen where ngayxuat>=#" & Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập 97 Quản lý bán vé điều hành xe Format(Date, "dd/mm/yyyy") & "#", kn, adOpenDynamic, adLockReadOnly Set DataGrid1.DataSource = rstt End Sub Private Sub opall_Click() Set DataGrid1.DataSource = rstt End Sub Private Sub opc_Click() rstt.Filter = "chatluongcao='Chất lượng cao'" End Sub Private Sub opkc_Click() rstt.Filter = "chatluongcao='Không'" End Sub Private Sub opl_Click() cbtl.Enabled = True End Sub Private Sub opngoai_Click() rstt.Filter = "noitinh='Ngoại tỉnh" cbtl.Text = "" cbtl.Enabled = False End Sub Private Sub opnt_Click() rstt.Filter = "noitinh='Nội tỉnh" cbtl.Text = "" cbtl.Enabled = False End Sub Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập 98 Quản lý bán vé điều hành xe 7.5.2 Tìm kiếm xe Tên tài xế a Giao diện b Modul chương trình + Chọn thơng tin bảng chọn thơng tin + Các thơng tin cần chọn hiển thị lên bảng thông tin c Code Dim rstx As ADODB.Recordset Dim rs As ADODB.Recordset Private Sub tk() Set rstx = New ADODB.Recordset rstx.Open "SELECT Taixe.ten, Soxe.soxe, Taixe.dc, Taixe.dt " & _ "FROM Taixe INNER JOIN Soxe ON Taixe.soxe = Soxe.soxe where ten like '%" & txtt.Text & "%' and dt like '%" & txtdt.Text & "%'", kn, adOpenDynamic, Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập 99 adLockReadOnly Set DataGrid1.DataSource = rstx End Sub Private Sub Form_Load() Call modulieu(rs, "soxe") Call tk End Sub Private Sub txtdt_Change() tk End Sub Private Sub txtt_Change() Call tk End Sub 7.6 Chức in ấn 7.6.1 Giao diện Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Quản lý bán vé điều hành xe 100 Báo cáo thực tập Quản lý bán vé điều hành xe 7.6.2 Chức năng: Hiện thị thơng tin + Phí vào + Phí bến đậu + Tiền bán vé 7.6.3 Code Dim rsphivaora As ADODB.Recordset Dim rsphibendau As ADODB.Recordset Dim rstienve As ADODB.Recordset Dim rs As ADODB.Recordset Dim tien As Single Private Sub cmdin_Click() Set rsphivaora = New ADODB.Recordset rsphivaora.Open "SELECT Soxe.soxe, Xetaiben.ngayvao, Xetaiben.tuyen, Soxe.soghe, Phivaora.mucphi " & _ "FROM (Soxe INNER JOIN Xetaiben ON Soxe.soxe = Xetaiben.soxe) INNER JOIN Phivaora ON (Xetaiben.tuyen = Phivaora.tuyen) AND (Soxe.soghe = Phivaora.socho) where ngayvao=# " & Format(Date, "mm/dd/yyyy") & " #", kn, adOpenDynamic, adLockReadOnly If optpbd.Value = False And optpvr.Value = False And opttbv.Value = False Then MsgBox "Mời bạn chọn thông tin cần In", vbOKOnly + vbExclamation, "Thông báo" Exit Sub End If If optpvr.Value = True Then If rsphivaora.RecordCount > Then rpinphivaora.DataControl1.Recordset = rsphivaora rpinphivaora.lbngay.Caption = Format(Date, "dd/mm/yyyy") rpinphivaora.Restart Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài 101 Báo cáo thực tập Quản lý bán vé điều hành xe rpinphivaora.Field2.DataField = "soxe" rpinphivaora.Field3.DataField = "soghe" rpinphivaora.Field4.DataField = "tuyen" rpinphivaora.Field5.DataField = "mucphi" rpinphivaora.Show Else MsgBox "Khơng có phí vào ra", vbOKOnly + vbExclamation, "Thông báo" End If End If Set rsphibendau = New ADODB.Recordset rsphibendau.Open "SELECT xetaiben.soxe,Xetaiben.tuyen, Xetaiben.ngayvao, Xetaiben.ngayvao, Xetaiben.ngayxuat, Xetaiben.Giochay, Xetaiben.songay, Phibendau.sotien " & _ "FROM Xetaiben INNER JOIN Phibendau ON Xetaiben.songay = Phibendau.songay where ngayvao=#" & Format(Date, "mm/dd/yyyy") & "# and xetaiben.songay'0'", kn, adOpenDynamic, adLockReadOnly If optpbd.Value = True Then If rsphibendau.RecordCount > Then rpphibendau.DataControl1.Recordset = rsphibendau rpphibendau.lbngay.Caption = Format(Date, "dd/mm/yyyy") rpphibendau.Field2.DataField = "soxe" rpphibendau.Field3.DataField = "ngayvao" rpphibendau.Field4.DataField = "ngayxuat" rpphibendau.Field5.DataField = "songay" rpphibendau.Field6.DataField = "sotien" rpphibendau.Show Else MsgBox "Khơng có phí bến đậu ngày", vbOKOnly + vbInformation, "Thông báo" Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập 102 Quản lý bán vé điều hành xe Exit Sub End If End If If opttbv.Value = True Then If rstienve.RecordCount > Then If opttbv.Value = True Then rptienve.lbngay.Caption = Format(Date, "dd/mm/yyyy") rptienve.DataControl1.Recordset = rstienve rptienve.Restart rptienve.Field2.DataField = "soxe" rptienve.Field3.DataField = "ngayxuat" rptienve.Field4.DataField = "tuyen" rptienve.Field5.DataField = "soghe" rptienve.Field6.DataField = "giave" rptienve.Show End If Else MsgBox "Khơng có tiền bán vé", vbOKOnly + vbInformation, "Thơng báo" End If End If Unload Me End Sub Private Sub cmdthoat_Click() If MsgBox("Có bạn muốn khơng? ", vbOKCancel + vbInformation, "Thông báo") = vbOK Then Unload Me End Sub Private Sub Form_Load() Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài 103 Báo cáo thực tập Quản lý bán vé điều hành xe Call modulieu(rs, "soxe") Set rstienve = New ADODB.Recordset rstienve.Open "SELECT Xetaiben.tuyen, Xetaiben.soxe, Xetaiben.ngayvao, Xetaiben.ngayxuat, Xetaiben.Giochay, datve.soghe, datve.giave,datve.ngay " & _ "FROM datve INNER JOIN (Soxe INNER JOIN Xetaiben ON Soxe.soxe = Xetaiben.soxe) ON (Xetaiben.Giochay = datve.giochay) AND (Xetaiben.ngayxuat = datve.Ngaychay) AND (datve.soxe = Soxe.soxe) where ngay=#" & Format(Date, "mm/dd/yyyy") & "#", kn, adOpenDynamic, adLockReadOnly End Sub 7.6.4 Bảng in ấn chức a Chức in ấn phí vào Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Báo cáo thực tập 104 b Chức in ấn phí bến đậu c Chức in ấn tiến bán vé Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài Quản lý bán vé điều hành xe 105 Báo cáo thực tập Quản lý bán vé điều hành xe KẾT LUẬN Xây dựng phần mềm quản lý nhu cầu xuất phát từ thực tế hệ thống Tin học hoá hoạt động quản lý, giúp nhà quản lý có tầm nhìn bao qt, tìm kiếm xử lí nhanh chóng thơng tin cần nắm bắt, hiệu công việc nâng cao, chi phí thấp Sự phát triển nhảy vọt cơng nghệ thông tin tác động mạnh mẽ đến hoạt động xã hội làm thay đổi cách sâu sắc đến phong cách sống làm việc xã hội Cơng nghệ thơng tin trở thành trụ cột kinh tế tri thức, ứng dụng công nghệ thông tin vào lĩnh vực quản lý hoạt động xã hội nghiên cứu khoa học nhiều người quan tâm Phạm vi ứng dụng công nghệ thông tin ngày mở rộng nhiều lĩnh vực: Truyền thơng, đo lường, tự động hố, quản lý hoạt động người xã hội…Những lợi ích mà phần mềm ứng dụng mang lại đáng kể: xử lý thơng tin nhanh chóng, xác khoa học, giảm bớt nhân lực cơng sức, phí tổn thấp hiệu công việc nâng cao cách rõ rệt Công nghệ thông tin sâu thực tiễn quan ứng dụng Sử dụng phần mềm công nghệ thông tin phần làm giảm bớt công sức người nguồn nhân lực quản lý Bán vé điều hành xe Bến xe Vinh Giúp nhà quản lý xử lý, cập nhật, tìm kiếm nhanh chóng thông tin luồng xe chạy Nhằm hỗ trợ cho hành khách chủ phương tiện dễ dàng lưu thông Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài 106 Báo cáo thực tập Quản lý bán vé điều hành xe TÀI LIỆU THAM KHẢO Nguyễn Văn Ba (2004), Phân tích thiết kế hệ thống thơng tin, NXB Đại học Quốc Gia Hà Nội, Nhà in Đại học Quốc gia Hà Nội Nguyễn Thị Ngọc Mai (2007), Microsoft Visual Basic 6.0 & Lập trình Cơ sở liệu, NXB Lao động - Xã hội, TP Hồ Chí Minh Phạm Quang Trình (2004), Nhập mơn Cơ sở liệu, NXB Đại học Sư phạm Vinh, Nhà in Thành Vinh Đậu Quang Tuấn (2000), Tự học Lập trình Visual Basic 6.0 cách hiệu nhanh nhất, NXB Trẻ, Hà Nội Giáo viên hướng dẫn: Ths Đào Phan Vũ Sinh viên thực hiên : Hoàng Thu Hoài ... doanh tập trung vào lĩnh vực: * Tư vấn, Gia công, phát triển phần mềm: - Phần mềm kế toán - Phần mềm quản lý nhân - Phần mềm quản lý chấm công - Phần mềm tính lương - Phần mềm quản lý khách sạn,... động Bến xe Vinh CÔNG TY CỔ PHẦN XE KHÁCH NGHỆ AN ( BẾN XE VINH) QUẢN LÝ ĐIỀU HÀNH THỦ TỤC XUẤT NHẬP BẾN Bộ phận quản lý điều độ Bộ phận bán vé Bộ phận thu phí Bộ phận bảo vệ Hoạt động Bến xe Vinh... tin cách nhanh chóng xác Hệ thống Quản lý Bán vé điều hành xe ” áp dụng cho Bến xe Vinh 2.2.2 Thực tiễn đề tài Hệ thống Quản lý Bán vé điều hành xe ” Bến xe Vinh áp dụng chủ yếu dạng thủ công