SKKN ứng dụng CNTT vào quản lý học và thi nghề phổ thông tại các trường THPT trên địa bàn huyện quỳnh lưu bằng phần mềm quản lý học nghề, thi nghề

“Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” PHẦN I ĐẶT VẤN ĐỀ Lí chọn đề tài: Hiện nay, trường THPT, trung tâm giáo dục phải tổ chức học nghề môn học bắt buộc để em đủ điều kiện dự thi tốt nghiệp THPT Việc thi nghề đăng ký tự nguyện em Tuy nhiên em đăng ký dự thi để cộng điểm khuyến khích xét cơng nhận tốt nghiệp Vấn đề đặt cho nhà trường để ứng dụng CNTT đạt hiệu cao như: Dễ quản lý, tổ chức thi nghề hiệu quản Vì vậy, việc sử dụng phần mềm quản lý học thi giải pháp thông minh thời đại Cơng nghiệp 4.0 Ngồi cơng tác tổ chức coi thi lý thuyết, chấm thi thực hành; Chấm thi lý thuyết lên kết đảm bảo theo yêu cầu Sở; Đảm bảo đồng liệu nhà trường nhằm giúp cho việc ghép nối tổ chức chấm thi lý thuyết tập hiệu hơn, nhanh gọn Qua thực tế công tác làm hồ sơ quản lý việc học thi nghề phổ thông, lựa chọn đề tài “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần nềm quản lý học nghề, thi nghề” nhằm giúp cho công tác quản lý việc học, nhập thông tin học sinh, vào điểm thi nghề, đăng ký nhóm mơn thi, xếp phịng, vào điểm thực hành, ghép nối hội đồng thi thực hành để chấm lý thuyết từ vào điểm lý thuyết in biểu mẫu theo hướng dẫn để duyệt kết thật đơn giản, hiệu Từ thấy tầm quan trọng việc ứng dụng công nghệ thông tin việc quản lý Mục đích nghiên cứu Với vai trị tổ phó, nhóm trưởng nhóm tin học phụ trách CNTT nhà trường thân suy nghĩ với trao đổi, thảo luận với đồng nghiệp trường cụm, ngồi cụm Với mục đích giúp cho việc quản lý học nghề đặc biệt công tác tổ chức thi nghề cách thuận lợi, khoa học, đồng liệu trường với mong muốn giúp cho việc quản lí sử dụng đạt hiệu cao Từ chúng tơi thiết kế “Phần mềm quản lí học nghề, thi nghề” Đối tượng nghiên cứu Đề tài nghiên cứu q trình quản lí hồ sơ nhà trường, đặc biệt lần tổ chức kỳ thi năm; Các văn bản, biểu mẫu cần phải thực theo hướng dẫn Sở Bên cạnh đó, chúng tơi nghiên cứu, tham khảo số phần mềm quản lí khác phần mềm quản lí nhà trường, phần mềm tổ chức thi Tuyển sinh vào lớp 10, phần mềm xếp TKB, Phương pháp nghiên cứu Từ thực tế hoạt động giáo dục có liên quan đến học thi nghề Bản thân chúng tơi phân tích thực trạng, thiết kế tốn thành chức “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” Sau xây dựng cấu trúc toán bước thiết kế thuật tốn lựa chọn ngơn ngữ để triển khai Ngôn ngữ để triển khai dự án visual foxpro Đề tài sử dụng từ năm 2016 đến trường để kiểm tra để bước hồn thiện Đóng góp sáng kiến kinh nghiệm Sản phẩm đưa vào sử dụng trường THPT địa bàn Huyện Quỳnh Lưu đặc biệt THPT Quỳnh Lưu 2, THPT Quỳnh Lưu sử dụng xuyên xuốt phần mềm từ năm 2016 đến việc quản lý học, tổ chức thi chấm thực hành chấm lý thuyết tập trung trường THPT Quỳnh Lưu 1, xử lý kết thi phần mềm Sản phẩm giải vấn đề như: Dễ dàng tổ chức hồ sơ thi, in biểu mẫu kỳ thi, cập nhật điểm thực hành, tạo mã phách để tổ chức chấm lý thuyết, vào điểm lý thuyết, in loại hồ sơ theo yêu cầu nghành để duyệt kết quả; Khi áp dụng phần mềm rút ngắn thời gian thực công việc Năm học 2020 – 2021 cụm Hoàng Mai triển khai thực cụm chấm THPT Hoàng Mai Sản phẩm minh chứng cho việc áp dụng khoa học công nghệ vào cơng tác quản lý, góp phần thúc đẩy ứng dụng CNTT lĩnh vực quản lý, tổ chức hoạt động dạy - học nhà trường Phần mềm lưu trữ liệu cách lâu dài liệu lưu trữ theo năm học với năm học thư mục độc lập Hằng năm cần tạo thêm thư mực tương ứng năm học sử dụng phần mềm cách hiệu Đường dẫn thư mục lưu trữ liệu học thi nghề năm “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” PHẦN II: NỘI DUNG Cơ sở lí luận sáng kiến kinh nghiệm Những kiến thức đúc kết từ thực tiễn quản lí học tổ chức thi nghề phổ thông năm, kiến thức có lập trình ngơn ngữ lập trình, kiến thức liên quan đến CSDL, chương trình môn tin học THPT hành, Là việc ứng dụng CNTT vào công tác quản lý ngày phổ biến, toàn diện nâng cao, phù hợp với xu phát triển xã hội Là việc ứng dụng CNTT ngày rộng, phong phú phần mềm, tiện ích vào hoạt động giáo dục khác đồng với đơn vị khác tổ chức thi chấm theo cụm Thực trạng vấn đề trước xây dựng đề tài Việc quản lí việc học thi nghề chưa thực hiểu thiếu tính đồng trường cụm như: Trường dùng Excel, trường dùng Word, trường dùng phần mềm nên khó khăc cơng tác ghép nối liệu thực hành với liệu chấm lý thuyết Việc làm hồ sơ dể tổ chức học đặc biệt thi nghề nhiều thời gian, mang tính làm thủ cơng như: Việc xếp phịng thi, tạo biểu mẫu cho kỳ thi, cập nhật điểm thực hành, diểm lý thuyết Đặc biệt việc in loại biểu mẫu phục vụ cho tổ chức coi chấm thi theo quy định nghành Giải pháp sử dụng để giải vấn đề Từ việc khảo sát thực tế nhà trường đặc biệt trường THPT Quỳnh Lưu việc tổ chức chấm thi tập trung Tại THPT Quỳnh Lưu việc tổ chức coi thi chấm thực hành Chúng tơi đưa phần mềm “Quản lí học nghề, thi nghề” cho trường ứng dụng tạo thuận lợi việc tổ chức coi thi lý thuyết, chấm thực hành trường THPT chấm lý thuyết tập trung THPT Quỳnh Lưu Phần mềm giúp công tác tổ chức học thi nghề phổ thông nhanh chóng hiệu khoa học Phần mềm “Quản lí học nghề, thi nghề” thiết kế ngơn ngữ lập trình visual foxpro, gồm hai phân hệ: - Phân hệ cấp trường: Sử dụng cho trường THPT để tổ chức quản lý học thi lý thuyết, chấm thực hành - Phân hệ cấp huyện thêm chức năng: Chấm thi lý thuyết, Xủ lý kết thi nghề, in hồ sơ cho trường duyệt Sở Giới thiệu phân tích phần mềm “Quản lý học nghề, thi nghề” “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” 4.1 Giới thiệu phần mềm: Phần mềm tương thích với hệ điều hành Windows phổ biến Dung lượng sau cài đặt khoảng 20MB Với phân hệ trường THPT dùng để tổ chức quản lý học nghề, tổ chức thi lý thuyết chấm thi thực hành Với phần hệ cài đặt cho máy cụm chấm lý thuyết tập trung thực nhận liệu điểm thực hành từ điểm chấm thực hành từ xây dựng bảng đánh phách tự động, tổ chức chấm lý thuyết, vào điểm in kết hồ sơ chuyển Sở duyệt 4.2 Cài đặt phần mềm: a, Yêu cầu hệ thống: Máy tính cần cài đặt font chữ TCNV3, kiểu chữ mà phần mềm sử dụng Vntime File mẫu liệu excel sử dụng font Unicode, kiểu chữ Times New Roman b, Cài đặt B1: Tải thư mục Nghề_PT(trường) cho trường THPT Nghề_PT(huyện) cho cụm chấm lý thuyết tiến hành giải nén B2: Chạy tệp setup.exe thư mục vừa giải nén thực cài đặt theo hướng dẫn Hình ảnh cài đặt phần mềm phân hệ cấp trường Hình ảnh cài đặt phần mềm phân hệ cấp huyện “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” Các chức phần mềm: Sau cài đặt phần mềm lưu trữ ổ đĩa (thường ổ đĩa D) với thư mục nghePT(QL_NghePT phân hệ cấp huyện) Người dùng chạy phần mềm cách click vào biểu tượng phần mềm hình Desktop để khởi chạy Phần mềm lên form để người dùng chọn năm làm việc Màn hình chương trình quản lý học nghề, thi nghề phân hệ cấp trường Màn hình chương trình quản lý học nghề, thi nghề phân hệ cấp huyện “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” * Phân hệ cấp trường: Cài đặt trường THPT Tổ chức học thi lý thuyết chấm thi thực hành * Vào hệ thống/ Xem mã THPT/ mã HĐ: Ghi chú: GDTX Quỳnh Lưu ghép thi THPT Quỳnh Lưu * Vào hệ thống/ Nhập, sửa môn thi: * Vào hệ thống: Cập nhật thơng số chương trình: “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” * Vào hệ thống/ Xem mã THPT/ Sửa biểu mẫu (theo mẫu quy định kỳ thi) Mẫu sửa tờ ghi tên ghi điểm lý thuyết thực hành * Kết thúc chương trình cách: Vào hệ thống/Kết thúc Giao diện chức menu Hệ thống “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” Menu “Hồ sơ học nghề” dùng để quản lý học nghề như: Nhập sửa lớp học nghề, nhận liệu học nghề theo mẫu excel, bổ sung danh sách, in hồ sơ học nghề cập nhật điểm trung bình học nghề để tổ chức thi nghề Giao diện chức menu hồ sơ học nghề * Vào hồ sơ học nghề/ Nhập liệu (theo mẫu Excel để tổ chức quản lý học nghề) Mẫu nhập excel “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” File liệu học nghề xuất từ phần mềm chức nhận liệu học nghề có tên “dl_mau” lưu thư mục C:/Temp thường đưa vào thư mục Data theo năm học để lưu trữ lâu dài theo năm học Tuy nhiên năm sử dụng học bạ sổ điểm điện tử nên việc quản lý học nghề đưa vào hệ thống vnedu thường trường nhập điểm lên hệ thống vnedu sau xuất điểm để đưa vào file mẫu nhận liệu thi nghề với file mẫu “X_thi nghe”, với x mã hội đồng danh mục mã HĐ chức hệ thống; Ví dụ: Dữ liệu thi nghề THPT Quỳnh Lưu file mẫu lưu là: “1502_thinghe” lưu thư mục data theo năm học Ví dụ: D/NghePT/Data/20202021/DL_Thi_nghe/1502_thinghe * Vào hồ sơ học nghề/ In hồ sơ nghề Giao diện in loại hồ sơ học nghề * Vào hồ sơ học nghề/ Cập nhật điểm trung bình học nghề Giao diện để nhập điểm học nghề “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” Menu “Hồ sơ thi nghề phổ thông” chức mà trường thường xuyên sử dụng tổ chức thi nghề Năm học 2020 - 2021 trường THPT Thị xã Hoàng Mai triển khai sử dụng phần mềm để tổ chức thi lý thuyết, chấm thực hành chấm lý thuyết với phân hệ cấp huyện Phần mềm cho phép tổ chức liệu phục vụ thi nghề như: Nhận liệu thi nghề (Với phân hệ cấp Huyện nhận liệu trường gửi lên theo mẫu excel file DBF kết xuất từ phần mềm trường); Cho phép sửa danh sách đăng ký, gán nhóm mơn mã hội đồng; Xếp phòng thi; In loại hồ sơ để tổ chức thi nghề… Giao diện chức hồ sơ thi nghề Phân hệ cấp trường * Vào hồ sơ thi nghề PT/ Nhập liệu thi nghề: File mẫu Excel dể nhận liệu vào phần mềm: (Quỳnh Lưu - Mã HĐ: 1502 lưu tại: D:/NghePT/Data/20202021/DL_Thi_nghe/1502_thinghe ) 10 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” * Chấm thi lý thuyết/ Đánh phách thi lý thuyết: Sau tiến hành in bảng đánh phách cho hội đồng phách làm việc CODE: ChuÈn bÞ: CLOSE DATABASES RELEASE MaMonX, TenMonX, TTMon, Tuphong, Toiphong, Phuongan PUBLIC MaMonX, TenMonX, TTMon, Tuphong, Toiphong, Phuongan SELECT USE (m_data_nam+'thisinh') ALIAS HOSO loca for (!empty(Phachlt)) if foun() xx1=MESSAGEBOX("Co danh lai phach khong?"+CHR(13)+"- Co: YES"+CHR(13)+"- Khong: NO",4,"Het suc luu y") IF xx1=6 REPLACE ALL tuimonlt WITH ' ' REPLACE ALL phachlt WITH ' ' USE in hoso ENDIF IF xx1=7 thisform.dien.Enabled = F thisform.tin.Enabled = F thisform.vuon.Enabled = F thisform.DSMonthi.Enabled = F thisform.Thuchien.Enabled = f USE in hoso endi ELSE USE in hoso ENDIF Tuphong='001' Toiphong='999' SELECT USE (m_data_nam+'DM_Monthi') ALIAS Monthi ORDER TAG ttThi &&Monthi 36 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” SET FILTER TO Tuluan Go top MaMonX= Monthi TenMonX= TenMonthi SCATTER MEMVAR FIELDS Sobaimax, XPhong, XTui, Phuongan TTMon= TTThi SELECT Monthi Thisform.DSMonthi.RecordSource= "Monthi" Thisform.DSMonthi.RecordSourceType= Thisform.DSMonthi.ColumnCount= Thisform.DSMonthi.Column1.ControlSource= "Tenmonthi" Thisform.DSMonthi.Column1.Header1.Caption= "M«n thi" Thisform.DSMonthi.Column1.Width= 80 Thisform.DSMonthi.Column1.Alignment=2 Thisform.DSMonthi.Column2.ControlSource= "Monthi" Thisform.DSMonthi.Column2.Header1.Caption= "M· m«n" Thisform.DSMonthi.Column2.Width= 60 Thisform.DSMonthi.Column2.Alignment=2 Thisform.DSMonthi.Column3.ControlSource= "TTThi" Thisform.DSMonthi.Column3.Header1.Caption= "Buæi thi" Thisform.DSMonthi.Column3.Width= 60 Thisform.DSMonthi.Column3.Alignment=2 Thisform.DSMonthi.Column4.ControlSource= "Sobaimax" Thisform.DSMonthi.Column4.Width= 80 Thisform.DSMonthi.Column4.Header1.Caption= "Sè bµi max" Thisform.DSMonthi.Column4.Alignment=2 Thisform.DSMonthi.Column5.ControlSource= "XPhong" Thisform.DSMonthi.Column5.Width= 60 Thisform.DSMonthi.Column5.Header1.Caption= "Sè phßng" Thisform.DSMonthi.Column5.Alignment=2 Thisform.DSMonthi.Column6.ControlSource= "XTui" Thisform.DSMonthi.Column6.Width= 60 Thisform.DSMonthi.Column6.Header1.Caption= "Sè tói" Thisform.DSMonthi.Column6.Alignment=2 Thisform.DSMonthi.Column7.ControlSource= "Phuongan" Thisform.DSMonthi.Column7.Width= 200 Thisform.DSMonthi.Column7.Header1.Caption= "Ph-ơng án đánh phách" Thisform.DSMonthi.Column7.Alignment=2 Thisform.DSMonthi.Column7.Text1.Format= 'M' Thisform.DSMonthi.Column7.Text1.InputMask= "Theo thứ tự số báo danh,Đánh phách ngẫu nhiên" Thisform.DSMonthi.SetAll("FontName",".VnAvant","Column") Thisform.DSMonthi.SetAll("FontBold",.t.,"Column") Thisform.DSMonthi.SetAll("Fontsize",10,"Column") Thisform.DSMonthi.SetAll("FontName",".VnArial","Header") Thisform.DSMonthi.SetAll("FontBold",.T.,"Header") 37 ng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” Thisform.DSMonthi.SetAll("Fontsize",10,"Header") Thisform.DSMonthi.SetAll("Alignment",2,"Header") Thùc hiÖn: SELECT USE (m_data_nam+'thisinh') ALIAS HOSO REPLACE hoso.diem_lt WITH IIF(diem_lt -1, -2, diem_lt), hoso.ket_qua WITH ' ', hoso.loai WITH ' ', hoso.diempl with 0, hoso.pltn WITH " " ALL loca for empty(ma_hoidong) if foun() =messagebox("Ban phai gan ma hoi dong truoc danh phach!!!",0,"Thong bao") retu ENDIF SELECT DISTINCT nhom_mon, ma_nghe FROM Hoso ORDER BY nhom_mon INTO TABLE C:\temp\TS_mon USE IN ts_mon ttdien = ALLTRIM(thisform.dien.value) tttin = ALLTRIM(thisform.tin.value) ttvuon = ALLTRIM(thisform.vuon.value) SELECT USE c:\temp\ts_mon ALIAS tsmon GO top DO whil !EOF() i = nhom_mon SELECT hoso COPY TO (m_temp+'taophach') FOR nhom_mon = i DO Don_Tui SELECT tsmon skip endd CLOSE DATABASES thisform.Ket_thuc.Click Thñ tơc dån tói: ntui = SELECT USE (m_temp+'taophach') ALIAS hso WAIT WINDOW NOWAIT "1 Chuan bi Du lieu" nxn = 100 + MOD(VAL(SYS(2)), 1000) FOR ixi = TO nxn kxk = RAND() ENDFOR SELECT DISTINCT ALLTRIM(STR(nhom_mon)) as tinhcham, ma_hoidong, phong, ma_nghe, nhom_mon FROM Hso ORDER BY ma_hoidong, phong INTO TABLE C:\temp\DS_Phongthi rhoso = RECCOUNT() USE IN ds_phongthi 38 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” USE IN hso SELECT USE (m_data_nam+'HS_Phach') EXCLUSIVE ALIAS DIEM ZAP APPEND FROM (m_temp+'taophach') repl diem.Mm1 with 'LT', diem.tinhcham with ALLTRIM(STR(nhom_mon)), diem.cumthi with ma_hoidong, diem.hoidong with ma_hoidong, diem.banthi with '1', diem.phongthi with phong, diem.sobaodanh with ma_hoidong+sbd all REPLACE all diem.ttphach with ttdien FOR ALLTRIM(ma_nghe) = 'D' REPLACE all diem.ttphach with tttin FOR ALLTRIM(ma_nghe) = 'T' REPLACE all diem.ttphach with ttvuon FOR ALLTRIM(ma_nghe) = 'V' INDEX ON tinhcham + cumthi + phongthi + sobaodanh TAG phongthi SELECT DISTINCT tinhcham FROM DIEM INTO TABLE c:\temp\TINH DO tudongdontui RETURN ENDPROC * PROCEDURE TudongDontui SELECT monthi t0 = SET ORDER TO SCAN FOR tuluan tenmonx = tenmonthi monthix = monthi ttmon = ttthi SCATTER MEMVAR FIELDS sobaimax, xphong, xtui, phuongan SELECT tinh SCAN tinhx = tinhcham DO tui_monthi WITH ttmon, monthix, '1', tinhx DO tui_monthi WITH ttmon, monthix, '4', tinhx ENDSCAN SELECT monthi ENDSCAN SET ORDER TO Monthi WAIT WINDOW NOWAIT "Update Du lieu " SELECT hoso INDEX ON ma_hoidong + sbd TO c:\temp\ID_BD SELECT diem SET FILTER TO SET RELATION TO ma_hoidong + sbd INTO hoso REPLACE hoso.phachlt WITH phach21, hoso.tuimonlt WITH tui21 ALL repl all hoso.codehs with val(right(allt(phach21),2)) for hoso.codehs = USE IN diem USE IN tinh WAIT CLEAR RETURN 39 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” ENDPROC * PROCEDURE Tui_Monthi PARAMETER nmonthi, monthix, dsbanthi, mmtinh WAIT WINDOW NOWAIT "Danh phach cho bai thi li thuyet" monthiz = 'MM' + nmonthi SELECT CREATE TABLE C:\TEMP\Phongthi (tinhcham C (2), cumthi C (2), phongthi C (3), sots N (5), ma_hoidong C (2), phong C (3), ma_nghe C(1),nhom_mon N (1)) USE EXCLUSIVE C:\TEMP\Phongthi ALIAS phongthi APPEND FROM C:\TEMP\DS_Phongthi repl phongthi.cumthi with ma_hoidong, phongthi.phongthi with phong all INDEX ON tinhcham + cumthi + phongthi TAG phongthi SELECT diem SET RELATION TO tinhcham + cumthi + phongthi INTO phongthi tui1 = 'TUI1' + nmonthi SET FILTER TO CALCULATE MAX(&Tui1) TO TuiX t0 = VAL(SUBSTR(tuix, 2)) SET FILTER TO Banthi$DSBanthi and Tinhcham=mmtinh AND &MonthiZ=MonthiX REPLACE phongthi.sots WITH phongthi.sots + ALL SET RELATION TO SET ORDER TO Phongthi SELECT phongthi SET FILTER TO sots > COUNT FOR sots > TO sophong IF sophong = RETURN ENDIF nhomphong = INT((sophong + xphong - 1) / xphong) ntui = nhomphong * xtui DIMENSION ts_tui(ntui), daotui(ntui, 2) FOR i = TO ntui daotui(i, 1) = i daotui(i, 2) = i ENDFOR IF ntui > FOR i = TO ntui DO WHILE T j = MIN(INT(RAND() * ntui + 1), ntui) IF (daotui(j,1) > AND i j) IF (i = ntui - AND j ntui AND daotui(ntui,1) > 0) j = ntui ENDIF daotui(i, 2) = daotui(j,1) daotui(j, 1) = 40 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” EXIT ENDIF ENDDO ENDFOR ENDIF GOTO TOP rphong = RECNO() tui1 = 'TUI1' + nmonthi tui2 = 'TUI2' + nmonthi STORE TO ntui1, ntui2 nphong = sophong FOR ip = TO nhomphong xphong2 = xphong IF ip = nhomphong - IF nphong - xphong < xphong xphong2 = INT(nphong / 2) ENDIF ENDIF xphong2 = MIN(nphong, xphong2) nphong = nphong - xphong2 sobai = SELECT phongthi GOTO rphong dsphong = '' FOR j = TO xphong2 dsphong = dsphong + tinhcham + cumthi + phongthi + "*" sobai = sobai + sots SKIP ENDFOR rphong = RECNO() SELECT diem codepthi = LEFT(dsphong, 7) ntui1 = ntui2 + ntui2 = ntui2 + xtui tuibai = ROUND(sobai / xtui, 0) FOR itui = ntui1 TO ntui2 ts_tui(itui) = tuibai ENDFOR ts_tui(ntui2) = sobai - (xtui - 1) * tuibai donbainn = F its = kbai = 24 / xtui IF donbainn = SEEK(codepthi) DO WHILE tinhcham + cumthi + phongthi $ dsphong AND .NOT EOF() IF NOT (&MonthiZ=MonthiX AND Banthi$DSBanthi) SKIP 41 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” LOOP ENDIF DO WHILE T itui = INT(1 + xtui * RAND()) IF itui > xtui itui = xtui ENDIF IF ts_tui(itui + ntui1 - 1) >= ts_tui(itui + ntui1 - 1) = ts_tui(itui + ntui1 - 1) - REPLACE &Tui1 WITH ALLTRIM(ttphach)+RIGHT(TRANSFORM(T0+iTui+Ntui1-1,"@L ###"),2), &Tui2 WITH ALLTRIM(ttphach)+RIGHT(TRANSFORM(T0+Daotui(iTui+Ntui1-1,2), "@L ###"),2) EXIT ENDIF ENDDO SKIP ENDDO ENDIF IF NOT donbainn codephong = '**********************' = SEEK(codepthi) DO WHILE tinhcham + cumthi + phongthi $ dsphong AND .NOT EOF() IF NOT (&MonthiZ=MonthiX AND Banthi$DSBanthi) SKIP LOOP ENDIF IF codephong tinhcham + cumthi + phongthi RELEASE tuicham DIMENSION tuicham(xtui, 2) tuicham = FOR i = TO xtui tuicham(i, 1) = ntui1 + i - tuicham(i, 2) = ntui1 + i - ENDFOR IF xtui > AND RAND() > 0.45 FOR i = TO xtui DO WHILE T j = MIN(INT(RAND() * xtui + 1), xtui) IF (tuicham(j,1) > AND i j) IF (i = xtui - AND j xtui AND tuicham(xtui,1) > 0) j = xtui ENDIF tuicham(i, 2) = tuicham(j,1) tuicham(j, 1) = EXIT 42 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” ENDIF ENDDO ENDFOR ENDIF codephong = tinhcham + cumthi + phongthi = SEEK(codephong, 'Phongthi') kbai = ROUND(phongthi.sots / xtui, 0) its = DO WHILE codephong = tinhcham + cumthi + phongthi AND .NOT EOF() its = its + itui = INT((its + kbai - 1) / kbai) IF itui > xtui itui = xtui ENDIF REPLACE &Tui1 WITH ALLTRIM(ttphach)+RIGHT(TRANSFORM(T0+Tuicham(iTui,2),"@L ###"),2), &Tui2 WITH ALLTRIM(ttphach)+RIGHT(TRANSFORM(T0+Daotui(Tuicham(iTui,2),2), "@L ###"),2) SKIP ENDDO ELSE ENDIF ENDDO ENDIF SELECT phongthi ENDFOR SELECT diem tui1 = 'TUI1' + nmonthi tui2 = 'TUI2' + nmonthi phach1 = 'PHACH1' + nmonthi phach2 = 'PHACH2' + nmonthi REPLACE ALL &Tui1 WITH &Tui2 DIMENSION sophach(99) STORE TO sophach SELECT diem INDEX ON &Tui1+SOBAODANH TO c:\temp\iTui1 GOTO TOP px = Tx=&Tui1 its = SCAN IF phuongan = "Đánh phách ngẫu nhiên" nbai = DO WHILE &Tui1=Tx nbai = nbai + SKIP ENDDO SKIP -nbai STORE TO sophach DO WHILE &Tui1=Tx DO WHILE T iphach = INT((1 + nbai * RAND())) IF iphach > nbai iphach = nbai ENDIF IF sophach(iphach) = its = its + sophach(iphach) = 43 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” REPLACE &Phach1 WITH TRANSFORM(iPhach,"@L ##"), &Phach2 WITH allt(&Tui2)+TRANSFORM(iPhach,"@L ##") EXIT ENDIF ENDDO SKIP ENDDO Tx=&Tui1 SKIP -1 ELSE IF &Tui1=Tx px = px + ELSE px = Tx=&Tui1 ENDIF REPLACE &Phach1 WITH TRANSFORM(Px,"@L ##"), &Phach2 WITH allt(&Tui2)+TRANSFORM(Px,"@L ##") ENDIF ENDSCAN WAIT WINDOW NOWAIT "Da danh xong phach cho bai thi li thuyet" RETURN ENDPROC * Chấm thi lý thuyết/ Vào điểm thi lý thuyết: Menu “Kết thi nghề” menu dùng để xử lý kết sau thi như: In kết thi nghề, in hồ sơ duyệt, xuất kết cho trường để cập nhật lên vnedu cho học bạ điện tử, in chứng thi nghề… 44 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” CODE: in hồ sơ duyệt kết thi nghề Chuẩn bị d÷ liƯu: CLOSE DATABASES SELECT USE (m_data_nam+'thisinh') EXCLUSIVE SORT to (m_temp+'thisinh2') ON ma_thpt/a, phong/a USE (m_temp+'thisinh2') EXCLUSIVE ALIAS hoso SELECT ma_thpt,truong, phong, nhom_mon, nghe, count(hoten) as sl_hs,; SUM(IIF(dkdt'K',1,0)) as dkdt, SUM(IIF(vang'12',1,0)) as duthi, SUM(IIF(diem_lt>-1,1,0)) as duthilt, SUM(IIF(diem_th>-1,1,0)) as duthith,; SUM(IIF(vang='12',1,0)) as vang, SUM(IIF(pltn' ',1,0)) as dau,; SUM(IIF(vang'12' AND pltn=' ' AND dkdt'K',1,0)) as hong, SUM(IIF(pltn='g',1,0)) as gioi,; SUM(IIF(pltn='k',1,0)) as kha, SUM(IIF(pltn='tb',1,0)) as tb ; FROM hoso GROUP BY ma_thpt, phong, nhom_mon INTO TABLE (m_temp+'ketqua') COPY to (m_temp+'ketqua1') SELECT ma_thpt, truong, nhom_mon, nghe, count(hoten) as sl_hs,; SUM(IIF(dkdt'K',1,0)) as dkdt, SUM(IIF(vang'12',1,0)) as duthi, SUM(IIF(diem_lt>-1,1,0)) as duthilt, SUM(IIF(diem_th>-1,1,0)) as duthith,; SUM(IIF(vang='12',1,0)) as vang, SUM(IIF(pltn' ',1,0)) as dau,; SUM(IIF(vang'12' AND pltn=' ' AND dkdt'K',1,0)) as hong, SUM(IIF(pltn='g',1,0)) as gioi,; SUM(IIF(pltn='k',1,0)) as kha, SUM(IIF(pltn='tb',1,0)) as tb ; FROM hoso GROUP BY ma_thpt, nhom_mon INTO TABLE (m_temp+'ketqua2') COPY to (m_temp+'ketqua3') COPY to (m_temp+'ketqua7') SELECT nhom_mon, nghe, count(hoten) as sl_hs,; SUM(IIF(dkdt'K',1,0)) as dkdt, SUM(IIF(vang'12',1,0)) as duthi, SUM(IIF(diem_lt>-1,1,0)) as duthilt, SUM(IIF(diem_th>-1,1,0)) as duthith,; SUM(IIF(vang='12',1,0)) as vang, SUM(IIF(pltn' ',1,0)) as dau,; SUM(IIF(vang'12' AND pltn=' ' AND dkdt'K',1,0)) as hong, SUM(IIF(pltn='g',1,0)) as gioi,; SUM(IIF(pltn='k',1,0)) as kha, SUM(IIF(pltn='tb',1,0)) as tb ; FROM hoso GROUP BY nhom_mon INTO TABLE (m_temp+'ketqua4') COPY to (m_temp+'ketqua5') SELECT ma_thpt, truong FROM hoso GROUP BY ma_thpt INTO TABLE (m_temp+'ketqua6') COPY to (m_temp+'ma_truong1') COPY to (m_temp+'ma_truong2') SELECT ma_thpt,truong, MIN(phong) as tu_phong, MAX(phong) as den_phong, count(hoten) as sl_hs,; SUM(IIF(dkdt'K',1,0)) as dkdt, SUM(IIF(vang'12',1,0)) as duthi, SUM(IIF(diem_lt>-1,1,0)) as duthilt, SUM(IIF(diem_th>-1,1,0)) as duthith,; SUM(IIF(vang='12',1,0)) as vang, SUM(IIF(pltn' ',1,0)) as dau,; 45 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” SUM(IIF(vang'12' AND pltn=' ' AND dkdt'K',1,0)) as hong, SUM(IIF(pltn='g',1,0)) as gioi,; SUM(IIF(pltn='k',1,0)) as kha, SUM(IIF(pltn='tb',1,0)) as tb ; FROM hoso GROUP BY ma_thpt INTO TABLE (m_temp+'tonghop2') COPY to (m_temp+'tonghop1') CLOSE DATABASES SELECT USE (m_temp+'ma_truong1') ALIAS mtruong EXCLUSIVE APPEND BLANK REPLACE truong WITH 'TÊt c¶' SELECT USE (m_temp+'ketqua1') ALIAS hso1 EXCLUSIVE SELECT USE (m_temp+'ketqua3') ALIAS hso2 EXCLUSIVE SELECT USE (m_temp+'tonghop1') ALIAS hso3 EXCLUSIVE SELECT USE (m_temp+'ma_truong2') ALIAS hso4 EXCLUSIVE COUNT TO sl_truong IF sl_truong = GO top else GO DELETE REST pack Endi SELECT USE (m_temp+'ketqua5') ALIAS hso5 EXCLUSIVE SELECT USE (m_temp+'ketqua7') ALIAS hso6 EXCLUSIVE Xem/In hå s¬ dut kÕt qu¶: _dk=thisform.dkloc.Value _ma_truong = thisform.txtTen_truong.value _truong = ALLTRIM(thisform.truongx.value) Loc=" T " IF !EMPTY(_truong) Loc=Loc+" AND ALLTRIM(ma_thpt)==_truong " ENDIF IF _dk = OR _dk = SELECT hso3 IF _dk = SET FILTER TO &loc REPORT FORM (m_repo+'tonghop_truong') PREVIEW NOCONSOLE TO PRINTER PROMPT ENDIF IF _dk = SET FILTER TO &loc REPORT FORM (m_repo+'bia_duyetdv') PREVIEW NOCONSOLE TO PRINTER PROMPT ENDIF ENDIF IF _dk = SELECT hso4 46 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” huyen = 'quúnh l-u' REPORT FORM (m_repo+'bia_duyeth') PREVIEW NOCONSOLE TO PRINTER PROMPT ENDIF IF _dk = SELECT hso1 SET FILTER TO &loc REPORT FORM (m_repo+'tonghop_nghe') PREVIEW NOCONSOLE TO PRINTER PROMPT ENDIF IF _dk = SELECT hso2 SET FILTER TO &loc REPORT FORM (m_repo+'tt_nghe') PREVIEW NOCONSOLE TO PRINTER PROMPT ENDIF IF _dk = SELECT hso6 REPORT FORM (m_repo+'tt_ngheh') PREVIEW NOCONSOLE TO PRINTER PROMPT ENDIF IF _dk = SELECT hso5 SUM sl_hs TO _sl_hs SUM duthi TO _duthi SUM duthilt TO _duthilt SUM duthith TO _duthith SUM dau TO _dau SUM gioi TO _gioi SUM kha TO _kha SUM tb TO _tb clea REPORT FORM (m_repo+'bc_nghe') PREVIEW NOCONSOLE TO PRINTER PROMPT ENDIF Thử nghiệm phần mềm: 5.1 Môi trường thử nghiệm Chúng sử dụng phần mềm để tổ chức kỳ thi nghề từ năm 2016 đến với phân hệ cấp trường thực trường THPT Quỳnh Lưu thầy Hoàng Nguyên Tuấn phụ trách thử nghiệm để đánh giá, THPT Quỳnh Lưu thầy Hồ Minh Tuấn triển khai thử nghiệm, THPT Quỳnh Lưu thầy Hồ Đình Thường triển khai thự nghiệm Đặc biệt trường THPT Quỳnh Lưu thầy Đặng Quang Tuyển triển khai thực nghiệm với phân hệ cụm chấm lý thuyết trường THPT đại bàn Huyện Quỳnh Lưu Năm học 2020 - 2021 triển khai thử nghiệm với cụm chấm Hoàng Mai 5.2 Kết thử nghiệm Trong trình thử nghiệm trường THPT địa bàn Huyện Quỳnh Lưu, Thị xã Hồng Mai phản hồi nhận thấy chương trình cài đặt đơn giản, dễ sử dụng, phù hợp với nhiều loại máy tính, đặc biệt hỗ trợ tốt cho cơng tác thi như: xếp phòng thi, xây dựng bảng phách cho hội đồng phách, vào điểm, ghép nối điểm thực hành in biểu mẫu theo yêu cầu mang tính chuyên nghiệp tổ chức thi… Tuy nhiên, chương trình cịn có số hạn chế giao diện chưa đẹp, bảo mật chưa cao 47 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” III KẾT LUẬN Đề tài “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” xây dựng đầy đủ chức cần quản lý hồ sơ nghề, đáp ứng đầy đủ việc tổ chức thi lý thuyết, chấm thực hành; Chấm thi lý thuyết tập trung theo quy định Sở, thực quy trình kỳ thi, đảm bảo tính xác, khoa học, khách quan hiệu nhằm đáp ứng yêu cầu Sở quản lý nghề phổ thơng Chính đề tài BGH trường THPT sử dụng công tác quản lý tổ chức thi nghề năm địa bàn Huyện Quỳnh Lưu Trong suốt thời gian làm đề tài, giúp đỡ BGH trường THPT Quỳnh Lưu 2, THPT Quỳnh Lưu số đơn vị bạn địa bàn huyện Quỳnh Lưu, việc triển khai sử dụng phần mềm quản lý học thi nghề năm nhằm kiểm chứng khẳng định hiệu phần mềm Chúng tơi hy vọng đề tài góp phần vào việc ứng dụng công nghệ thông tin cho công tác quản lý hồ sơ học tổ chức thi Nghề năm trường THPT địa bàn Quỳnh Lưu Với mong muốn Trường THPT cụm tổ chức học thi nghề năm sử dụng chung phần mềm để việc tổ chức thi, chấm thi nghề đơn giản, chuyên nghiệp hiệu nhằm nâng cao ứng dụng CNTT nhà trường “Phần mềm quản lý học nghề, thi nghề” áp dụng cho tất trường THPT tổ chức dạy nghề, thi nghề công tác chấm thi theo cụm SKNN kết q trình tìm tịi, trăn trở, thể nghiệm thân chúng tơi với mong muốn góp thêm phần ứng dụng công nghệ thông tin hoạt động giáo dục Do kiến thức ngôn ngữ lập trình cịn hạn chế nên chắn đề tài chúng tơi cịn nhiều thiếu sót Chúng hi vọng nhận chia sẻ, ý kiến đóng góp Quý thầy đồng nghiệp xa gần để đề tài hoàn thiện Quỳnh Lưu, ngày 26 tháng 03 năm 2021 Nhóm giáo viên thực 48 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” MỤC LỤC PHẦN I ĐẶT VẤN ĐỀ 1 Lí chọn đề tài: Mục đích nghiên cứu Đối tượng nghiên cứu Phương pháp nghiên cứu Đóng góp sáng kiến kinh nghiệm PHẦN II: NỘI DUNG Cơ sở lí luận sáng kiến kinh nghiệm Thực trạng vấn đề trước xây dựng đề tài 3 Các giải pháp sử dụng để giải vấn đề Giới thiệu phân tích phần mềm “Quản lý học nghề, thi nghề” 4.1 Giới thiệu phần mềm: 4.2 Cài đặt phần mềm: 4 Các chức phần mềm: 5 Thử nghiệm chương trình: 47 5.1 Môi trường thử nghiệm 47 5.2 Kết thử nghiệm 47 III KẾT LUẬN 48 PHỤ LỤC: MỘT SỐ BIỂU MẪU IN TỪ PHẦN MỀM 49 “Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề” PHỤ LỤC: MỘT SỐ BIỂU MẪU THƯỜNG DÙNG IN TỪ PHẦN MỀM: TÊN PHỤ LỤC Lý Lịch học sinh IN TỪ MENU CHỨC NĂNG Hồ Sơ học nghề Danh sách học sinh dự thi nghề theo lớp Danh sách niêm yết phòng thi Phiếu thu thi Phiếu chấm thực hành Hồ sơ thi nghề Tờ ghi danh sách Thẻ học sinh Tờ ghi tên, ghi điểm thực hành Thống kê nhập điểm Bảng đánh phách thi lý thuyết BB bàn giao thi cắt phách Chấm lý thuyết Tờ ghi tên, ghi điểm lý thuyết thực hành (Chưa nhập điểm nên có ghi chú) Báo cáo kết thi nghề Bảng tổng hợp kết thi nghề (trang đầu hồ sơ duyệt nghề Kết thi nghề Bìa hồ sơ duyệt 50 ... Giới thi? ??u phân tích phần mềm ? ?Quản lý học nghề, thi nghề? ?? ? ?Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề? ?? 4.1 Giới thi? ??u... chức quản lý học nghề) Mẫu nhập excel ? ?Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề? ?? File liệu học nghề xuất từ phần mềm. .. cấp trường Hình ảnh cài đặt phần mềm phân hệ cấp huyện ? ?Ứng dụng CNTT vào quản lý học thi nghề phổ thông trường THPT địa bàn Huyện Quỳnh Lưu phần mềm quản lý học nghề, thi nghề? ?? Các chức phần mềm: