Xây dựng hệ thống chương trình quản lý đào tạo tin học đề tài nghiên cứu cấp trường

ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN - - BÁO CÁO: ĐỀ TÀI NGHIÊN CỨU CẤP TRƯỜNG XÂY DỰNG HỆ THỐNG CHƯƠNG TRÌNH QUẢN LÝ ĐÀO TẠO TIN HỌC Chủ nhiệm đề tài: ThS.GVC Nguyen Đăng Tỵ Những người tham gia: ThS.GVC Nguyễn Đăng Tỵ ThS Hồ Thị Phương Nga TP HỒ CHÍ MINH THÁNG 12 NĂM 2007 ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN - - BÁO CÁO: ĐỀ TÀI NGHIÊN CỨU CẤP TRƯỜNG XÂY DỰNG HỆ THỐNG CHƯƠNG TRÌNH QUẢN LÝ ĐÀO TẠO TIN HỌC (Đã chỉnh sửa sau có ý kiến đóng góp Hội đồng Khoa học Hệ thống chương trình sửa lại theo học chế tín chỉ) Chủ nhiệm đề tài: ThS.GVC Nguyễn Đăng Tỵ Những người tham gia: ThS.GVC Nguyễn Đăng Tỵ ThS Hồ Thị Phương Nga TP HỒ CHÍ MINH THÁNG 10 NĂM 2008 NHẬN XÉT CỦA TRUNG TÂM TIN HỌC (ĐƠN VỊ THỤ HƯỞNG HỆ THỐNG ỨNG DỤNG) Hệ thống chương trình quản lý học viên tin học trung Tâm Tin Học kết đề tài nghiên cứu ứng dụng cấp Trường ThS Nguyễn Đăng Tỵ làm chủ nhiệm đề tài thực với tham gia ThS Hồ Thị Phương Nga đưa vào áp dụng từ khóa học 28 cuối năm 2005 dạng thử nghiệm Trong năm 2006, 2007 hệ thống mở rộng đối tượng quản lý cho sinh viên hệ khơng quy (tại chức) học viên theo học dự thi chứng tin học Quốc gia trình độ A, B Tính đến hệ thống quản lý 10.000 sinh viên loại hình đào tạo, cơng cụ hữu hiệu góp phần tích cực vào cơng tác quản lý Trung Tâm Tin Học Những người thực đề tài có nhiều cố gắng nghiêm túc việc thực đề tài bám sát thực mục tiêu đặt đề tài Ngồi tính chất thực tiễn áp dụng trực tiếp vào công tác quản lý Trung Tâm, đề tài đảm bảo yếu tố học thuật cao, đặc biệt phần Phân tích thiết kế hệ thống thông tin Là đơn vị thụ hưởng kết nghiên cứu đề tài Trung Tâm Tin học đánh giá cao chấp nhận kết đề tài tiếp tục bổ sung yêu cầu nhằm hệ thống ngày hồn thiện hơn, đóng góp tích cực vào công tác quản lý Trung Tâm Thay mặt Trung Tâm Tin học Phó Giám Đốc (Đã ký) ThS Đỗ Văn Thắng NHẬN XÉT CỦA PHẢN BIỆN 1 Tên đề tài: Xây dựng hệ thống chương trình quản lý đào tạo tin học Chủ nhiệm đề tài: GVC ThS Nguyễn Đăng Tỵ Những người tham gia: ThS Hồ Thị Phương Nga Nhận xét đề tài: 4.1 Những kết đạt đề tài - Những người tham gia thực xây dựng dược hệ thống chương trình hồn chỉnh để quản lý học viên tin học (gồm sinh viên hệ quy, khơng quy hoc viên theo học dự thi chứng tin học Quốc gia trình độ A, B) Trung Tâm Tin Học đưa vào áp dụng từ nhiều năm Hệ thống quản lý học viên theo học thuộc loại hình đào tạo, cơng cụ hữu hiệu góp phần tích cực vào cơng tác quản lý Trung Tâm Tin Học - Đề tài bám sát thực mục tiêu đặt Ngồi tính chất thực tiễn áp dụng trực tiếp vào công tác quản lý Trung Tâm, đề tài đảm bảo yếu tố học thuật cao, đặc biệt phần Phân tích thiết kế hệ thống thông tin, với cấu trúc liệu đầy đủ, rõ ràng khoa học Các Form nhập thông tin bảng biểu kết xuất mô tả đầy đủ có thuật tóan xử lý chi tiết Đó sưu liệu tốt giúp cho việc bảo trì phát triển hệ thống cách dễ dàng - Chương trình dễ sử dụng, thuận tiện cho việc áp dụng vào thực tiễn 4.2 Một số vấn đề cần giải đáp - Đã thử nghiệm cho nhiều người dùng chưa? - Khi khai thác CSDL tính trách nhiệm người đến đâu? - Vấn đề dọn dẹp CSDL sau thời gian sử dụng? Đánh giá: Đề tài đạt loại Tốt TP Hồ Chí Minh, ngày 27 tháng 05 năm 2008 Phản biện thứ (Đã ký) ThS Đỗ Hoàng Cường NHẬN XÉT CỦA PHẢN BIỆN Tên đề tài: Xây dựng hệ thống chương trình quản lý đào tạo tin học Chủ nhiệm đề tài: GVC ThS Nguyễn Đăng Tỵ Những người tham gia: ThS Hồ Thị Phương Nga Nhận xét đề tài: 4.1 Những kết đạt đề tài  Đề tài xây dựngđược chương trình quản lý học vụ đơn vị đào tạo cấp chứng áp dụng thực Trung Tâm Tin Học Trường Đại Học Khoa Học Xã Hội Nhân Văn – Đại Học Quốc Gia TP Hồ Chí Minh tương đối ổn định đáp ứng yêu cầu quản lý học vụ  Cấu trúc liệu rõ ràng, thiết kế đảm bảo yêu cầu quản lý liệu sở đào tạo nhỏ vừa  Chương trình dễ sữ dụng thuận lợi cho việc áp dụng vào thực tiễn 4.2 Những tồn cần khắc phục đề tài  Chưa có phương pháp thiết kế để bảo mật liệu, thân đề tài xây dựng quản lý liệu Access nên tính bảo mật chưa cao sử dụng đảm bảo an toàn liệu khơng kết nối với Internet  Cịn số Form nhập liệu thiết kế thừa  Chưa có phần hướng dẫn sữ dụng Đánh giá: Đề tài đạt loại Khá Khuyến nghị: - Đề nghị tác giả bổ sung phần hướng dẫn sử dụng - Chuyển giao đề tài cho Trung tâm Trường ứng dụng thực vào quản lý học vụ TP Hồ Chí Minh, ngày 27/05/2008 Phản biện thứ (Đã ký) ThS Đỗ Văn Thắng MỤC LỤC Lời nói đầu Đề cương nghiên cứu đề tài Kết đạt Tài liệu phần tích thiết kế hệ thống 84 Tài liệu hướng dẫn sử dụng .228 Tại liệu tham khảo .233 LỜI NĨI ĐẦU Hệ thống thơng tin tin học hoá quản lý học viên Trung tâm tin học nghiên cứu xây dựng từ năm 2003, lý tế nhị nên tới cuối năm 2005 bắt đầu áp dụng để quản lý việc dạy học cho sinh viên quy từ học kỳ năm học 2005-2006 Với số kết ban đầu đạt được, tháng 04 năm 2006 hai trường môn thống đăng ký thành đề tài nghiên cứu ứng dụng cấp trường để tiếp tục hoàn thiện hệ thống với đầy đủ tài liệu phân tích thiết hế hệ thống thông tin cách khoa học, mang tính thực tiễn với nhiều chức đáp ứng tốt yêu cầu Trung Tâm Tin học việc quản lý học viên tin học với loại hình đào tạo khác Đề tài hiệu trường phê duyệt cho phép thực năm 2007 Tài liệu báo cáo kết đạt đề tài, gồm phần: Phần I trình bày đề cương nghiên cứu đề tài Phần II trình bày kết cụ thể hệ thống chương trình cài đặt đề tài Phần III tài liệu chi tiết phân tích thiết kế hệ thống thông tin Với tài liệu hệ thống chương trình dễ dàng sửa đổi mở rộng để đáp ứng yêu cầu quản lý Trung tâm Phần IV tài liệu hướng dẫn sử dụng hệ thống chương trình Tự đánh giá: Đây đề tài nghiên cứu ứng dụng Nó vừa đảm bảo tính khoa học đề tài nghiên cứu, điều quan trọng mang tính thực tiễn Những người thực đề tài thực cách nghiêm túc, thời gian dài để tạo sản phẩm hoàn chỉnh áp dụng đơn vị để nâng cao hiệu cơng tác quản lý Trung tâm Những người thực Trang TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN ĐỀ CƯƠNG NGHIÊN CỨU PHẦN I ĐỀ CƯƠNG NGHIÊN CỨU VÀ KẾ HOẠCH THỰC HIỆN ĐỀ TÀI Trang TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN ĐỀ CƯƠNG NGHIÊN CỨU ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH CỘNG HỒ XÃ HỘI CHỦ NGHĨA VIỆT NAM TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN Độc Lập – Tự Do – Hạnh Phúc Thành phố Hồ Chí Minh, ngày 14 tháng 04 năm 2006 ĐỀ CƯƠNG TỔNG QUÁT VÀ KẾ HOẠCH THỰC HIỆN ĐỀ TÀI NGHIÊN CỨU KHOA HỌC CẤP TRƯỜNG NĂM 2006 TÊN ĐỀ TÀI: XÂY DỰNG HỆ THỐNG CHƯƠNG TRÌNH QUẢN LÝ ĐÀO TẠO TIN HỌC Chuyên ngành: CÔNG NGHỆ THÔNG TIN CHỦ NHIỆM ĐỀ TÀI: ThS GVC NGUYỄN ĐĂNG TỴ Đơn vị: Trung Tâm Tin Học, Trường Đại Học KHXH & NV Địa chỉ: P.B007, 10-12 Đinh Tiên Hoàng, P.Bến Nghe, Q.1, TP.HCM Số điện thoại: (CQ): (08) 9.100.535; (DĐ): 0983.436.182 Email: ndty2000@yahoo.com tynguyendang@gmail.com CÁC THÀNH VIÊN THAM GIA: 1) ThS NGUYỄN ĐĂNG TỴ, Trưởng môn Tin học 2) ThS HỒ THỊ PHƯƠNG NGA, Trưởng môn Đào tạo chứng MỤC TIÊU CỦA ĐỀ TÀI: Xây dựng hệ thống chương trình ứng dụng quản lý tồn diện cơng tác đào tạo tin học, ngoại ngữ (đào tạo cấp chứng chỉ), trước mắt đào tạo tin học Trung Tâm Tin Học Trường Đại học KHXH & NV, bao gồm: 1) Quản lý loại hình đào tạo (Tin học đại cương – dành cho sinh viên quy, tin học văn phòng, tin học ngắn hạn – dành cho sinh viên chức, tin học nâng cao cho cử nhân tài năng, tin học dành cho cao học nghiên cứu sinh ngành khoa học xã hội nhân văn, chứng tin học quốc gia trình độ A, B…); sở đào tạo (12 Đinh Tiên Hoàng, Quận 1; Linh Trung, Thủ Đức; sở liên kết…); đội ngũ giáo viên (cơ hữu thỉnh giảng); tình hình giảng dạy (bố trí giảng dạy, coi thi, chấm bài…); quản lý chương trình giảng dạy (nội dung, số tiết…) v.v… 2) Quản lý danh sách học viên theo học khóa, lớp, năm học theo loại hình đào tạo, sở đào tạo 3) Quản lý việc cấp văn bằng, chứng tin học (theo năm học, loại hình đào tạo, sở đào tạo…) Trang TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN ĐỀ CƯƠNG NGHIÊN CỨU 4) Quản lý cơng tác tài (thu học phí, lệ phí, hồn trả lệ phí, đề thi, tiền coi thi, chấm bài, …) 5) Đánh giá chất lượng dạy học môn tin học qua năm PHƯƠNG PHÁP NGHIÊN CỨU: Dựa sở lý thuyết Cơ sở liệu, lý thuyết Phân tích thiết kế hệ thống thơng tin, nghiên cứu tình hình quản lý thực tế đơn vị để xây dựng hệ thống thông tin quản lý phù hợp với yêu cầu thiết thực hướng phát triển lâu dài đơn vị SƠ LƯỢC TÌNH HÌNH NGHIÊN CỨU Ở TRONG VÀ NGỒI NƯỚC: Hệ thống thơng tin quản lý điều mẻ quan đơn vị tư nhân Tuy nhiên, đơn vị có cấu tổ chức cách thức quản lý mang nét đặc thù riêng mình, hệ thống thơng tin hồn chỉnh khơng thể mẫu chung để áp dụng cho đơn vị có chức năng, nhiệm vụ Tại TP Hồ Chí Minh, Trung tâm đào tạo Tin học – Ngoại ngữ chưa có hệ thống thơng tin xây dựng để quản lý cách toàn diện cơng tác đào tạo Thường thấy là, số Trung Tâm lớn có phân hệ để đáp ứng phần công tác quản lý Trung Tâm Tin Học Trường Đại học Khoa học Xã hội & Nhân văn thành lập ngày 02 tháng 01 năm 2000 theo định số 03/QĐ/TCCB Hiệu Trưởng, mà tiền thân Bộ mơn Tin học, với định thành lập năm1997 Từ thành lập hết năm học 2004-2005 công tác quản lý thực thủ cơng, chí cuối năm 2004, chứng tin học phải viết tay(!?) Điều khó chấp nhận Trung tâm tin học! Công tác quản lý học viên thực thông qua bảng tính Excel, nên khó khăn, cần xác nhận điểm thi học viên từ năm trước Trước tình hình đào tạo tin học ngày phát triển (trước đào tạo tin học cho sinh viên quy ơn thi chứng A cho thí sinh tự do, có thêm sinh viên chức, sở liên kết đào tạo mở rộ loại hình đào tạo khác) đặc biệt, thời gian tới, Trường Đại học KHXH & NV tiến hành đào tạo theo học chế tín chỉ, công tác quản lý học viên, giáo viên, nội dung giảng dạy, theo dõi vấn đề tài ngày trở nên phức tạp Một hệ thống thông tin với sở liệu (CSDL) thiết kế cách hoàn chỉnh, khoa học điều cần thiết nhằm đáp ứng công tác quản lý đào tạo cách toàn diện Trung Tâm NỘI DUNG ĐỀ TÀI: 1) Thống kê phân tích toàn diện hoạt động Trung Tâm, dự đốn khả phát sinh thời gian thực đào tạo theo học chế tín chỉ, khả mở rộng tương lai, … để thiết kế hệ thống thông tin quản lý đầy đủ Trang TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG Dim Cond As String If IsNull(Form.MaCC) Then txtMaCC = "" Else txtMaCC = Trim(Form.MaCC) If IsNull(Form.MaCS) Then txtMaCS = "" Else txtMaCS = Trim(Form.MaCS) If IsNull(Form.Khoa) Then txtKhoa = "" Else txtKhoa = Trim(Form.Khoa) Set MyDB = CurrentDb If IsNull(Form.DanhSachLop) Then txtSQL = "select lh.id from lophoc lh " & _ "where lh.macc='" & txtMaCC & "' and " & _ "lh.macs='" & txtMaCS & "' and lh.khoa='" & txtKhoa & "'" Set MyRec = MyDB.OpenRecordset(txtSQL) If MyRec.EOF Or MyRec.BOF Then MsgBox "Khong co danh sach lop hoc!", vbCritical + vbOKOnly, "Quan ly sinh vien" MyRec.Close Exit Sub End If Cond1 = "" MyRec.MoveFirst While Not MyRec.EOF If Cond1 "" Then Cond1 = Cond1 & "," Cond1 = Cond1 & MyRec(0) MyRec.MoveNext Wend MyRec.Close Else Cond1 = Form.DanhSachLop End If txtSQL = "SELECT gv.MaGV, gv.TenGV, gd.ID_LopHoc, lh.TenLop, lh.NgayHoc, " & _ "Count(sv.ID) AS sosv, gd.LyThuyet, gd.ThucHanh, " & _ "[lythuyet]+[thuchanh]/3 AS quydoi " & _ "FROM GiaoVien AS gv INNER JOIN " & _ "((LopHoc AS lh INNER JOIN GiangDay AS gd ON lh.ID=gd.ID_LopHoc" & _ ") INNER JOIN SinhVien AS sv ON lh.ID=sv.ID_LopHoc) ON gv.MaGV=gd.MaGV " & _ "WHERE gd.id_lophoc in (" & Cond1 & ") " & _ "GROUP BY gv.MaGV, gv.TenGV, gd.ID_LopHoc, lh.TenLop, " & _ "lh.NgayHoc, gd.LyThuyet, gd.ThucHanh " & _ IIf(IsNull(DanhsachGV), "", "HAVING gv.MaGV in (" & DanhsachGV & ") ") & _ "ORDER BY gd.id_lophoc" Set MyRec = MyDB.OpenRecordset(txtSQL) If MyRec.EOF Or MyRec.BOF Then MsgBox "Khong co danh sach giao vien cham bai cac lop tren!", vbCritical + vbOKOnly, "Quan ly sinh vien" MyRec.Close Exit Sub End If MyRec.Close Call TaoQuery("KQ_DayHoc", txtSQL) i = Me.FrmNoiIn DoCmd.Close DoCmd.OpenReport "KQ_DayHoc_Report", IIf(i = 1, acViewPreview, acViewNormal) End Sub Trang 214 TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN PHÂN TÍCH VÀ THIẾT KẾ HỆ THOÁNG e Chuẩn bị danh sách làm chứng Tên Form: ChuanBi_CC_Form - Mục đích: Nhận thơng số chuẩn bị danh sách sinh viên để in chứng - Nguồn liệu: Khơng - Đặc tả Layout: Kích thước: 7.0cm * 12.0cm Màu chuẩn (Standard) Font= “VNI-Times” Size=11 AutoCenter=Yes MinMaxButton=None Popup=Yes Modal=Yes Form.Caption= “Chuẩn bị danh sách sinh viên đủ điều kiện để cấp Chứng chỉ” - Các biến cố (Events): CmdThemDot.Click (mở bảng DotCapCC để bổ sung đợt cấp năm); CmdThucHien.Click; … - Thủ tục hay Form gọi tới Form này: Macro mTongHop: - Các đối tượng Form (không liệt kê đối tượng quen biết): Số 10 11 Ý nghĩa Danh sách lớp thi Ký hiệu loại chứng Số chứng cuối cấp Nút thên đợt cấp CC Tên tắt LstLop Ký hiệu SoCuoi CmdThemDot Loại Ghi ListBox Ban đầu Ẩn TextBox TextBox CmdButton 10 11 12 13 14 15 - Cài đặt biến cố CmdThucHien.Click Visual Basic: Private Sub CmdThucHien_Click() Dim txtCond As String, txtMaCC, nWord As Single, nExcel As Single, nBasic As Single Dim nMaSV As Long, txtKyHieu, nSoCC As Long, nDTB As Single, Diem As Single Dim i As Integer, nCC As Long, txtGhiChu As String, MyQR As DAO.QueryDef Dim txtLop As String Trang 215 TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG If IsNull(Form.KyHieu) Or Trim(Form.KyHieu) = "" Then Form.KyHieu = DLookup("Kyhieu", "ChungChi", "ChungChi.MaCC='" & Form.MaCC & "'") End If i = IIf(IsNull(Form.NamHoc), 0, 1) If i Then i = Val(Form.NamHoc) If IsNull(Form.MaCC) Or Trim(Form.MaCC) = "" Or _ IsNull(Form.MaCS) Or Trim(Form.MaCS) = "" Or _ IsNull(Form.Khoa) Or Trim(Form.Khoa) = "" Or _ IsNull(Form.KyHieu) Or Trim(Form.KyHieu) = "" Or _ i < 2005 Or i > Year(Date) Or IsNull(Form.DotCap) Then MsgBox "Xin cho biet loai Chung chi, vi so chung chi duoc cap " & _ Chr(13) & "theo loai CC, Co so dao tao va theo Nam !", vbInformation + vbOKOnly, "Xin chu y!" Me.MaCC.SetFocus Exit Sub End If txtCond = "Nam=" & Form.NamHoc & " and MaCC='" & Form.MaCC & "' And KyHieu='" & Form.KyHieu & "' " If IsNull(Form.SoCuoi) Or Form.SoCuoi = Then If IsNull(DLookup("max(SoCC)", "CapCC", txtCond)) Then Form.SoCuoi = Else Form.SoCuoi = DLookup("max(SoCC)", "CapCC", txtCond) End If Form.Refresh End If nSoCC = Form.SoCuoi + txtKyHieu = Form.KyHieu & Right(Format(i, "0000"), 2) txtCond = "CapCC.SoCC=" & nSoCC & " and " & txtCond If Not IsNull(DLookup("id_sv", "CapCC", txtCond)) Then MsgBox "Chung chi co So va Ky hieu '" & nSoCC & "/" & Form.KyHieu & "' da duoc cap roi!", vbOKOnly, thcbMsg Exit Sub End If Set MyDB = CurrentDb txtLop = "": txtCond = "" If Not IsNull(Form.DanhSachLop) Then txtLop = Trim(Form.DanhSachLop) If txtLop "" Then ' Neu da cho danh sach lop txtSQL = "transform max(diemthi) " & _ "select lh.macc, dt.id_sv, lh.TenLop " & _ "from LopHoc as lh inner join " & _ "(sinhvien as sv inner join diemthi as dt on (sv.id=dt.id_sv)" & _ ")on lh.id=sv.id_lophoc " & _ "where lh.id in (" & txtLop & ") " & _ "group by lh.macc, dt.id_sv, lh.TenLop " & _ "pivot mamon" Else If Not IsNull(Form.MaCC) And Trim(Form.MaCC) "" Then txtCond = "lt.MaCC='" & Form.MaCC & "'" If Not IsNull(Form.MaCS) And Trim(Form.MaCS) "" Then txtCond = txtCond & IIf(txtCond = "", "", " and ") & "lt.MaCS='" & Form.MaCS & "'" If Not IsNull(Form.Khoa) And Trim(Form.Khoa) "" Then txtCond = txtCond & IIf(txtCond = "", "", " and ") & "lt.khoa='" & Form.Khoa & "'" If txtCond = "" Then Trang 216 TRƯỜNG ĐẠI HỌC KHOA HỌC XÃ HỘI VÀ NHÂN VĂN PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG MsgBox "Xin vui long cho biet Co so dao tao " & Chr(13) & "hoac/va Loai chung chi hoac/va Khoa dao tao!", , "Xin luu y" MaCC.SetFocus Exit Sub End If txtSQL = "transform max(diemthi) " & _ "select macc, dt.id_sv, lh.TenLop " & _ "from lophoc as lh inner join " & _ "(sinhvien as sv inner join diemthi as dt on (sv.id=dt.id_sv) " & _ ") on sv.id_lophoc=lh.id " & _ "where " & txtCond & " " & _ "group by macc, dt.id_sv, lh.TenLop " & _ "pivot mamon" End If Call TaoQuery("tam1", txtSQL) txtSQL = "select sv.holot, sv.ten, sv.ngaysinh, sv.noisinh, tm.* " & _ "from sinhvien as sv inner join tam1 as tm on (tm.id_sv=sv.id) " & _ "where not isnull(sv.ngaysinh) and not isnull(noisinh) and nopanh " & _ "and sv.id not in (select id_sv from CapCC) " & _ "order by sv.ten, sv.holot, sv.ngaysinh, sv.noisinh;" Call TaoQuery("tam2", txtSQL) Set MyRec = MyDB.OpenRecordset(txtSQL) If MyRec.BOF Or MyRec.EOF Then MsgBox "Cac lop da chon khong co hoc vien nao de lap chung chi!" MyRec.Close Exit Sub End If nCC = MyRec.MoveFirst While Not MyRec.EOF nWord = IIf(IsNull(MyRec("WORD")), 0, MyRec("WORD")) nExcel = IIf(IsNull(MyRec("EXCEL")), 0, MyRec("EXCEL")) If Form.MaCC = "04" Then 'Chung chi tin hoc quoc gia thi tinh khac nBasic = IIf(IsNull(MyRec("BASIC")), 0, MyRec("BASIC")) nDTB = (nBasic + nExcel + nWord) / Else nDTB = (nExcel + nWord) / End If Diem = nDTB - Int(nDTB) Diem = IIf(Diem