Lời Nói Đầu Ngày nay cùng với sự phát triển về mọi mặt của xã hội, ngành công ngệ thông tin đã trở thành một nhu cầu không thể thiếu trong đời sống con người. Là một ngành khoa khọc kỹ thuật xây dựng trên những hệ thống xử lý dữ liệu tinh sảo (Data processing system). Nền khoa khọc máy tính ngày nay đang giữ một vị trí trung tâm trong hầu hết các lĩnh vực của xã hội. Trong thời đại Công nghệ thông tin bùng nổ trên toàn cầu thì các quốc gia trên thế giới dù là phát triển hay đang phát triển đều cố gắng áp dụng tin học vào mọi mặt của đời sống xã hội. Tin học luôn có mặt mọi lúc, mọi nơi nhằm hỗ trợ cho các ngành nghiên cứu đạt được những thành tựu to lớn cũng như để hiện đại hoá quy trình quản lý sản xuất kinh doanh nhằm đạt hiệu quả kinh tế cao nhất. Chính vì vậy, trong thời gian gần đây mọi ngành nghề đã chú trọng đến việc xây dựng các phần mềm ứng dụng tin học trong công tác quản lý. Với những lợi ích hiển nhiên do Công nghệ thông tin mang lại, các nhà quản lý đã kịp thời đưa những ứng dụng tin học vào phục vụ cho công tác quản lý kinh doanh. Tuỳ thuộc vào quy mô, mục đích thị trường, mức độ phục vụ, quyền sở hữu mà ta phân tích thiết kế sao cho người quản lý nắm được nhanh chóng chính xác đồng thời giảm được các chi phí, các thao tác thủ công và đạt hiệu quả kinh tế cao nhất. Thế kỷ XXI là thế kỷ của sự phát triển khoa học kỹ thuật trong đó Tin học đóng một vai trò quan trọng, nó đạt được nhiều thành tựu to lớn. Việc áp dụng các công nghệ khoa học kỹ thuật vào đời sống của con người ngày càng tăng và không ngừng can thiệp vào hầu hết các công việc trong đời sống. Công nghệ thông tin là một trong những nghành khoa học đó. Song song với sự phát triển của công nghệ chế tạo các thiết bị máy tính thì việc các sản phẩm phần mềm ứng dụng ra đời có tính chất quyết định đối với việc áp dụng nghành khoa học này. Phần mềm tin học được ứng dụng rộng rãi trong quản lý, học tập…Nó giúp cho con người sử dụng có được những thông tin nhanh chóng và chính xác, từ đó mà chất lượng công việc đạt hiệu quả cao. Có rất nhiều sản phẩm phần mềm ra dời với các ngôn ngữ lập trình khác nhau như: Assembly, C++, Visual Basic...: Trong đó Visual Basic gắn liền với khái niệm trực quan, nghĩa là khi thiết kế chương trình bạn sẽ thấy ngay được kết quả sau từng thao tác và giao diện khi chương trình thực hiện. Visual Basic cho phép bạn chỉnh sửa đơn giản, nhanh chóng về mặt màu sắc kích thước, hình dáng của các đối tượng có mặt trong các ứng dụng. Mặc dù Windows đã xâm nhập khá rộng rãi vào nước ta, các ứng dụng trong môi trường Windows đã và xuất hiện ngày càng nhiều và vô cùng phong phú, tuy nhiên ở nước ta người ta biết Windows hiện nay chủ yếu thông qua các phần mềm ứng dụng như Word, Excel, Access. Một trong những ứng dụng của công nghệ thông tin vào việc quản lý. Mọi thông tin được thể hiện và lưu trữ dưới dạng dữ liệu và trương trình trên một hệ thống quản trị cơ sở dữ liệu, làm tăng thêm khả năng quản lý, tra cứu và tinh giản được đáng kể công việc. Với những lợi ích hiển nhiên do Công nghệ thông tin mang lại, các nhà quản lý đã kịp thời đưa những ứng dụng tin học vào phục vụ cho công tác quản lý sinh viên. công quản lý trên giấy tờ như trước đây. Tin học hoá giúp thu hẹp không gian lưu trữ, tránh được thất lạc dữ liệu, tự động hệ thống hoá và cụ thể hoá các thông tin theo nhu cầu của con người. Là một đề tài mang tính thực tiễn cao, do vậy tôi đã nhận đề tài này phần nào đưa ra được những nhận xét, đánh giá tổng thể và từ đó đưa ra hệ thống mới có nhiều chức năng áp dụng cho công tác quản lý dựa trên sự hỗ trợ của máy tính. Với vốn kiến thức đã được học tại trường, sự đam mê tin học cộng vào đó là những nhu cầu cấp thiết của xã hội trong giai đoạn mà tin học phát triển như vũ bão, chúng em mong muốn thiết kế một chương trình có thể ứng dụng được vào thực tế. Vì vậy em đã chọn đề tài: Quản lý sinh viên. Chính vì vậy đề tài này sẽ phần nào đưa ra được những nhận xét, những đánh giá tổng thể và từ đó đưa ra được hệ thống mới với các chức năng nhập, tìm kiếm, xem, sửa, xoá. Trong công tác quản lý dựa trên sự hỗ trợ của máy tính. Hệ thống quản lý sẽ được xây dựng trên ngôn ngữ Visual Basic và cả Hệ thống quản lý dữ liệu về các nhà khoa học được xây dựng trên hệ quản trị cơ sở dữ liệu Microsoft ACCESS, được đánh giá cao trong số các phần mềm quản trị CSDL trên máy PC hiện nay do sức mạnh, tính linh hoạt cùng với mọi mức người dùng và rất dễ sử dụng. Để có được những cơ sở dữ liệu cần thiết cho việc thực hiện đề tài, em đã nhận được sự giúp đỡ của Thầy cô và các bạn. Một lần nữa em xin được bày tỏ lòng kính trọng và biết ơn tới thầy cô giáo đã tận tình dạy dỗ, truyền đạt cho em những kiến thức quý báu trong suốt bốn năm học tập. Đặc biệt, em xin được bày tỏ lòng biết ơn sâu sắc tới Thầy giáo –PGSTS Đoàn Văn Ban. Trong phạm vi đồ án em không thể trình bày đ¬ược cặn kẽ về hệ thống quản lý, Do đó em chỉ nêu lên những vấn đề mà mình đã thực hiện đư¬ợc trong việc phân tích và thiết kế hệ thống xây dựng chương trình. Mặc dù có nhiều cố gắng nhưng đồ án của em không thể tránh khỏi những thiếu sót kính mong các thầy cô và bạn đưa ra ý kiến để em có thể làm việc thật tốt chuyên ngành mà em chọn. Em rất mong được sự góp ý của thầy cô và các bạn.
Mục Lục Lời Nói Đầu .3 CHƯƠNG .6 Phân Tích Yêu Cầu 1.1 Tính Cấp Thiết Của Đề Tài .6 1.2 Mục Đích Và Yêu Cầu Của Đề Tài 1.3 Khảo Sát Hệ Thống Thực Tế .7 1.3.1 Quản lý hồ sơ sinh viên 1.3.2 Quản lý lớp học 1.3.3 Quản lý môn học hệ số môn học .7 1.3.4 Quản lý điểm sinh viên 1.3.5 Cách thức tìm kiếm thơng tin học sinh CHƯƠNG .9 Phân Tích Và Thiết Kế Hệ Thống Quản Lý Sinh Viên 2.1 Phân Tích Và Thiết Kế Hệ Thống 2.1.1 Khái niệm 2.1.2 Mục đích 2.1.3 Phương pháp 10 2.1.3.1 Phân tích chức nghiệp vụ 10 2.1.3.2 Biểu đồ phân cấp chức 11 2.1.3.2.4 Biểu đồ Luồng liệu 13 2.1.3.3 Mơ hình thực thể liên kết .20 2.1.3.3.1 Phát kiểu thực thể liên kết 21 2.1.3.3.2 Phát kiểu liên kết, xác định mối quan hệ thực thể21 Biểu đồ luồng liệu ER 24 2.1.4 Cơ sở liệu .24 2.1.4.1 Khái niệm Cơ sở liệu 24 2.1.4.2 Sự cần thiết CSDL 25 2.1.4.3 Các bước xây dựng CSDL 25 2.1.4.4 Hệ quản trị CSDL 26 2.1.4.5 Phân loại sở liệu 26 2.1.4.6 Thiết kế File liệu 27 2.2 Thiết Kế Giao Diện Và Code Của Chương Trình 30 2.2.1 Giao Diện Của Chương Trình 30 2.2.1.1 Giao Diện Chính Của Chương Trình 30 2.2.1.2 Form Danh Mục Sinh Viên .31 2.2.1.3 Danh Mục Khoa 32 2.2.1.4 Form Danh Mục Lớp 33 2.2.1.5 Form Danh Mục Môn Học 34 2.2.1.7 Form Danh Mục Dân Tộc 35 2.2.1.8 Form Danh Mục Khóa Học 36 2.2.1.9 Form Danh Mục Điểm 37 2.2.1.10 Form Thống Kê Sinh Viên Theo Khoa 38 2.2.2 Code Chương Trình .38 2.2.2.1 Code From Chính 38 2.2.2.2 Code Danh Mục Sinh Viên 40 CHƯƠNG 51 Hướng Dẫn Cài Đặt Và Bảo Chì 51 3.1 Cài Đặt .51 3.2 Bảo Trì Và Cài Đặt Máy Tính 51 CHƯƠNG IV: Kết Luận 53 Tài Liệu Tham Khảo .54 Lời Nói Đầu Ngày với phát triển mặt xã hội, ngành công ngệ thông tin trở thành nhu cầu thiếu đời sống người Là ngành khoa khọc kỹ thuật xây dựng hệ thống xử lý liệu tinh sảo (Data processing system) Nền khoa khọc máy tính ngày giữ vị trí trung tâm hầu hết lĩnh vực xã hội Trong thời đại Công nghệ thơng tin bùng nổ tồn cầu quốc gia giới dù phát triển hay phát triển cố gắng áp dụng tin học vào mặt đời sống xã hội Tin học có mặt lúc, nơi nhằm hỗ trợ cho ngành nghiên cứu đạt thành tựu to lớn để đại hố quy trình quản lý sản xuất kinh doanh nhằm đạt hiệu kinh tế cao Chính vậy, thời gian gần ngành nghề trọng đến việc xây dựng phần mềm ứng dụng tin học công tác quản lý Với lợi ích hiển nhiên Công nghệ thông tin mang lại, nhà quản lý kịp thời đưa ứng dụng tin học vào phục vụ cho công tác quản lý kinh doanh Tuỳ thuộc vào quy mơ, mục trường, mức độ phục vụ, quyền sở hữu mà ta phân tích thiết kế cho người quản lý nắm nhanh chóng xác đồng thời giảm chi phí, thao tác thủ công đạt hiệu kinh tế cao Thế kỷ XXI kỷ phát triển khoa học kỹ thuật Tin học đóng vai trò quan trọng, đạt nhiều thành tựu to lớn Việc áp dụng công nghệ khoa học kỹ thuật vào đời sống người ngày tăng không ngừng can thiệp vào hầu hết công việc đời sống Công nghệ thông tin nghành khoa học Song song với phát triển công nghệ chế tạo thiết bị máy tính việc sản phẩm phần mềm ứng dụng đời có tính chất định việc áp dụng nghành khoa học Phần mềm tin học ứng dụng rộng rãi quản lý, học tập…Nó giúp cho người sử dụng có thơng tin nhanh chóng xác, từ mà chất lượng cơng việc đạt hiệu cao Có nhiều sản phẩm phần mềm dời với ngơn ngữ lập trình khác như: Assembly, C++, Visual Basic : Trong Visual Basic gắn liền với khái niệm trực quan, nghĩa thiết kế chương trình bạn thấy kết sau thao tác giao diện chương trình thực Visual Basic cho phép bạn chỉnh sửa đơn giản, nhanh chóng mặt màu sắc kích thước, hình dáng đối tượng có mặt ứng dụng Mặc dù Windows xâm nhập rộng rãi vào nước ta, ứng dụng môi trường Windows xuất ngày nhiều vô phong phú, nhiên nước ta người ta biết Windows chủ yếu thông qua phần mềm ứng dụng Word, Excel, Access Một ứng dụng công nghệ thông tin vào việc quản lý Mọi thông tin thể lưu trữ dạng liệu trương trình hệ thống quản trị sở liệu, làm tăng thêm khả quản lý, tra cứu tinh giản đáng kể cơng việc Với lợi ích hiển nhiên Công nghệ thông tin mang lại, nhà quản lý kịp thời đưa ứng dụng tin học vào phục vụ cho công tác quản lý sinh viên công quản lý giấy tờ trước Tin học hố giúp thu hẹp khơng gian lưu trữ, tránh thất lạc liệu, tự động hệ thống hoá cụ thể hố thơng tin theo nhu cầu người Là đề tài mang tính thực tiễn cao, nhận đề tài phần đưa nhận xét, đánh giá tổng thể từ đưa hệ thống có nhiều chức áp dụng cho cơng tác quản lý dựa hỗ trợ máy tính Với vốn kiến thức học trường, đam mê tin học cộng vào nhu cầu cấp thiết xã hội giai đoạn mà tin học phát triển vũ bão, chúng em mong muốn thiết kế chương trình ứng dụng vào thực tế Vì em chọn đề tài: Quản lý sinh viên Chính đề tài phần đưa nhận xét, đánh giá tổng thể từ đưa hệ thống với chức nhập, tìm kiếm, xem, sửa, xố Trong cơng tác quản lý dựa hỗ trợ máy tính Hệ thống quản lý xây dựng ngôn ngữ Visual Basic Hệ thống quản lý liệu nhà khoa học xây dựng hệ quản trị sở liệu Microsoft ACCESS, đánh giá cao số phần mềm quản trị CSDL máy PC sức mạnh, tính linh hoạt với mức người dùng dễ sử dụng Để có sở liệu cần thiết cho việc thực đề tài, em nhận giúp đỡ Thầy cô bạn Một lần em xin bày tỏ lòng kính trọng biết ơn tới thầy giáo tận tình dạy dỗ, truyền đạt cho em kiến thức quý báu suốt bốn năm học tập Đặc biệt, em xin bày tỏ lòng biết ơn sâu sắc tới Thầy giáo –PGS-TS Đoàn Văn Ban Trong phạm vi đồ án em khơng thể trình bày cặn kẽ hệ thống quản lý, Do em nêu lên vấn đề mà thực việc phân tích thiết kế hệ thống xây dựng chương trình Mặc dù có nhiều cố gắng đồ án em khơng thể tránh khỏi thiếu sót kính mong thầy cô bạn đưa ý kiến để em làm việc thật tốt chuyên ngành mà em chọn Em mong góp ý thầy cô bạn CHƯƠNG Phân Tích u Cầu 1.1 TÍNH CẤP THIẾT CỦA ĐỀ TÀI Cùng với phát triển mạnh mẽ công nghệ thơng tin với xâm nhập nhanh chóng tin học vào lĩnh vực đời sống xã hội việc sử dụng máy tính cơng tác quản lý trở thành nhu cầu cấp bách, yếu tố khơng thể thiếu nhằm nâng cao chất lượng hiệu công tác quản lý Trong lĩnh vực quản lý sinh viên việc điều chỉnh bổ xung thông tin thực khó khăn khơng rõ ràng, việc tìm kiếm thơng tin nhiều thời gian, độ xác Do việc Tin học hố hoạt động nhà trường vào “Quản lý sinh viên” ngày trở nên cần thiết Việc ứng dụng Tin học cơng tác quản lý giúp cho người khỏi lao động thủ công, nâng cao hiệu công việc, tiết kiệm nhiều thời gian 1.2 MỤC ĐÍCH VÀ YÊU CẦU CỦA ĐỀ TÀI Quản lý sinh viên công việc nhằm quản lý tất trình hoạt động học tập sinh viên trường Đại học để nâng cao công nghệ thông tin Quản lý sinh viên trường Đại học quản lý q trình học tập, có tất hồ sơ sinh viên diểm trình học tập trường lưu chương trình “Quản lý sinh viên” Trong quản lý sinh viên có nhiều đầu điểm, có nhiều mơn có điểm nhiều lần thi Chương trình “Quản lý sinh viên gồm nhiều lĩnh vực quản lý họ tên, ngày sinh, giới tính, dân tộc, nơi sinh Xây dựng chương trình Quản lý sinh viên nhằm hỗ trợ cho công tác quản lý họ tên, ngày sinh, điểm Bài toán đặt phân tích thiết kế hệ thống thơng tin vấn đề đặt phải quản lý? Và quản lý quản lý để cơng việc có hiệu quả, tiết kiệm thời gian cho cán công nhân viên 1.3 KHẢO SÁT HỆ THỐNG THỰC TẾ 1.3.1 Quản lý hồ sơ sinh viên Quản lý hồ sơ sinh viên trường Đại học vấn đề cần đề cập đến Việc quản lý hồ sơ không tốt làm ảnh hưởng đến việc theo dõi sinh viên việc liên quan đến sinh viên theo học trường sinh viên trường Quản lý hồ sơ sinh viên tốt giúp đỡ biết thông tin sinh viên Khi mà muốn biết thơng tin sử dụng hồ sơ mà quản lý để tìm thơng tin họ Chẳng hạn như: Sinh viên thuộc diện ưu tiên nào? tình trạng nghỉ học sinh viên, sinh viên chuyển lớp 1.3.2 Quản lý lớp học Lớp học đơn vị để quản lý sinh viên trường Đại học tuỳ theo trường mà lớp học có sinh viên học theo ngành khác Một lớp học thường bao gồm thông tin sau : Mã lớp, tên lớp 1.3.3 Quản lý môn học hệ số môn học Môn học đơn vị học tập sinh viên Muốn cho lớp học học mơn này, cần phải có thơng tin mơn học danh sách môn học trường 1.3.4 Quản lý điểm sinh viên Quản lý điểm trường Đại học hầu hết trường làm tốt khơng tình trạng nhầm điểm hay sai điểm Điểm trường Đại học hệ thống điểm có nhiều đầu điểm với nhiều hệ số Vì việc quản lý khó khăn, đặc biệt khâu tính điểm Hệ thống điểm trường Đại học gồm đầu điểm: Điểm lý thuyết lần 1, điểm thực hành lần 1, diểm lý thuyết lần 2, điểm thực hành lần 2, điểm trung bình học kỳ, điểm trung bình năm 1.3.5 Cách thức tìm kiếm thông tin học sinh Trong trường Đại học việc tìm kiếm vấn đề mà cần quan tâm Việc tìm kiếm sinh viên gặp nhiều khó khăn như: Các sinh viên khá, giỏi, sinh viên cán lớp CHƯƠNG Phân Tích Và Thiết Kế Hệ Thống Quản Lý Sinh Viên 2.1 PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG Phân tích hệ thống bước quan trọng trình xây dựng triển khai hệ thống quản lý thơng tin máy tính Hiệu hệ thống phụ thuộc vào kết phân tích ban đầu Nếu phân tích thiết kế hệ thống tốt sản phẩm chương trình quản lý triển khai mục đích, đối tượng có hiệu sử dụng cao Hơn nữa, chương trình sáng sủa hơn, dễ hiểu, dễ bảo trì, giúp cho ta nhẹ chi phí phần mềm Với hệ thống này, tiến hành theo hướng phân tích từ xuống (phân tích Top-Down), phân rã hệ thống từ tổng thể đến chi tiết, bước phân hoá chức hệ thống thành chức nhỏ tiến tới xây dựng mơdul chương trình nhằm xây dựng chương trình cách hiệu Sau tiến hành khảo sát hoạt động chương trình Quản lý sinh viên thực tế, mơ hình đưa với chức xử lý phân rã thành chức nhỏ sau : - Sinh viên - Khoa - Giao viên - Hồ sơ 2.1.1 Khái niệm Phân tích hệ thống công cụ kỹ thuật đại cho phép tiếp cận, tổ chức thiết kế hệ thống thông tin cách hiệu ([1]) 2.1.2 Mục đích Phân tích hệ thống nhằm mục đích thực tốt cơng việc định Trong q trình phân tích hệ thống, việc tạo sơ đồ dòng liệu đầy đủ cơng việc quan trọng Nó cung cấp cho ta phương pháp thiết lập mối quan hệ chức hệ thống với thông tin mà hệ thống sử dụng.([1]) 2.1.3 Phương pháp Sử dụng phương pháp phân tích thiết kế có cấu trúc Q trình phân tích thiết kế có giai đoạn : Giai đoạn chiến lược cần phải vạch mục tiêu hệ thống, xác định xem cần phải làm gì, làm bao lâu, có thuận lợi khó khăn Nói tóm lại cần xác định cần thiết hệ thống, mục tiêu nhân tố thành công hệ thống ([2]) Giai đoạn phân tích sâu vào phân tích chi tiết hệ thống Trước hết, người phân tích cần phải tìm hiểu khảo sát mơ hình nghiệp vụ hệ thống tại, xác định trình xử lý, đơn vị, phận xử lý dòng thơng tin liên quan đến chức xử lý Q trình thơng qua tìm hiểu thực tế Giai đoạn phân tích giai đoạn quan trọng tồn q trình phát triển, việc hệ thống có phát triển theo u cầu người dùng hay khơng hồn tồn phụ thuộc vào giai đoạn Trong giai đoạn phân tích thường có nhiều việc phải làm có hai nhiệm vụ chủ yếu : Phân tích chức nghiệp vụ Phân tích thực thể mối quan hệ chúng 2.1.3.1 PHÂN TÍCH CHỨC NĂNG NGHIỆP VỤ Mục tiêu trình đưa mơ hình xác chức nghiệp vụ phân rã chức thành chức nguyên tố Sơ đồ chức có đặc điểm : * Cho ta cách nhìn tổng quát chức năng, nhiệm vụ xử lý thông tin * Dễ thành lập, dễ hiểu 10 End Sub Private Sub Timer1_Timer() Me.Label2 = Date Me.Label3 = Time End Sub 2.2.2.2 Code Danh Mục Sinh Viên Dim rsSinhVien As New ADODB.Recordset Dim vt As Long Dim strMaCu As String Dim rsKhoa As New ADODB.Recordset Dim rsLop As New ADODB.Recordset Dim rsTonGiao As New ADODB.Recordset Dim rsKhoaHoc As New ADODB.Recordset Dim rsDanToc As New ADODB.Recordset Sub NguonKhoa() SQL = "KHOA" If rsKhoa.State = Then rsKhoa.Close rsKhoa.Open SQL, cnn, 3, Set dcboKhoa.RowSource = rsKhoa dcboKhoa.ListField = "TenKhoa" dcboKhoa.BoundColumn = "MaKhoa" End Sub Sub NguonLop() SQL = "LOP" If rsLop.State = Then rsLop.Close rsLop.Open SQL, cnn, 3, 41 Set dcboLop.RowSource = rsLop dcboLop.ListField = "TenLop" dcboLop.BoundColumn = "MaLop" End Sub Sub NguonTonGiao() SQL = "TONGIAO" If rsTonGiao.State = Then rsTonGiao.Close rsTonGiao.Open SQL, cnn, 3, Set dcboTonGiao.RowSource = rsTonGiao dcboTonGiao.ListField = "TenTonGiao" dcboTonGiao.BoundColumn = "MaTonGiao" End Sub Sub NguonDanToc() SQL = "DANTOC" If rsDanToc.State = Then rsDanToc.Close rsDanToc.Open SQL, cnn, 3, Set dcboDanToc.RowSource = rsDanToc dcboDanToc.ListField = "TenDanToc" dcboDanToc.BoundColumn = "MaDanToc" End Sub Sub NguonKhoaHoc() SQL = "KHOAHOC" If rsKhoaHoc.State = Then rsKhoaHoc.Close rsKhoaHoc.Open SQL, cnn, 3, Set dcboKhoaHoc.RowSource = rsKhoaHoc dcboKhoaHoc.ListField = "TenKhoaHoc" dcboKhoaHoc.BoundColumn = "MaKhoaHoc" End Sub 42 Sub NguonSinhVien() Dim SQL As String SQL = "SinhVien" If rsSinhVien.State = Then rsSinhVien.Close rsSinhVien.Open SQL, cnn, 3, Set txtMaSV.DataSource = rsSinhVien txtMaSV.DataField = "MaSV" Set txtTensv.DataSource = rsSinhVien txtTensv.DataField = "HoTenSV" Set txtTenBo.DataSource = rsSinhVien txtTenBo.DataField = "TenBo" Set txtTenMe.DataSource = rsSinhVien txtTenMe.DataField = "TenMe" Set txtDiaChi.DataSource = rsSinhVien txtDiaChi.DataField = "DiaChi" Set txtNgheMe.DataSource = rsSinhVien txtNgheMe.DataField = "NgheNghiepMe" Set txtDiem1.DataSource = rsSinhVien txtDiem1.DataField = "Diem1" Set txtDiem2.DataSource = rsSinhVien txtDiem2.DataField = "Diem2" Set txtDiem3.DataSource = rsSinhVien txtDiem3.DataField = "Diem3" Set txtSDT.DataSource = rsSinhVien txtSDT.DataField = "SoDienThoai" Set txtNgheBo.DataSource = rsSinhVien txtNgheBo.DataField = "NgheNghiepBo" Set txtNgaysinh.DataSource = rsSinhVien 43 txtNgaysinh.DataField = "NgaySinh" Set dcboKhoa.DataSource = rsSinhVien dcboKhoa.DataField = "MaKhoa" Set dcboLop.DataSource = rsSinhVien dcboLop.DataField = "MaLop" Set dcboTonGiao.DataSource = rsSinhVien dcboTonGiao.DataField = "MaTonGiao" Set dcboDanToc.DataSource = rsSinhVien dcboDanToc.DataField = "MaDanToc" Set dcboKhoaHoc.DataSource = rsSinhVien dcboKhoaHoc.DataField = "MaKhoaHoc" End Sub Sub GioiTinh() If rsSinhVien!GioiTinh Then optNu.Value = True Else optNam.Value = True End If End Sub Private Sub cmdCuoi_Click() rsSinhVien.MoveLast Call GioiTinh End Sub Private Sub cmdDau_Click() rsSinhVien.MoveFirst Call GioiTinh End Sub 44 Private Sub cmdGhi_Click() If IsNull(txtMaSV) Or Trim(txtMaSV) = "" Then MsgBox "Ban Phai Nhap Ma Sinh Vien", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtMaSV.SetFocus Exit Sub End If If IsNull(txtTensv) Or Trim(txtTensv) = "" Then MsgBox "Ban Phai Nhap Ten Sinh Vien", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtTensv.SetFocus Exit Sub End If If IsNull(txtTenBo) Or Trim(txtTenBo) = "" Then MsgBox "Ban Phai Nhap Ten Bo Cua Sinh Vien", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtTenBo.SetFocus Exit Sub End If If IsNull(dcboKhoa) Or Trim(dcboKhoa) = "" Then MsgBox "Ban Phai Nhap Ten Khoa", vbInformation, "Thong Bao" frmDanhMucSinhVien.dcboKhoa.SetFocus Exit Sub End If If IsNull(txtTenMe) Or Trim(txtTenMe) = "" Then MsgBox "Ban Phai Nhap Ten Me Cua Sinh Vien", vbInformation, "Thong Bao" 45 frmDanhMucSinhVien.txtTenMe.SetFocus Exit Sub End If If IsNull(dcboTonGiao) Or Trim(dcboTonGiao) = "" Then MsgBox "Ban Phai Nhap Ton Giao ", vbInformation, "Thong Bao" frmDanhMucSinhVien.dcboTonGiao.SetFocus Exit Sub End If If IsNull(txtNgaysinh) Or Trim(txtNgaysinh) = "" Then MsgBox "Ban Phai Nhap Ngay Sinh Cua Sinh Vien", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtNgaysinh.SetFocus Exit Sub End If If IsNull(txtNgheBo) Or Trim(txtNgheBo) = "" Then MsgBox "Ban Phai Nhap Nghe Cua Bo ", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtNgheBo.SetFocus Exit Sub End If If IsNull(txtNgheMe) Or Trim(txtNgheMe) = "" Then MsgBox "Ban Phai Nhap Nghe Cua Me", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtNgheMe.SetFocus Exit Sub End If If IsNull(txtSDT) Or Trim(txtSDT) = "" Then 46 MsgBox "Ban Phai Nhap So Dien Thoai Cua Sinh Vien", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtSDT.SetFocus Exit Sub End If If IsNull(dcboDanToc) Or Trim(dcboDanToc) = "" Then MsgBox "Ban Phai Nhap Dan Toc", vbInformation, "Thong Bao" frmDanhMucSinhVien.dcboDanToc.SetFocus Exit Sub End If If IsNull(txtDiaChi) Or Trim(txtDiaChi) = "" Then MsgBox "Ban Phai Nhap Dia Chi", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtDiaChi.SetFocus Exit Sub End If If IsNull(txtDiem1) Or Trim(txtDiem1) = "" Then MsgBox "Ban Phai Nhap Diem Thi Lan 1", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtDiem1.SetFocus Exit Sub End If If IsNull(txtDiem2) Or Trim(txtDiem2) = "" Then MsgBox "Ban Phai Nhap Diem Thi Lan ", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtDiem2.SetFocus Exit Sub End If If IsNull(txtDiem3) Or Trim(txtDiem3) = "" Then 47 MsgBox "Ban Phai Nhap Diem Thi Lan 3", vbInformation, "Thong Bao" frmDanhMucSinhVien.txtDiem3.SetFocus Exit Sub End If If IsNull(dcboLop) Or Trim(dcboLop) = "" Then MsgBox "Ban Phai Nhap Lop Cua Sinh Vien", vbInformation, "Thong Bao" frmDanhMucSinhVien.dcboLop.SetFocus Exit Sub End If If IsNull(dcboKhoaHoc) Or Trim(dcboKhoaHoc) = "" Then MsgBox "Ban Phai Nhap Khoa Hoc Cua Sinh Vien", vbInformation, "Thong Bao" frmDanhMucSinhVien.dcboKhoaHoc.SetFocus Exit Sub End If If IsNull(optNam & optNu) Or Trim(optNam & optNu) = "" Then MsgBox "Ban Phai Nhap Gioi Tinh", vbInformation, "Thong Bao" frmDanhMucSinhVien.optNam.SetFocus Exit Sub End If rsSinhVien.Update Call Khoamo(True) End Sub Private Sub cmdKhongGhi_Click() rsSinhVien.CancelUpdate 48 Call Khoamo(True) If vt Then rsSinhVien.AbsolutePosition = vt End Sub Private Sub cmdSau_Click() If rsSinhVien.AbsolutePosition < rsSinhVien.RecordCount Then rsSinhVien.MoveNext Call GioiTinh End Sub Private Sub cmdSua_Click() Call Khoamo(False) End Sub Private Sub cmdThem_Click() Call Khoamo(False) rsSinhVien.AddNew End Sub Private Sub cmdThoat_Click() Unload Me End Sub Private Sub cmdTruoc_Click() If rsSinhVien.AbsolutePosition > Then rsSinhVien.MovePrevious Call GioiTinh End Sub 49 Private Sub cmdXoa_Click() Dim iVT As Long If MsgBox("Ban Co Thuc Su Muon Xoa Khong?", vbYesNo + vbQuestion, "Xoa") = vbYes Then iVT = rsSinhVien.AbsolutePosition rsSinhVien.Delete If Not rsSinhVien.EOF Then If iVT < rsSinhVien.RecordCount Then rsSinhVien.AbsolutePosition = iVT lblViTri.Caption = rsSinhVien.AbsolutePosition & " / " & rsSinhVien.RecordCount Else rsSinhVien.AbsolutePosition = iVT - lblViTri.Caption = rsSinhVien.AbsolutePosition & " / " & rsSinhVien.RecordCount End If End If End If End Sub Private Sub Form_Load() Call Khoamo(True) Call NguonDanToc Call NguonKhoaHoc Call NguonKhoa Call NguonLop Call NguonTonGiao Call NguonSinhVien 50 Call cmdDau_Click End Sub Sub Khoamo(b As Boolean) txtMaSV.Locked = b txtTensv.Locked = b txtTenBo.Locked = b txtTenMe.Locked = b txtDiaChi.Locked = b txtDiem1.Locked = b txtDiem2.Locked = b txtDiem3.Locked = b txtSDT.Locked = b txtNgaysinh.Locked = b txtNgheBo.Locked = b txtNgheMe.Locked = b optNam.Enabled = Not b optNu.Enabled = Not b cmdDau.Visible = b cmdTruoc.Visible = b cmdSau.Visible = b cmdCuoi.Visible = b cmdThem.Visible = b cmdSua.Visible = b cmdXoa.Visible = b cmdThoat.Visible = b cmdGhi.Visible = Not b cmdKhongGhi.Visible = Not b dcboKhoa.Locked = b 51 dcboLop.Locked = b dcboTonGiao.Locked = b dcboDanToc.Locked = b dcboKhoaHoc.Locked = b End Sub Private Sub txtMaSV_Change() lblViTri.Caption = rsSinhVien.AbsolutePosition & " / " & rsSinhVien.RecordCount End Sub CHƯƠNG Hướng Dẫn Cài Đặt Và Bảo Chì 3.1 CÀI ĐẶT - Chương trình Quản lý sinh viên viết ngôn ngữ Visual Basic 6.0 sử dụng Hệ quản trị sở liệu Microsoft Access, cài đặt môi trường Windows 9x, WinNT… - u cầu mơi trường máy tính khách sạn đặt trung tâm cho lễ tân sử dụng, điều kiện mơi trường phải khơ thống mát - u cầu máy tính : + Cấu hình máy tính tốc độ tối thiểu 300MHZ + RAM 32MB + ổ đĩa mềm + ổ cứng tối thiểu 1GB + Máy in - Chạy file Setup.exe từ cài đặt chương trình, chương trình cài vào máy bạn 52 3.2 BẢO TRÌ VÀ CÀI ĐẶT MÁY TÍNH - Chương trình bảo trì nâng cấp dạng Version nhằm : + Điều chỉnh chức yêu cầu + Cải thiện hiệu hệ thống để hệ thống chạy tốt hơn, ổn định nhanh - Nguồn điện cung cấp cho máy tính phải đảm bảo liên tục để tránh gây cố đáp ứng liên tục khách hàng nên cần có lưu điện - Hàng ngày nên lau chùi thiết bị ngoại vi để tránh ảnh hưởng đến tuổi thọ máy Cài đặt chương trình tiện ích ví dụ NU để tự động bảo quản, sửa chữa lỗi ổ cứng chương trình báo động, diệt Virus để tránh tình trạng máy ngừng hoạt động, khơng đáp ứng kịp cho nhu cầu khách hàng 53 CHƯƠNG IV: Kết Luận Qua q trình tìm hiểu, phân tích, nghiên cứu hệ thống CSDL trường học đạt kêt sau: Đánh giá trình quản lý hệ thống phương pháp thủ cơng Phân tích biểu đồ phân cấp chưc năng, biểu đồ luồng liệu Phân tích CSDL hệ thống đưa mơ hình quan hệ bảng Xây dựng chương trình quản lý sinh viên In danh sách sinh viên 54 Tài Liệu Tham Khảo [1] Trần Thành Trai -Phân tích thiết kế hệ thống thông tin – Nhà xuất trẻ 1995 [2] Thạc Bình Cường - Phân tích thiết kế hệ thống thông tin – Bài giảng Đại học Bách Khoa Hà Nội [3] Phạm Văn ất - Hướng dẫn sử dụng Microsoft Access 97 , Nhà xuất Giáo Dục [4] Lập trình sở liệu với Visual Basic – Nhà xuất Thống kê [5] Nguyễn Thị Ngọc Mai, Nguyễn Hữu Anh - Microsoft Visual Basic Lập trình sở liệu 6.0, Nhà xuất Giáo Dục 55 ... đào tạo Quản lý hồ sơ Quản lý hồ sơ khoa ngành Giao viên Khoa Sinh viên Quản lý điểm Quản lý thành tích Điểm thi lần Điểm thi lần Quản lý mơn học Quản lý khố Quản lý lớp học Quản lý giáo viên Tìm... Việc quản lý hồ sơ không tốt làm ảnh hưởng đến việc theo dõi sinh viên việc liên quan đến sinh viên theo học trường sinh viên trường Quản lý hồ sơ sinh viên tốt giúp đỡ biết thông tin sinh viên. .. Quản lý mô học Chức Quản lý môn học phân rã thành chức là: Quản lý lớp học, Quản lý giáo viên 20 Đáp ứng yêu cầu Yêu cầu học Sinh viên Quản lý lớp học 3.1 Môn học Giáo viên dạy Quản lý giáo viên