Xây dựng phần mềm về công tác quản lý hồ sơ, quản lý điểm sinh viên

Lời Mở Đầu trên thế giới cũng như ở nước ta hiện nay, tin học là một ngành mũi nhọn đã và đang thâm nhập vào mọi lĩnh vực của đời sống kinh tế, xã hội. Xã hội ngày càng phát triển thì nhu cầu ứng dụng tin học càng lớn và ngược lại những thành tựu của tin học đang tác động trở lại, tạo đièu kiện phát triển nhanh chóng cho sản xuất và cho xã hội. Xuất phát từ nhu cầu thực tế khách quan cùng với sự tiến bộ của khoa học máy tính, dần dần có rất nhiều ứng dụnh tin học vào các ngành nghề khác nhau, trợ giúp con người trong hoạt động sản xuất, tiết kiệm được rất nhiều công sức và thời gian, đồng thời mang lại kết quả tin cậy và chính xác. Máy tính gần đây đã trở thành một công cụ gần gũi, thân thiết và không thể thiếu được đối với mỗi cơ quan, xí nghiệp. Song song với việc trang bị máy tính, cung cấp phần mềm và sử dụnh phần mềm là việc cấp bách hơn. Trên thực tế có rất nhiều công việc đòi hỏi phải máy tính hoá, đặc biệt là trong công tác quản lý. Vì vậy trong báo cáo thực tập này em xin đề cập đến một ứng dụng của tin học vào việc quản lý học sinh, sinh viên. Việc quản lý học sinh ,sinh viên là nhiệm vụ hàng đầu đặt ra cho các nhà giáo dục,qua đó có thể đánh giá được quá trình học tập của các sinh viên trong trường.Từ đó chúng ta có thể thấy việc đưa tin học hoá vào nhà trường là điều rất cần thiết. Chương I: Tìm hiểu về đề tài quản lý sinh viên I/ Khảo sát hệ thống hiện tại: Ngày nay cùng với sự phát triển như vũ bão của khoa học công nghệ thông tin mà máy tính đã trở nên phổ biến ở hầu hết các ngành nghề vì nhu cầu về thông tin là rất cần thiết. Xét về ngành giáo dục ta thấy việc phổ cập tin học vào trong ngành cho giáo viên và cho sinh viên mà đặc biệt là cho cán bộ quản lý giáo dục là rất cần thiết. Chính vì vậy mà việc trang thiết bị máy vi tính cho các trường đại học cũng như phổ thông đã được bộ giáo dục và đào tạo quan tâm.Tuy nhiên việc khai thác và sử dụng máy vi tính tại trường chưa thực sự mở rộng. Trên thực tế cho thấy có nhiều trường học do còn thiếu thốn nhiều về mặt kinh tế và giáo viên chuyên môn về máy tính chưa nhiều nên các công việc về hành chính quản lý hồ sơ học sinh, việc tính điểm theo các học kỳ và cả năm, công tác phân công giảng dậy, thời khoá biểu và các công tác sinh hoạt trong trường vẫn mang tính chất thủ công, tốn nhiều thời gian và công sức mà hiệu quả công việc không cao, có khi còn thiếu chính xác. Xuất phát từ những khó khăn trên mà em thấy việc xây dựng phần mềm về công tác quản lý hồ sơ, quản lý điểm sinh viên là những điều hết sức cần thiết. II/ Những đặc điểm chung về qui trình đào tạo: 1. Về mặt tổ chức Các giáo viên chủ nhiệm quản lý lớp mình dưới sự giám sát của nhà trường. Tất cả các thông tin về sinh viên (như sơ yếu lí lịch, điểm, hạnh kiểm …) đều được các giáo viên chủ nhiệm thông báo chi tiết đến ban giám hiệu nhà trường để quản lý một cách chặt chẽ nhất đối với từng sinh viên. Trong quá trình học tại trường các sinh viên phải chấp hành mọi quy tắc của nhà trường đề ra cũng như những quy định của bộ giáo dục tại tỉnh đó. Những sinh vien nào vi phạm sẽ bị kỷ luật tuỳ vào mức độ nặng hay nhẹ. Sinh viên phải đi học đầy đủ nếu ốm đau hay có vấn đề gì khác phải báo cáo hoặc có giấy phép để giáo viên chủ nhiệm hoặc giáo viên bộ môn dễ quản lý học sinh khi báo cáo lên ban giám hiệu nhà trường.Trong quá trình học, sinh viên có thể bị đình chỉ hoặc có thể xin nghỉ bằng cách bảo lưu hồ sơ do hoàn cảnh riêng. Mỗi sinh viên phải thi hành đầy đủ mọi quy tắc của lớp đề ra, phải làm đầy đủ các bài kiểm tra, nếu thiếu phải kiểm tra bù thông qua bảng tổng kết cuối năm. III/ Yêu Cầu Phạm Vi Của Đề Tài: Dựa vào những thông tin đã thu thập được và dựa vào những đặc điểm cơ bản của hệ thống quản lý sinh viên của một trường hoc nào đó, cần thực hiện quản lý nhứng thông tin sau: Quản lý hồ sơ sinh viên Quản lý điểm sinh viên A/ Quản Lý Hồ Sơ Sinh Viên: - Hồ sơ sinh viên là nơi lưu trữ tất cả các thông tin về một sinh viên như: Số TT,Họ và tên,ngày sinh, địa chỉ,quận-tỉnh-thành phố,số điện thoại (nếu có)… Trong hồ sơ sinh viên, giáo viên chủ nhiệm ghi lại chi tiết quá trình quá trình rèn luyện, học tập của sinh viên( bao gồm hạnh kiểm, học lực…) Các diễn biến về điểm, quá trình rèn luyện học tập của học sinh sẽ do giáo viên bộ môn nhập vào sổ điểm gốc. Cuối các học kỳ giáo viên chủ nhiệm làm bảng điểm tổng hợp và tiến hành phân loại mỗi sinh viên, sau đó báo cáo với ban giám hiệu nhà trường. B/ Quản Lý Điểm 1. Đánh giá, xếp loại về học lực Việc đánh giá, xếp loại về học lực của mỗi sinh viên được thực hiện theo cách tính điểm trung bình của tất cả các môn học.Các sinh viên sẽ phải lần lượt thi các môn học của từng kỳ học,và sau mỗi năm học ta căn cứ vào bảng điểm có thể tính được điểm trung bình của từng sinh viên.Từ đó cũng có thể đánh giá được học lực của mỗi sinh viên. 2. Đánh giá xếp loại hạnh kiểm Loại tốt: Được xếp loại tốt về hạnh kiểm là những sinh viên có nhận thức đúng đắn và thực hiện khá đầy đủ nhiệm vụ của một sinh viên: Có ý thức trách nhiệm cao đối với học tập, rèn luyện đạo đức nếp sống… Có tiến bộ không ngừng đạt kết quả cao về tất cả các mặt. Loại khá: Những sinh viên đạt trên mức trung bình nhưng chưa đạt mức tốt trong việc thực hiện nhiệm vụ sinh viên thể hiện thông qua các mặt rèn luyện đạo đức, học tập, lao động, hoạt động xã hội …hoặc trong các hoạt động trên có mặt hoạt động tốt có mặt chỉ đạt mức trung bình đều được xếp hạnh kiểm loại khá. Loại trung bình: Được xếp loại trung bình về hạnh kiểm là những sinh viên có ý thức thực hiện nhiệm vụ sinh viên, có tiến bộ nhất định về hạnh kiểm nhưng còn chậm, không đồng đều, chưa vững chắc, kết quả nói chung còn ở mức trung bình.Mắc một số khuyết điểm nhỏ, khi được góp ý biết nhận ra khuyết điểm nhưng chậm sửa chữa. Loại yếu: Xếp loại hạnh kiểm yếu là những sinh viênkhông đạt mức trung bình theo tiêu chuẩn trên, có những biểu hiện yếu kém, chậm tiến bộ trong những điểm đã quy định cho loại trung bình. Những sinh viên bị kỷ luật, cảnh cáo hoặc đuổi học một tuần ở học kỳ nào thì xếp loại hạnh kiểm yếu ở học kỳ đó. Loại kém: Sinh viên có những biểu hiện sai trái, nghiêm trọng và bị kỷ luật ở mức độ đuổi họch 1 năm đều xếp loại hạnh kiểm kém. 3. Khen thưởng và kỷ luật a. Khen thưởng: - Khen thưởng ở lớp: Những học sinh có biểu hiện tốt về hành vi đạo đức, về học tập, về lao động và các hoạt đông tập thể, xã hội được giáo viên chủ nhiệm khen thưởng trước lớp. - Khen toàn trường: Do hiệu trường biểu dương và tặng giấy khen đối với sinh viên xuất sắc… Ngoài ra còn có những hinh thức khen thưởng đặc biệt b. Các mức độ kỷ luật: Khiển trách trước lớp Khiển trách trước hội đồng kỷ luật nhà trường Đuổi học một tuần lễ Nhà trường lập hồ sơ kỷ luật và hội đồng kỷ luật nhà trương tuyên bố hình thức kỷ luật. IV\ Đánh Giá Hệ Thống Hiện Hành Và Nhu Cầu Tin Học Hoá Qua việc khảo sát hệ thống quản lý ở một trường nào đó ta thấy hệ thống còn thực hiện thủ công và bán thủ công nên gặp phải những nhược điểm sau: - Thời gian cho công tác tính toán và tìm kiếm về các thông tin của sinh viên, của giáo viên, lịch phân công công tác là rất lớn bởi vì các thông tin cần tim kiếm nằm ở nhiều bộ phận nên phải mất nhiều thời gian để tìm kiếm, để tập hợp lại - Không đảm bảo cung cấp thông tin kịp thời - Độ tin cậy thông tin không cao, khó đạt được độ chính xác cao do khối lượng dữ liệu khá lớn. - Mất nhiều thời gian câph nhật thông tin từng sinh viên một. Với hệ thống quản lý gồm quản lý hồ sơ sinh viên, quản lý điểm , ta thấy đây là bài toán lớn và kha phức tạp. Bài toán gồm nhiều chức năng, thông tin đầu vào và thông tin đầu ra giữa các chức năng có mối liên hệ mật thiết với nhau. Để đạt được độ chính xác cao ta cần áp dụng tin học vào trong công tác quản lý. Điều đó không những giảm bớt cho người làm công tác quản lý các tháo tác thủ công tốn kém mất nhiều thời gian và điều quan trọng hơn nó giúp cho người quản lý có thể có những thông tin nhanh chóng, chính xác từ hệ thống. Ngày nay với sự phát triển mạnh mẽ của khoa học KT – CN được ứng dụng vào nhiều ngành, nhiều cấp. Đặc biệt trong việc quản lý đã đạt được những thành tích to lớn góp phần thúc đẩy xã hội phát triển, giảm bớt mọi công việc nặng nhọc, mất nhiều thời gian băng thủ công trong việc quản lý sổ sách, giấy tờ về mọi lĩnh vực, giúp con người có nhiều thời gian vào công việc khác và phát triển trí tuệ của mình, đồng thời khai thác tiềm nằng bí ẩn, huyền diệu vốn có của máy tính … vì thế việc đưa tin học hoá vào các trường học là điều cần thiết. V. Mục Đích Của Đề Tài: Cùng với sự phát triển của xã hội thì công nghệ thông tin đã và đang triển khai các ứng dụng trên địa bàn toàn quốc, dần tiến tới tin học hoá tất cả các hoạt động trong mọi lĩnh vực của các ngành nghề. Máy tính thực sự là công cụ đáng tin cậy không thể thiếu được trong mọi hoạt động của xã hội trong thời đại thông tin hiện nay. Chính vì vậy việc quản lý sinh viên phải được tin học hoá toàn bộ, không còn phải làm theo lối thủ công để quản lý sổ sách, giấy tờ … chậm chạp trong việc khai thác thông tin và chiếm nhiều thời gian lưu trữ. Mục đích của việc xây dựng đề tài này là: - Giảm bớt thời gian ghi chép, không gâyb nhầm lẫn, thiết chính xác. - Thực hiện tìm kiếm, sửa dữ liệu rất thuận tiện - Tận dụng tối đa khả năng tính đã có - Mọi công việc cập nhật, điều chỉnh, tìm kiếm, tra cứu … đều được thực hiện nhanh chóng, chính xác, tiết kiêm thời gian Công việc của cán bộ không còn vất vả mà hiệu xuất công việc lại cao. Chương II Tìm hiểu về VisualBasic 1. Giới thiệu về ngôn ngữ VisualBasic: Khi tung ra VisualBasic 1.0 BillGates, chủ tich kiêm Tổng giám đốc Microsoft đã mô tả một đó là sản phẩm “đáng nể”. Trải qua gần 10 năm và 6 phiên bản, VisualBasic như một “công cụ dễ và mạnh để phát triển các ứng dụng Windows trong Basic ”. Điều đó hình như chưa đủ để chứng thực những phô chương trên cho đến khi bạn thực sự thấy rằng, hiện nay đang có hàng chục triệu người sử dụng và phát triển ứng dụng MS Windows. VisualBasic đã nhanh mạnh hơn và dễ sử dụng hơn VisualBasic 1.0, VisualBasic 3.0 tăng thêm các cách thức đơn giản để điều khiển những cơ sở dữ liệu mạnh nhất sắn có. VisualBasic 4.0 hỗ trợ sự phát triển 32 Bit và bắt đầu tiến trình chuyển VisualBasic thành 1 ngôn ngữ lập trình hướng đối tựng đầy đủ. VisualBasic thêm khả năng tạo tập tin thi hành (.exe) thực sự và có khả năng lập các điêù khiển riêng cho bạn. Phiên bản 6.0 mới nhất của VisualBasic kế tuch truyền thống này: những ứng dụng Windows 95/98 và Windows NT giờ đây được phát triển chỉ cần rất ít thời gian so với trước đây. Các lỗi lập trình (mối rối - bugs) không còn thương xuyên xẩy ra nữa và nếu có cũng dễ phát hiện và sửa chữa hơn. Nói đơn giản là với VisualBasic, việc lập trình dưới Windows trở nên hiệu quả hơn mà còn lý thú hơn. Đặc biệt VisualBasic cho phép bổ sung các men nu, hộp văn bản, nút lệnh, nút tuỳ chọn, các hộp kiểm tra, các hộp danh sách, thanh cuộn và các hộp tập tin, thư mục cho các của sổ trống. Người dùng có thể dùng các lưới (Gird) để quản lý dữ liệu trên bảng. Chúng ta có thể chuyền thông với các ứng dụng Windows khác và có thể là quan trọng nhất có phương phát dễ dàng để người dùng điều khiển và truy cập các cơ sở dữ liệu (những thành phần đó được VisualBasic gọi là các điều khiển Control) Có thể có nhiều cửa sổ trên màn hình. Các cửa sổ này có toàn quyền truy cập clipboard vào các thông tin trong hầu hết các ứng dụng Windows khác. Chúng ta có thể dùng VisualBasic để truyền thông với các ứng dụng khác đang chạy dưới Windows, dùng phiên bản hiện đại nhất của công nghệ COM/OLE trong Windows. 2. Lý Do Chọn VisualBasic : Bất kể làm một việc gì chúng ta cũng đềubắt đầu từ những cái hiện có mà đi lên, không phải trở về con số không rồi mới bắt đầu. Chúng ta từng làm việc trên máy tính, và ít nhất là thao tác trên Windows, tạo ra những văn bản trên word, vậy chúng ta thấy những gì? có phải đó là những giao diện màn hình(màn hình tương tác với người sử dụng) gồm các dẫy thực đơn (Menu), hộp thoại (dialog box), các nút lựa chọn (option button), các nút kiểm tra (check button), các nút lệnh (OK) (Cancel) … nếu phải học viên lập trình từ đầu, có thể nói chưa chắc chúng ta đã tạo ra những đề mục trên sau 1 đến 2 năm học. Nhưng với VisualBasic bạn đã có thể tạo ra được tất cả chúng, mà chỉ trong 1 đến 3 tháng mà thôi. Nói cách khác tất cả những gì chúng ta thấy phần mềm trong Windows chúng ta có thể tạo ra từ VisualBasic. Tuy nhiên không nói đến mặt trái của Visualbasic, thì cúng không thật khách quan khoa học. VisualBasic tuỳ thuộc hoàn toàn vào Windows, chúng ta không thể chạy các ứng dụng của VisualBasic trên một ứng dụng khác mà không phải là VisualBasic. Chương III: Phương pháp phân tích và thiết kế hệ thống * Khái niệm chung về hệ thống thông tin quản lý Hệ thống là một tập hợp các phần tử có mối ràng buộc với nhau để cùng hoạt động nhằm đạt được một số mục tiêu nhất định Hệ thống được phân chia thành nhiều cấp, tạo điều kiện thuận lợi cho việc quản lý từ trên xuống dưới, có luồng thông tin vào ra. I. Giai đoạn phân tích: Phân tích là giai đoạn quan trọng nhất trong toàn bộ quá trình phát triểnphương hướng cho toàn hệ thống.Hệ thống có đáp ứng được nhu cầu người sử dụng hay không hoàn toàn phụ thuộc vào giai đoạn phân tích.Giai đoạn này có hai nhiệm vụ chủ yếu là: - Phân tích các chức năng nghiệp vụ. - Phân tích về thực thể mối quan hệ giữa các thực thể. II. Phân tích chức năng nghiệp vụ: Trong giai đoạn này phải xác định được hệ thông cần phải làm gì ở hiện tại và tương lai. Người phân tích hệ thông về tất cả những gì hệ thống cần làm, từ đó xác định cấu trúc và đinh nghĩa chính xác các chức năng nghiệp vụ của hệ thống. Mỗi chức năng cần xác định rõ: - Chức năng này làm cái gì. - Chức năng tác động đến các đối tượng nào . - Sự kiện nào kích hoạt chức năng. - Chức năng nghiệp vụ có thể được xác định bằng cách: * Thông qua phỏng đoán người dùng: Vì không ai hiểu rõ hệ thống cần dùng trong trong tương lai hơn người sử dụng nó. Người phân tích hệ thông sẽ đặt ra những câu hỏi về hệ thống như: Quá trình diễn ra như thế nào,hệ thông đáp ưng gì…Với những cách phỏng đoán như vậy người phân tích viên sẽ rõ về hệ thốngtrong tương laimình định thiết kế sát với như thực tiễn người dùng. * Thông qua các văn bản,tài liệu về hệ thống: Ngoài những phỏng vấn người dùng,phân tích viên cần tham khảo thêm các tài liệu,giấy tờ liên quan đến hệ thống.Đó là những phản ánh đúng những hoat động,cách thức hệ thống hiện tại đang thực hiện. III. Xác định các thực thể của hệ thống: Trong phần này ta tiến hành xây dựng một cơ sở dữ liệu cho một hệ thống dựa trên những phân tích về dữ liệu đã cho ở phần trên. Mô hình quan hệ là một mô hình chuẩn cho cơ sở dữ liệu vì nó có thể cho phép người sử dụng có thể đưa ra các yêu cầu về dữ liệu mà không cần biết đến cấu trúc lưu trữ của cơ sở dữ liệu đó. Qua trình xây dựng các bảng như sau: mỗi thực thể dữ liệu của hệ thống được biểu diễn bằng một bảng, trong đó mỗi hàng là một trường dữ liệu, các cột thể hiện một thuộc tính quan trọng của trường đó như kiểu dữ liệu, độ dài giá trị mặc định …các ràng buộc cho từng trường dữ liệu hoặc giữa các trường dữ liệu trong một bảng. Ngoài những dữ liệu co sắn do các hệ quản trị dữ liệu cung cấp, ta có thể sử dụng kiểu dữ liệu tự định nghĩa. Các bảng dữ liệu được thiết lập trong cơ sở dữ liệu Access. Chúng ta đã biết, thực thể là một chủ điểm, một đối tượng hay là một sự kiện đáng quan tâm đối với việc xử lý của hệ thống. IV. Hoàn Thành Mô Hình Dữ Liệu: Sau khi xây dựng mô hình dữ liệu khái quát cho hệ thống ta tiếp tục chi tiết hoá, làm mịn từng phần, ở giai đoạn này người thiết kế phải sưu tầm đầy đủ các thuộc tính của từng thực thể và ngữ nghĩa liên kết. Các thực thể và sự liên kết được xem xét một cách đầy đủ các chi tiết cần thiết trước khi cơ sở dữ liệu xác định có thể tạo ra. Trước hết với thực thể: Chúng là những đường tương đối mà tổ chức cần lưu thông tin về chúng Chúng có tên duy nhất là những danh từ Chúng có một khoá chính xác định duy nhất các thể hiện Chúng có một số thuộc tính cần được ghi nhận Chúng phải có ít nhất một liên kết với các thực thể khác Chúng có thể phân rã thành các thực thể độc lập và các thực thể đặc tính mà chúng mô tả thực thể nhân Chúng có thể kết hợp một phần với các thực thể khác để tạo nên thực thể giao khi giữa chúng có liên kết nhiều – nhiều … Mô hình phải biểu diễn mọi thực thể đã được dùng trong tổ chức V. Sơ đồ: A. Sơ đồ chức năng nghiệp vụ: Sơ đồ chức năng nghiệp vụ là công cụ lập mô hình đầu tiên trong quá trình phân tích.Nó giúp định nghĩa các ranh giói củ hệ thống trong nghiên cứu và cung cấp các thành phần cho kỹ thuật mô hình hoá sau này. Tiến hành xây dựng: bước1: Tiếp cận từ trên xuống. bước2: Kiểm tra từ dưới lên. * Bước1: Từ chức năng lớn nhất của hệ thống ta phan rã thành các chức năng con,chức năng con thể hiện đầy đủ nhiệm vụ của chức năng cha.Nếu chức năng con còn lớn thì lại phân rã thành chức năng nhỏ nữa.mỗi chức năng con này mô tả những gì chức năng cần làm chứ không phải làm thế nào. * Bước2: Từ những thông tin hệ thống có được,người phân tích phải liệt kê ra được các chức năng không theo sự phân rã từ trên xuống và xem xét nếu không có trong hồ sơ nghĩa là sơ đồ còn thiếu và qua những kinh nghiệm bản thân,những thông tin nghiệp vụ để xem còn thiếu chức năng nào. B. Sơ đồ liên kết thực thể: Mô hình thực thể liên kết là một kỹ thuật để xác định thông tin cần cho hệ thống.Cùng với sơ đồ phân rã chức năng và sơ đồ luồng dữ liệu nó quyết định và đáp ứng của hệ thống đối với nghiẹp vụ.Sơ đồ liên kết thực thể bao gồm các bảng thuộc tính và các mối quan hệ giữa các thực thể với nhau. Thực thể: Là một chủ điểm,một nhiệm vụ, một đối tưọng. Thuộc tính: Sau khi xác định kiểu thực thể,tập hợp và bản chất của thực thể bước tiếp theo là phải xác định những thông tin nào cần phải lưu trữ cho mỗi thực thể .Thuộc tính là các đặc trưng của các thực thể biểu thị bằng các trường hoặc các cột của bảng. Có 3 loại liên kết thực thể: Một-Một Một-Nhiều Nhiều-Nhiều Một sơ đồ quan hệ thực thể nhất thiết phải ở dạng chuẩn,tối thiểu là ở dạng chuẩn ba. VI. Giai đoạn thiết kế: Mô hình liên kết những khái niệm chuẩn hoá của nó sẽ cung cấp một lý thuyết chặt chẽ về việc xây dựng cơ sở dữ liệu. Chuẩn hoá sẽ được dùng để bổ sung, củng cố các mô hình thực thể liên kết và đảm bảo rằng mọi thực thể kết hợp với các thuộc tính đúng đắn của nó, nhằm tránh sai sót trước khi chuyển mô hình sang bảng vật lý. Nếu mô hình được triển khai cẩn thận, thì các bảng trong thiết kế ở dạng chuẩn hoặc gần với dạng chuẩn. Trong trường hợp đó công việc chuẩn hoá chỉ đơn giản là việc kiểm tra các công việc trước đó. Ngược lại nếu có lỗi trong mỗ mô hình liên kết thì việc chuẩn hoá sẽ phát hiện chúng trước khi cài đặt và thi hành mô hình. Việc kiểm tra chuẩn hoá là giai đoạn cuối cùng của thiết kế và phân tích logic. Mô hình có thể chuyển thành đặc tả vật lý mà nó có thể được thực hiện bởi việc sử dụng hệ quản trị cơ sở dữ liệu nào đó. Mỗi thực thể trong mô hình trở thành một bảng. Mỗi dòng trong bảng tương ứng với thể hiện của một thực thể. Các dòng có thể theo một thứ tự bất kỳ. Các cột tương ứng với các thuộc tính của thực thể. Một cột chứa tất cả các dữ liệu về thuộc tính đơn . Giai đoạn thiết kế bắt đầu khi phân tích đã kết thúc,nó sẽ sử dụng tất cả những thông tin chi tiết từ giai đoạn phân tích để tạo ra những mô hình ở mức Logic cho hệ thống. Thiết kế một CSDL quan hệ bao gồm việc chuyển đổi những mô hình ở mức khái niệm phản ánh thế giới thực sang những dạng thể hiện khác được gọi là mô hình Logic. Về cơ bản giai đoạn thiết kế gồm hai phần: - Thiết kế CSDL. - Thiết kế giao diện và các MODULE chương trình. Chương IV Phân tích và thiết kế hệ thống: I. Giới thiệu quy trình quản lý sinh viên: Hệ thống bao gồm 3 chức năng sau: Chức năng quản lý. Tài liệu. Trợ giúp. 1. Chức năng quản lý: a. Quản lý sinh viên: Chức năng này lưu trữ danh sách các sinh viên.(SốTT,họvà tên,ngày sinh…) b. Quản lý điểm: Chức năng này lưu trữ điểm các môn học của từng sinh viên đã được nhập vào hệ thống.Khi đó người sử dụng chỉ cần vào chức năng này để biét được điểm các môn học,qua đó có thể biết được học lực của từng sinh viên ở từng kỳ,từng năm. c. Bảng mã môn học: Chức năng này giúp người sử dụng nhập các dữ liệu về các môn học của từng sinh viên vào hệ thống quản lý,cũng như nhập thêm vào danh sách hoặc xoá bỏ đi. d. Bảng mã sinh viên: Chức năng này dùng nhập thêm hoặc xoá đi dữ liệu về mã sinh viên khỏi hệ thống quản lý. 2. Tài liệu: a. Văn bản điểm: Tài liệu văn bản này giúp cho người sử dụng có cái nhìn tổng thể về điểm của từng sinh viên thông qua các số thứ tự và các môn học. Nó còn cho phép người sử dụng có thể in văn bản điểm ra qua chức năng Print,export. b. Văn bản hồ sơ sinh viên: Qua văn bản về hồ sơ của sinh viên,người sử dụng có thể nhận biết, in ra,lưu giữ để quản lý một cách tốt hơn. 3. Chức năng trợ giúp. II/Phân tích hệ thống về xử lý: 1. Biểu đồ phân rã chức năng: a. Biểu đồ phân cấp chức năng tổng quát: Biểu đồ phân cấp chức năng tổng quát Hệ thống quản lý sinh viên Tài liệu Trơ giúp Quản lý Quản lý điểm Văn bản điểm Help Văn bản hồ sơ sinh viên Quản lý sinh viên Thoát Bảng mã môn học Bảng mã sinh viên B. Biểu đồ phân rã chức năng chi tiết. Tài liệu Văn bản điểm Văn bản hồ sơ sinh viên Quản lý Quản lý điểm Quản lý sinh viên Bảng mã môn Bảng mã sinh viên Trợ giúp III/Thiết kế cơ sơ dữ liệu: (kiểu dữ liệu:Number_N, Text_T, Date/Time_D) 1. Bảng mã sinh viên: Tên trường Kiểu dữ liệu Độ rộng Ghi chú STT Text 5 Số thứ tự Ma SV Text 5 Mã SV Ho va ten Text 25 Họ và tên Ngay sinh Date Ngày sinh 2/Bảng điểm: Tên trường Kiểu dữ liệu Độ rộng Ghi chú STT T Số thứ tự Mon hoc T Môn học 3. Bảng Quản lý sinh viên Tên trường Kiểu dữ liệu Độ rộng Ghi chú STT T Số thứ tự Ma SV T Mã sinh viên Ho ten T Họ và tên Ngay sinh D Ngày sinh Đia chi T địa chỉ Quan T Quận Tinh T Tỉnh Điên thoai T Điện thoại Email T Email 4/Bảng mã môn: Tên trường Kiểu dữ liệu Độ rộng Ghi chú STT T Số thứ tự Ma mon T Mã môn học He so mon T Hệ số môn học Mon hoc T Môn học 5/Bảng hồ sơ sinh viên: Tên trường Kiểu dữ liệu Độ rộng Ghi chú STT T Số thứ tự Ma SV T Mã sinh viên Ho ten T Họ và tên Ngay sinh D Ngày sinh Đia chi T Địa chỉ Quan T Quận Tinh T Tỉnh Điên thoai T Điện thoại Email T Email 6/Bảng quản lý điểm: Tên trường Kiểu dữ liệu Độ rộng Ghi chú STT T Số thứ tự Môn hoc T Môn học Chương V: Thiết kế CODE và giao diện Code của chương trình: 1. Module và ClassModule: Option Explicit Public Function checkNull(ByVal txtvalue As String) As Boolean If txtvalue = vbNullString Then checkNull = False Else checkNull = True End If End Function Public Property Let value1(seting) 'luu giu seting trong bien cap Module mVal1 = seting End Property Public Property Let value2(seting) 'luu giu seting trong bien cap Module mVal2 = seting End Property Public Property Let value3(seting) 'luu giu seting trong bien cap Module mVal3 = seting End Property Public Function chia() If mVal2 0 Then 'kiem tra dieu kien mVal2 kahc khong. chia = mVal1 / mmVal2 Else chia = "Phep chia khong thuc hien duoc." End If End Function Public Function Cong() Cong = mmVal1 + mVal2 + mVal3 End Function Public Function Nhan() Nhan = mVal1 * mVal2 End Function 2.Code của Form mở đầu: OptionExplicit ' Reg Key Security Options... Const READ_CONTROL = &H20000 Const KEY_QUERY_VALUE = &H1 Const KEY_SET_VALUE = &H2 Const KEY_CREATE_SUB_KEY = &H4 Const KEY_ENUMERATE_SUB_KEYS = &H8 Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE+ KEY_CREATE_SUB_KEY+ KEY_ENUMERATE_SUB_KEYS+ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL ' Reg Key ROOT Types... Const HKEY_LOCAL_MACHINE = &H80000002 Const ERROR_SUCCESS = 0 Const REG_SZ = 1 ' Unicode nul terminated string Const REG_DWORD = 4 ' 32-bit number Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" Const gREGVALSYSINFOLOC = "MSINFO" Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO" Const gREGVALSYSINFO = "PATH" Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long Private Sub cmdSysInfo_Click() Call StartSysInfo End Sub Private Sub cmdOK_Click() Unload frmAbout Load frmLogin frmLogin.Show End Sub Public Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String ' Try To Get System Info Program Path\Name From Registry... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then ' Try To Get System Info Program Path Only From Registry... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then ' Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath & "\MSINFO32.EXE") "") Then SysInfoPath = SysInfoPath & "\MSINFO32.EXE" ' Error - File Can Not Be Found... Else GoTo SysInfoErr End If ' Error - Registry Entry Can Not Be Found... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox "System Information Is Unavailable At This Time", vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long ' Loop Counter Dim rc As Long ' Return Code Dim hKey As Long ' Handle To An Open Registry Key Dim hDepth As Long ' Dim KeyValType As Long ' Data Type Of A Registry Key Dim tmpVal As String ' Tempory Storage For A Registry Key Value Dim KeyValSize As Long ' Size Of Registry Key Variable '------------------------------------------------------------ ' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} '------------------------------------------------------------ rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key If (rc ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Error... tmpVal = String$(1024, 0) ' Allocate Variable Space KeyValSize = 1024 ' Mark Variable Size '------------------------------------------------------------ ' Retrieve Registry Key Value... '------------------------------------------------------------ rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) ' Get/Create Key Value If (rc ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Errors If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize - 1) ' Null Found, Extract From String Else ' WinNT Does NOT Null Terminate String... tmpVal = Left(tmpVal, KeyValSize) ' Null Not Found, Extract String Only End If '------------------------------------------------------------ ' Determine Key Value Type For Conversion... '------------------------------------------------------------ Select Case KeyValType ' Search Data Types... Case REG_SZ ' String Registry Key Data Type KeyVal = tmpVal ' Copy String Value Case REG_DWORD ' Double Word Registry Key Data Type For i = Len(tmpVal) To 1 Step -1 ' Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' Build Value Char. By Char. Next KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To String End Select GetKeyValue = True ' Return Success rc = RegCloseKey(hKey) ' Close Registry Key Exit Function ' Exit GetKeyError: ' Cleanup After An Error Has Occured... KeyVal = "" ' Set Return Val To Empty String GetKeyValue = False ' Return Failure rc = RegCloseKey(hKey) ' Close Registry Key End Function Private Sub cmdCancel_Click() End End Sub Private Sub Timer1_Timer() Dim d As Integer d = d + 20 If Me.Label3.Left > -5500 Then Me.Label3.Left = Label3.Left - d Else Me.Label3.Left = 6000 End If End Sub 3.Code của form Login: Option Explicit Dim i As Integer Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() 'set the global var to false 'to denote a failed login LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() 'check for correct password If txtUserName = "Tran Hoai Nam" And txtPassword = "8522589" Then 'place code to here to pass the 'success to the calling sub 'setting a global var is the easiest LoginSucceeded = True Unload frmLogin Unload frmAbout MDIForm1.Show MDIForm1.WindowState = 2 Else MsgBox "Ban khong the vao duoc, xin dang nhap lai!", , "Login" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub Private Sub Timer1_Timer() MsgBox ("Sorry, ban da het thoi gian.") For i = 1 To 20 Beep Next i Unload frmLogin Load frmAbout frmAbout.Show End Sub 4.Code của form MDI: Private Sub mnuHelp_Click() End Sub Private Sub InstallEngineCtl1_OnReadyStateChange(newState As Long) End Sub Private Sub MDIForm_Unload(Cancel As Integer) Load frmAbout frmAbout.Show End Sub Private Sub mnuMamonitem_Click() Load frmMamon frmMamon.Show MDIForm1.Hide End Sub Private Sub mnuMasinhvienitem_Click() Load frmMaSV frmMaSV.Show MDIForm1.Hide End Sub Private Sub mnumovanbandiemitem_Click(Index As Integer) DataReport2.Show End Sub Private Sub mnumovanbanhocsinhitem_Click(Index As Integer) DataReport1.Show End Sub Private Sub mnuQuanlyDiemitem_Click() Load frmQLD frmQLD.Show frmQLD.WindowState = 2 MDIForm1.Hide End Sub Private Sub mnuQuanlyhocsinhitem_Click() Load frmQLHS frmQLHS.Show frmQLHS.WindowState = 2 End Sub Private Sub mnuThoatitem_Click() Unload MDIForm1 Load frmAbout frmAbout.Show End Sub Private Sub RichTextBox1_Change() End Sub 5.Code của form Mamon: Option Explicit Private cn As ADODB.Connection Private mrscust As ADODB.Recordset Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Const constr = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb;Data Provider=Microsoft.Jet.OLEDB.3.51" Private Sub Form_Load() datPrimaryRS.ConnectionString = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb;Data Provider=Microsoft.Jet.OLEDB.3.51" Set grdDataGrid.DataSource = datPrimaryRS.Recordset End Sub Private Sub Form_Resize() On Error Resume Next 'This will resize the grid when the form is resized grdDataGrid.Width = Me.ScaleWidth grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 700 - picButtons.Height End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault Unload frmMamon Load MDIForm1 MDIForm1.Show End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 'This is where you would put error handling code 'If you want to ignore errors, comment out the next line 'If you want to trap them, add code here to handle them MsgBox "Data error event hit err:" & Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This will display the current record position for this recordset datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This is where you put validation code 'This event gets called when the following actions occur Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 'This is only needed for multi user apps On Error GoTo RefreshErr datPrimaryRS.Refresh Set grdDataGrid. DataSource = datPrimaryRS. Recordset ("ChildCMD") . .UnderlyingValue Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload frmMamon Load MDIForm1 MDIForm1.Show End Sub 6.Code của form MaSV: Option Explicit Private cn As ADODB.Connection Private mrscust As ADODB.Recordset Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Const constr = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb;Data Provider=Microsoft.Jet.OLEDB.3.51" Private Sub Form_Load() datPrimaryRS.ConnectionString = "Provider=MSDataShape.1;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb;Data Provider=Microsoft.Jet.OLEDB.3.51" Set grdDataGrid.DataSource = datPrimaryRS.Recordset("ChildCMD").UnderlyingValue End Sub Private Sub Form_Resize() On Error Resume Next 'This will resize the grid when the form is resized grdDataGrid.Width = Me.ScaleWidth grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 700 - picButtons.Height End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault Unload frmMaSV Load MDIForm1 MDIForm1.Show End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 'This is where you would put error handling code 'If you want to ignore errors, comment out the next line 'If you want to trap them, add code here to handle them MsgBox "Data error event hit err:" & Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This will display the current record position for this recordset datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This is where you put validation code 'This event gets called when the following actions occur Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 'This is only needed for multi user apps On Error GoTo RefreshErr datPrimaryRS.Refresh Set grdDataGrid.DataSource = datPrimaryRS.Recordset("ChildCMD").UnderlyingValue Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload frmMaSV Load MDIForm1 MDIForm1.Show End Sub 7.Code của form quản lý điểm: Option Explicit Private cn As ADODB.Connection Private mrscust As ADODB.Recordset Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Const constr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb" Private Sub Form_Load() datPrimaryRS.Visible = False datPrimaryRS.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb" Set grdDataGrid.DataSource = datPrimaryRS.Recordset End Sub Private Sub Form_Resize() On Error Resume Next 'This will resize the grid when the form is resized grdDataGrid.Height = Me.ScaleHeight - datPrimaryRS.Height - 30 - picButtons.Height End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault Unload frmQLD Load MDIForm1 MDIForm1.Show End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 'This is where you would put error handling code 'If you want to ignore errors, comment out the next line 'If you want to trap them, add code here to handle them MsgBox "Data error event hit err:" & Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This will display the current record position for this recordset datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This is where you put validation code 'This event gets called when the following actions occur Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.MoveLast grdDataGrid.SetFocus SendKeys "{down}" Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 'This is only needed for multi user apps On Error GoTo RefreshErr datPrimaryRS.Refresh Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload frmQLD Load MDIForm1 MDIForm1.Show End Sub 8.Code của form quản lý học sinh Option Explicit Private cn As ADODB.Connection Private mrscust As ADODB.Recordset Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Const constr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb" Private Sub Form_Load() datPrimaryRS.Visible = False datPrimaryRS.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Nam\Nam.mdb" Set grdDataGrid.DataSource = datPrimaryRS.Recordset End Sub Private Sub Form_Resize() On Error Resume Next 'This will resize the grid when the form is resized grdDataGrid.Height = Me.ScaleHeight - datPrimaryRS.Height - 30 - picButtons.Height End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault Unload frmQLHS Load MDIForm1 MDIForm1.Show End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 'This is where you would put error handling code 'If you want to ignore errors, comment out the next line 'If you want to trap them, add code here to handle them MsgBox "Data error event hit err:" & Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This will display the current record position for this recordset datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This is where you put validation code 'This event gets called when the following actions occur Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.MoveLast grdDataGrid.SetFocus SendKeys "{down}" Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 'This is only needed for multi user apps On Error GoTo RefreshErr datPrimaryRS.Refresh Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload frmQLHS Load MDIForm1 MDIForm1.Show End Sub II/Các Form chương trình Form Mở đầu Form Login Form MDI Form Quản lý điểm Form quản lý điểm Form Quản lý sinh viên Form quản lý sinh viên Form Bảng quản lý sinh viên Form Quản lý sinh viên Form bảng mã môn Form quản lý điểm Form bảng mã sinh viên