MỤC LỤC LỜI NÓI ĐẦU Chương KHẢO SÁT THỰC TRẠNG CÔNG VIỆC TUYỂN SINH Ở TRƯỜNG PTTH CHUYÊN NGUYỄN TRÃI - HẢI DƯƠNG 1.1 KHẢO SÁT HỆ THỐNG 1.2 TÌM HIỂU CÔNG TÁC TUYỂN SINH CỦA TRƯỜNG 1.2.1 Công tác tuyển sinh 1.2.2 Điều kiện dự thi 11 1.2.3 Cách tính điểm xác định điểm chuẩn 11 1.2.4 Điều kiện xét tuyển điều kiện trúng tuyển 12 1.3 MỘT SỐ BIỂU MẪU TRONG QUÁ TRÌNH TUYỂN SINH 12 1.4 MỘT SỐ NHẬN XÉT VỀ HỆ THỐNG HOẠT ĐỘNG THEO QUY CÁCH CŨ 22 1.5 YÊU CẦU ĐỐI VỚI HỆ THỐNG MỚI 22 Chương PHÂN TÍCH HỆ THỐNG 23 2.1 PHÂN TÍCH YÊU CẦU 23 2.2 TỔNG QUAN VỀ NGÔN NGỮ PHÂN TÍCH THIẾT KẾ HĐT BẰNG UML 23 2.2.1 Giới thiệu ngôn ngữ mô hình hóa hệ thống UML 23 2.2.2 Mục đích ngôn ngữ mô hình hóa UML 23 2.2.3 Cấu trúc ngôn ngữ mô hình hóa UML 24 2.2.4 Lớp gói ngôn ngữ mô hình hóa UML 25 2.2.5 CÁC TÁC NHÂN VÀ CÁC UC CỦA HỆ THỐNG 26 2.3 BIỂU ĐỒ UC 27 2.4 ĐẶC TẢ CÁC UC 28 2.5 BIỂU ĐỒ CHUYỂN TRẠNG THÁI 34 2.6 BIỂU ĐỒ HOẠT ĐỘNG 34 2.7 BIỂU ĐỒ HỢP TÁC 37 2.8 THIẾT KẾ LỚP 38 Chương THIẾT KẾ CHƯƠNG TRÌNH 40 3.1 DANH SÁCH CÁC THỰC THỂ VÀ THUỘC TÍNH TƯƠNG ỨNG 40 3.2 THIẾT KẾ CƠ SỞ DỮ LIỆU 41 3.3 THIẾT KẾ GIAO DIỆN VÀO CHƯƠNG TRÌNH 46 3.3 THIẾT KẾ GIAO DIỆN VÀO CHƯƠNG TRÌNH 47 3.3.1 Các form “Hệ thống” 50 3.3.2 Các form “Cập nhật” 52 Chương CÀI ĐẶT CHƯƠNG TRÌNH 60 4.1 GIỚI THIỆU NGÔN NGỮ 60 4.1.1 Giới thiệu chung Access 60 4.1.2 Ngôn ngữ lập trình Visual Basic 6.0 61 4.2 CÀI ĐẶT CHƯƠNG TRÌNH 62 KẾT LUẬN 63 TÀI LIỆU THAM KHẢO 64 PHỤ LỤC 65 LỜI NÓI ĐẦU Ngày nay, tin học sâu vào ngành nghề lĩnh vực khác đời sống xã hội Đặc biệt ứng dụng công tác quản lý Xã hội ngày phát triển công việc quản lý trở lên phức tạp Cách quản lý dựa kinh nghiệm, trực giác, giấy tờ, sổ sách không đem lại hiệu mong muốn cần phải thiết lập phương thức quản lý đại Tin học đáp ứng điều Vì thế, việc áp dụng tin học vào công tác quản lý đơn vị kinh tế, hành chính, trường học,… việc làm tất yếu Đề tài “Quản lý tuyển sinh” không mẻ hệ thống chương trình quản lý, song địa phương, điều kiện phát triển có yêu cầu riêng sản phẩm phần mềm cho đảm bảo tính thực đáp ứng nhu cầu người sử dụng sản phẩm.Với thực tế khảo sát trình tuyển sinh trường PTTH chuyên Nguyễn Trãi- Hải Dương em làm đồ án: “Xây dựng chương trình quản lý tuyển sinh vào lớp 10 trường chuyên Nguyễn Trãi- Hải Dương” Mục đích đồ án nhằm giúp làm giảm bớt công đoạn công tác tuyển sinh trường: Đỡ vất vả, đỡ tốn thời gian, giảm nhân lực có độ xác cao Mặc dù em cố gắng chắn đồ án em không tránh khỏi thiếu sót Em mong góp ý thầy cô bạn để đồ án em hoàn thiện Em xin chân thành cảm ơn! Chương KHẢO SÁT THỰC TRẠNG CÔNG VIỆC TUYỂN SINH Ở TRƯỜNG PTTH CHUYÊN NGUYỄN TRÃI - HẢI DƯƠNG 1.1 KHẢO SÁT HỆ THỐNG Trường PTTH chuyên Nguyễn Trãi trường THPT khác, hàng năm thường tổ chức tuyển sinh học sinh vào trường.Vấn đề tuyển sinh liên quan đến nhiều đối tượng, đơn vị yêu cầu tổ chức, đơn vị phối hợp chặt chẽ để công tác tuyển sinh nhà trường đạt kết cao Thực tế, số lượng học sinh đăng kí dự thi vào trường hàng năm lớn nên công tác tuyển sinh trường gặp nhiều khó khăn Chính lý trên, việc hiểu biết cách tổng quan toán tuyển sinh quan trọng cần phải có phân tích thiết kế hệ thống cách rõ ràng Trường PTTH chuyên Nguyễn Trãi thành lập vào năm 1984 Với nhiệm vụ, mục tiêu trường phát hiện, khơi nguồn, bồi dưỡng học sinh giỏi phục vụ chiến lược đào tạo nhân tài cho địa phương đất nước Suốt 23 năm phấn đấu trưởng thành, trải qua nhiều thời kì, nhiều khó khăn thử thách, hệ thầy trò góp công xây dựng truyền thống dạy tốt, học tốt Những năm gần đây, nghiệp đào tạo, bồi dưỡng học sinh giỏi, nhà trường xếp thứ toàn quốc, với năm đứng thứ toàn quốc số lượng học sinh giỏi quốc gia (năm 2002 đoạt 72 giải, năm 2007 đoạt 59 giải) Hàng năm nhà trường đoạt từ đến giải quốc gia, có học sinh giỏi quốc tế khu vực châu Á - Thái Bình Dương Để bổ sung thêm vào đội ngũ học sinh, hàng năm trường có tổ chức thi tuyển học sinh vào lớp 10 trường khối chuyên: - Chuyên Tin - Chuyên Hoá - Chuyên Lý - Chuyên Toán - Chuyên Văn - Chuyên Anh - Chuyên Sử - Chuyên Địa - Chuyên Sinh Bộ máy tổ chức nhà trường bao gồm: Ban giám hiệu (Một hiệu trưởng ba hiệu phó), phòng hành chính, tổ môn, phòng văn thư, phòng ứng dụng công nghệ thông tin, phòng hoà mạng, phòng thực hành thí nghiệm, thư viện phát huy hiệu phục vụ tốt nhu cầu giảng dạy giáo viên học tập học sinh Trong trình tuyển sinh ban giám hiệu phòng hành (Hội đồng tuyển sinh) người tham gia trực tiếp vào công tác tuyển sinh Hội đồng tuyển sinh: Có nhiệm vụ thu nhận hồ sơ, phân loại tổng hợp số lượng thí sinh dự thi, đánh SBD, phòng thi, địa điểm, gửi giấy báo thi, đánh phách, nhập điểm, tổng hợp điểm, lên danh sách trúng tuyển, tiếp nhận đơn xin phúc khảo cuối tổng hợp kết phúc khảo Hội đồng tuyển sinh bao gồm: - Một chủ tịch hội đồng tuyển sinh - Ba phó chủ tịch hội đồng đồng thời chủ tịch hội đồng coi thi chủ tịch hội đồng chấm thi - Và thành viên hội đồng Chủ tịch hội đồng tuyển sinh: Là người theo dõi, kiểm tra trình tuyển sinh đưa định, đạo chung theo tiêu, chế tuyển sinh hàng năm sở GD_ĐT, đánh SBD, phòng thi, xếp địa điểm thi, lên lịch thi, phê duyệt định điểm chuẩn thí sinh Chủ tịch hội đồng coi thi: Chỉ đạo kiểm soát việc coi thi trình tuyển sinh Phân công giáo viên vào địa điểm thi, quản lý việc coi thi chung địa điểm Tổng hợp số lượng thí sinh tham gia dự thi môn thi tổng số thi tương ứng Chủ tịch hội đồng chấm thi: Đánh phách, dọc phách bố trí giáo viên chấm tổng hợp kết thi thí sinh Các thành viên khác hội đồng tuyển sinh: Thu nhận hồ sơ gửi giấy báo tới thí sinh Giáo viên tổ môn: Chỉ có trách nhiệm giảng dạy tham gia vào công tác coi, chấm thi trình tuyển sinh 1.2 TÌM HIỂU CÔNG TÁC TUYỂN SINH CỦA TRƯỜNG 1.2.1 Công tác tuyển sinh Tháng hàng năm, có kết kỳ thi tốt nghiệp THCS trường bắt đầu tiếp nhận hồ sơ đăng kí dự thi thí sinh Quá trình tuyển sinh gồm công đoạn: 1.2.1.1 Nhận hồ sơ đăng ký dự thi - Căn vào ngày thi dự kiến, hội đồng tuyển sinh có thông báo thời gian thu nhận hồ sơ “đăng ký dự thi” thí sinh Trong giai đoạn này, phòng hành có nhiệm vụ thu nhận, kiểm tra hồ sơ theo chuẩn sở Giáo dục Đào tạo trả lại hồ sơ không đủ điều kiện dự thi - Sau cùng, phòng hành tổng hợp hồ sơ in danh sách thí sinh đăng kí dự thi theo khối chuyên gửi cho chủ tịch hội đồng tuyển sinh để “lên kế hoạch thi” 1.2.1.2 Lên kế hoạch thi Công việc bắt đầu công đoạn “tiếp nhận hồ sơ đăng kí dự thi” kết thúc Công việc gồm giai đoạn: - Đánh số báo danh: Từ danh sách thí sinh đăng kí dự thi theo khối chuyên, hội đồng tuyển sinh tiến hành chia phòng thi cho khối, đánh số báo danh thí sinh theo khối, SBD đánh từ xuống theo vần α, β - Xếp phòng thi: Các thí sinh đánh SBD phân vào phòng thi theo khối chuyên theo thứ tự từ SBD nhỏ Số thí sinh quy định cho phòng thi 25 người - Xác định địa điểm thi: Căn vào số lượng phòng thi, hội đồng tuyển sinh liên hệ tìm hiểu lên danh sách địa điểm thi Sau bố trí phòng thi vào địa điểm - Gửi giấy báo thi tới thí sinh: Trong giấy báo thi có thông báo tới thí sinh SBD, phòng thi, địa điểm ngày tập trung để làm thủ tục thi - Liên hệ lên danh sách giáo viên coi thi, bố trí giáo viên vào vị trí nhiệm vụ địa điểm thi Sau đó, in danh sách giáo viên coi thi địa điểm 1.2.1.3 Tổ chức thi - Bố trí giáo viên coi thi vào vị trí tương ứng theo môn thi địa điểm phòng thi - In phiếu thu cho phòng thi 1.2.1.4 Chấm thi - Mỗi thí sinh phải thực thi toán, văn môn chuyên - Sau kỳ thi hoàn thành, chủ tịch hội đồng coi thi tổng hợp số lượng thi, lên danh sách thí sinh tham gia môn thi Và toàn thi thí sinh tổng hợp thành túi thi theo môn thi giao cho chủ tịch hội đồng tuyển sinh - Chủ tịch hội đồng tuyển sinh giao cho chủ tịch hội đồng chấm thi để tiến hành đánh phách, dọc phách giao thi cho tổ chuyên môn chấm thi - Phách đánh tự động ngẫu nhiên với môn thi 10 1.2.1.5 Lên điểm xác định điểm chuẩn - Lên bảng điểm cho thí sinh: Giáo viên môn chấm thi xong nộp cho hội đồng tuyển sinh Hội đồng tuyển sinh có nhiệm vụ ghép phách nhập điểm cho thí sinh, tổng hợp đưa danh sách điểm - Xác định điểm chuẩn cho môn chuyên: Căn vào bảng điểm, tiêu tuyển sinh trường, hội đồng tuyển sinh đưa điểm chuẩn khối chuyên 1.2.1.6 Thông báo kết thi - In giấy báo điểm gửi kết thi tới thí sinh 1.2.2 Điều kiện dự thi Những thí sinh đăng kí dự thi gọi đủ điều kiện phải đạt đầy đủ yêu cầu sau: - Điểm trung bình tổng kết môn học bốn năm cấp phải đạt từ trở lên, riêng điểm tổng kết môn đăng kí thi chuyên lớp phải từ 8.0 trở lên - Xếp loại hạnh kiểm năm từ trở lên - Xếp loại tốt nghiệp phổ thông sở phải đạt từ trở lên tốt nghiệp vào năm tham gia thi tuyển vào chuyên 1.2.3 Cách tính điểm xác định điểm chuẩn Bài thi văn, toán chung dành cho tất khối chuyên tính hệ số 1, riêng thi môn chuyên tính hệ số Điểm xét tuyển thí sinh tổng điểm thi điểm khuyến khích thí sinh Điểm khuyến khích tính cho thí sinh đạt từ giải ba tỉnh trở lên với môn thi chuyên, học sinh năm liền đạt học sinh giỏi có tốt nghiệp loại giỏi Thí sinh thuộc đối tượng có điểm khuyến khích tương ứng điểm không điểm 11 Điểm chuẩn ngưỡng xét trúng tuyển thí sinh Nó xác định cách xét điểm dần từ cao đến thấp thí sinh đủ điều kiện xét tuyển đủ tiêu đề 1.2.4 Điều kiện xét tuyển điều kiện trúng tuyển Thí sinh gọi đủ điều kiện xét tuyển thực đủ thi, điểm 2, riêng điểm môn chuyên phải đạt từ trở lên Thí sinh trúng tuyển người có tổng điểm lớn điểm chuẩn Nếu nhiều thí sinh có điểm điểm chuẩn ưu tiên người có điểm thi chuyên cao 1.3 MỘT SỐ BIỂU MẪU TRONG QUÁ TRÌNH TUYỂN SINH a Biểu mẫu 1: Danh sách thí sinh đăng kí dự thi - Đây danh sách tổng hợp thí sinh đăng kí dự thi theo môn chuyên - Thông tin bảng bao gồm toàn thông tin cần thiết thí sinh đăng kí tham gia thi 12 TUYỂN SINH VÀO LỚP 10 CỘNG HOÀ XÃ HỘI CHỦ NGHĨA VIỆT NAM Trường PTTH chuyên Độc lập - Tự - Hạnh phúc Nguyễn Trãi- Hải Dương Năm thi:… Khoá ngày:…./.…/… DANH SÁCH THÍ SINH ĐĂNG KÍ DỰ THI Khối thi:… Từ số báo danh… Đến số báo danh… SBD Họ Ngày Nơi Giới Trường Dân Học Hạnh Loại Điểm Dân tên sinh sinh tính tộc lực kiểm TN KK tộc … … … … … … … … … … … … Tổng số thí sinh đăng kí dự thi:… Hải Dương, ngày … tháng… năm… CHỦ TỊCH HỘI ĐỒNG COI THI (Kí tên đóng dấu) b Biểu mẫu 2: Danh sách phòng thi - Danh sách cung cấp thông tin thí sinh phòng thi Thường dán địa điểm thi, giúp thí sinh biết qua thông tin bạn thi phòng vị trí (STT) phòng thi - Danh sách phòng thi có mẫu sau: 13 - Form “Cập nhật khối chuyên” Cập nhật thông tin khối chuyên bao gồm: Mã khối, tên khối - Form “Cập nhật địa điểm” Thông tin địa điểm cập nhật sau phòng thi số lượng phòng xác định 55 - Form “Cập nhật tiêu tuyển sinh” Chỉ tiêu tuyển sinh xác định khối Nó số lượng thí sinh trúng tuyển Chỉ tiêu tuyển sinh thay đổi theo năm, bảng cập nhật vào mùa thi Chương trình em lấy tiêu tuyển sinh năm 2006 năm thi gần Đây để xác định điểm chuẩn kết đỗ trượt thí sinh 56 - Form “Bảng kết thi” Sau có kết thi thí sinh, vào điểm thi vào tiêu tuyển sinh khối chuyên trường để từ đưa thông tin thí sinh trúng tuyển theo khối chuyên 57 - Form “Nhập điểm phúc khảo” Khi có danh sách điểm thí sinh theo khối chuyên, thí sinh thấy điểm thi không với khả làm có quyền phúc khảo thi, cán chấm thi có nhiệm vụ chấm lại thi đưa danh sách thí sinh có yêu cầu phúc khảo thi với số điểm phúc khảo tương ứng 58 59 Chương CÀI ĐẶT CHƯƠNG TRÌNH 4.1 GIỚI THIỆU NGÔN NGỮ 4.1.1 Giới thiệu chung Access Microsoft Access hệ quản trị có đầy đủ tính định nghĩa liệu, xử lý liệu kiểm soát liệu cần thiết để quản lý lượng liệu lớn Cũng yêu cầu Microsoft Access kiểm tra mối quan hệ hợp lệ tệp bảng CSDL Ngoài ra, Microsoft Access ứng dụng cao Microsoft Window, sử dụng tất phương tiện chế trao đổi liệu tự động (DDE-dynamic date exchange) chúng liên kết đối tượng (OLE-object linking and embeding ) DDE cho phép thực hàm trao đổi liệu Microsoft Access ứng dụng dựa Window khác có hỗ trợ DDE với ứng dụng khác Macro Access Basic, OLE khả cao cấp Window cho phép liên kết đối tượng nhúng đối tượng vào CSDL Microsoft Access Microsoft Access công cụ hỗ trợ để phát triển ứng dụng CSDL Nó có phương tiện phát triển sở ứng dụng tiên tiến để xử lý liệu thông dụng khác Có lẽ đặc trưng bật Microsoft Access khả xử lý liệu bảng tính, tệp văn bản, CSDL khác như: Pradox, Btrieve, Foxpro số CSDL SQL hỗ trợ chuẩn ODBC nghiã Microsoft Access dùng để tạo ứng dụng Window mà xử lý liệu máy tính lớn Microsoft Access có sẵn công cụ hữu hiệu tiện lợi để tự động sản sinh chương trình cho hầu hết toán thường gặp quản lý, thống kê, kế toán Với Access người dùng viết câu lệnh cụ thể mà cần tổ chức liệu thiết kế yêu cầu, công việc cần giải Sáu đối tượng, công cụ mà Access cung cấp là: Bảng (Table), Truy vấn (Query), Biểu mẫu (Form), Báo cáo (Report), Macro Module 60 4.1.2 Ngôn ngữ lập trình Visual Basic 6.0 Visual Basic công cụ lập trình trực quan Microsoft, giúp ta xây dựng cách nhanh hiệu ứng dựng Windows Khác với môi trường lập trình hướng thủ tục trước Visual Basic môi trường lập trình hướng đối tượng Windows Visual Basic không cung cấp công cụ hoàn chỉnh để đơn giản hoá việc triển khai lập trình ứng dụng, mà Visual Basic cung cấp cho bạn công cụ kết nối CSDL cách thật dễ dàng Khi bạn thiết kế chương trình Visual Basic bạn phải trải qua hai bước là: 1.Thiết kế giao diện: Thiết kế giao diện thiết kế hình dạng Form, việc bố trí điều khiển 2.Viết lệnh cho điều khiển: Dùng lệnh Visual Basic để quy định cách ứng xử cho Form cho Control Giới thiệu sơ lược kỹ thuật kết nối CSDL DAO (Data Acess Objects): Là kỹ thuật kết nối CSDL riêng Microsoft Kỹ thuật dùng với Jet Database Engine Ưu điểm kỹ thuật tính dễ dùng, nhanh chóng tiện lợi Tuy nhiên DAO liên kết với hệ quản trị CSDL Microsoft Acess .ODBC (Open Database Connectivity): Được thiết kế chương trình kết nối với nhiều loại CSDL mà dùng phương cách Nó giúp cho lập trình viên sử dụng phương thức để truy cập vào hệ quản trị CSDL Hơn thế, nâng cấp lên hệ quản trị CSDL cao sửa đổi chương trình .RDO (Remote Data Object): Được thiết kế để giải khó khăn ODBC Cách lập trình với RDO đơn giản DAO, khả ODBC RDO cho phép nhiều chương trình kết nối với CSDL Tuy nhiên RDO không sử dụng nhiều 61 .ADO (ActiveX Data Objects): ADO kỹ thuật lập trình kết nối sở liệu phát triển gần VB ADO cho phép ta làm việc với loại nguồn liệu (data sources), không thiết phải CSDL Microsoft Acess hay SQLServer Data sources danh sách địa Email, hay file text hàng record gồm fields ngăn cách dấu phẩy hay dấu tab Không giống kỹ thuật truy nhập CSDL khác VB (RDO, DAO) ADO cung cấp cho người lập trình nhiều chọn lựa việc truy xuất liệu Mặt khác, ADO không truy cập trực tiếp đến sở liệu, ADO làm việc với tầng thấp OLEDB Provider OLEDB Provider có nhiệm vụ truy xuất đến nhiều loại liệu khác nhau, sau trình bày CSDL ngược lại đến ADO Thuận lợi ADO thay đổi OLE DB provider Nếu DAO ta dùng thẳng tên CSDL Microsoft Acess ADO cho ta nối với CSDL qua Connection cách định Connection String Với kĩ thuật kết nối sở liệu MS Access đề tài em sử dụng ADO để thao tác với sở liệu 4.2 CÀI ĐẶT CHƯƠNG TRÌNH Trước chạy VB 6.0, ta vào Tools →Xps→Setup.exe→ Ok 62 KẾT LUẬN ĐÁNH GIÁ KẾT QUẢ Trong thời gian làm đồ án tốt nghiệp nhờ nỗ lực thân giúp đỡ tận tình thầy cô giáo bạn, đặc biệt cô giáo Phạm Bích Trà người trực tiếp hướng dẫn em, em hoàn thành đồ án: “Xây dựng chương trình quản lý tuyển sinh vào lớp 10 trường chuyên Nguyễn TrãiHải Dương” với kết đạt Chương trình đáp ứng số yêu cầu công tác quản lý tuyển sinh: - Có tính bảo mật tương đối phân quyền người sử dụng - Cập nhật quản lý thông tin đầy đủ, xác - Tìm kiếm thông tin nhanh HƯỚNG PHÁT TRIỂN - Quan tâm tới việc bắt lỗi làm mịn chương trình 63 TÀI LIỆU THAM KHẢO KS Đinh Xuân Lâm_Những thực hành sở liệu Visual Basic bản_Nhà xuất thống kê Phạm Hữu Khang_ Tham khảo nhanh Visual Basic 6.0_ Nhà xuất thống kê Huỳnh Văn Đức, Hoàng Đức Hải_Giáo trình nhập môn UML_ Nhà xuất lao động Phân tích thiết kế HĐT UML_ Nhà xuất giáo dục www.kh-sdh.udn.vn/zipfiles/So5/8_voduythanh.doc www.thuvien-ebook.com/forums/showthread.php?t=8731 - 79k – 64 PHỤ LỤC Một số modul quan trọng chương trình: Modul tính điểm chuẩn kiểm tra đỗ/ trượt thí sinh: Public Sub CapNhatKetQua() Const hso = Dim SQL As String SQL ="SELECT SBD.SBD, ThiSinh.HoDem, ThiSinh.Ten, ThiSinh.DiemKhuyenKhich " & _ "FROM SBD INNER JOIN ThiSinh ON SBD.IDThiSinh = ThiSinh.IDThiSinh ORDER BY SBD.SBD" Dim Rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Rs.CursorLocation = adUseClient rs1.CursorLocation = adUseClient Call Connect Rs.Open SQL, Dim SBD As String, hoten As String, dkk As Single, dt As Single, dv As Single, dc As Single, tong As Single Dim s As String Dim d, dpk As Single SQL = "DELETE * FROM KetQua" con.Execute SQL While (Not Rs.EOF) SBD = CStr(Rs(0).value) hoten = CStr(Rs(1).value) & " " & CStr(Rs(2).value) 65 If (Not IsNull(Rs(3).value)) Then dkk = CSng(Rs(3).value) Else dkk = End If Dim i As Integer i=0 SQL = "SELECT DiemThi.IDMon, DiemThi.Diem " & _ " FROM SBD INNER JOIN DiemThi ON SBD.SBD = DiemThi.SBD " & _ "WHERE (((SBD.SBD)='" & SBD & "'));" rs1.Open SQL, While (Not rs1.EOF) s = CStr(rs1(0).value If IsNull(rs1(1).value) Then d=0 Else d = CSng(rs1(1).value) End If If s = "T" Then dt = d ElseIf s = "V" Then dv = d Else i=i+1 66 dc = dc + d End If rs1.MoveNext Wend If i Then dc = dc / i Else dc = d End If tong = dv + dt + dkk + dc * hso SQL = "INSERT INTO KetQua(SBD,HoTen,DToan,DVan,DChuyen,DKhuyenKhich,TongDiem) " & _ "VALUES('" & SBD & "','" & hoten & "'," & dt & "," & dv & "," & dc & "," & dkk & "," & tong & ")" con.Execute SQL dc = rs1.Close Rs.MoveNext Wend Rs.Close 'KIEM TRA DO TRUOT Dim rs2 As New ADODB.Recordset Dim rs3 As New ADODB.Recordset Dim rs4 As New ADODB.Recordset rs2.CursorLocation = adUseClient 67 rs3.CursorLocation = adUseClient rs4.CursorLocation = adUseClient SQL = "SELECT KhoiChuyen.IDKhoi, ChiTieuTS.ChiTieuTuyenSinh FROM KhoiChuyen INNER JOIN ChiTieuTS ON KhoiChuyen.IDKhoi = ChiTieuTS.IDKhoi WHERE (((KhoiChuyen.IDKhoi)'KC'))" rs2.Open SQL, con, 1, Dim chiTieu As Integer Dim maKhoi As String While (Not rs2.EOF) maKhoi = CStr(rs2(0).value) chiTieu = CLng(rs2(1).value) SQL = "SELECT TOP " & chiTieu & " KetQua.SBD, ThiSinh.IDKhoi, KetQua.DToan, KetQua.DVan, KetQua.DChuyen, KetQua.TongDiem,KetQua.diemchuan " & _ "FROM (SBD INNER JOIN (KhoiChuyen INNER JOIN ThiSinh ON KhoiChuyen.IDKhoi = ThiSinh.IDKhoi) ON SBD.IDThiSinh = ThiSinh.IDThiSinh) INNER JOIN KetQua ON SBD.SBD = KetQua.SBD " & _ "WHERE (((ThiSinh.IDKhoi)='" + maKhoi + "') AND ((KetQua.DToan)>=2) AND ((KetQua.DVan)>=2) AND ((KetQua.DChuyen)>=5)) " & _ "ORDER BY KetQua.TongDiem DESC, KetQua.TongDiem DESC;" rs3.Open SQL, While (Not rs3.EOF) SQL = "UPDATE KetQua SET KetQua.KetQua = ' D ',ketqua.khoithi='" & maKhoi & "' WHERE KetQua.SBD='" & CStr(rs3(0).value) & "'" con.Execute SQL 68 diemchuan = rs3!tongdiem rs3.MoveNext Wend SQL = "SELECT KetQua.SBD, ThiSinh.IDKhoi, KetQua.DToan, KetQua.DVan, KetQua.DChuyen, KetQua.TongDiem,KetQua.diemchuan,KetQua.khoithi " & _ "FROM (SBD INNER JOIN (KhoiChuyen INNER JOIN ThiSinh ON KhoiChuyen.IDKhoi = ThiSinh.IDKhoi) ON SBD.IDThiSinh = ThiSinh.IDThiSinh) INNER JOIN KetQua ON SBD.SBD = KetQua.SBD " & _ "WHERE (ThiSinh.IDKhoi = '" + maKhoi + "')" rs4.Open SQL, While (Not rs4.EOF) SQL = "UPDATE KetQua SET ketqua.khoithi='" & maKhoi & "',ketqua.diemchuan='" & diemchuan & "' WHERE KetQua.SBD='" & CStr(rs4(0).value) & "'" con.Execute SQL rs4.MoveNext Wend rs4.Close rs3.Close rs2.MoveNext Wend rs2.Close MsgBox "Cập nhật kết thí sinh thành công", vbInformation + vbOKOnly, "Thông báo" End Sub 69