Hệ thống trợ giúp quyết định trong công tác đào tạo

ĐẠI HỌC QUỐC GIA HÀ NỘI TRƯỜNG ĐẠI HỌC KHOA HỌC Tự NHIÊN TÊN ĐỀ TÀI HỆ THỐNG TRỢ GIÚP QUYẾT ĐỊNH TRONG CÔNG TÁC ĐÀO TAO MÃ SÔ : QG-03-01 CHỦ TRÌ ĐỀ TÀI: PGS TS Đỗ TRUNG TUẤN HÀ NỘI, 2005 ĐẠI HỌC QUOC GIA HA NỘI TRƯỜNG ĐẠI HỌC KHOA HỌC Tự NHIÊN HỆ■ THỐNG TRỢ■ GIÚP QUYẾT ĐỊNH ■ TRONG CÔNG TÁC ĐÀO TẠO ■ MÃ S Ố : QG-03-01 CHỦ TRÌ ĐỀ TÀI : PGS TS Đỗ TRUNG TUẤN THAM GIA ĐỂ TÀI : • Ths Vũ Văn Tới, Bộ Cơng an • Vũ Văn Nam, Trường Công nghệ, Đại học Quốc gia Hà nội • Lê Thị Yên, Trường đại học dân lập Đồng • Nguyễn Văn Đơng, Ban huy qn sự, quân khu • Ths Dương Anh Tuấn, trường Đại học Khoa học Tự nhiên, Đại học Quốc gia Hà nội • Ths Lương Xuân Cương, Học viện kĩ thuật quân ĐAI HỌC Q UỐC GlÃ~HÀ N ỏ r TWIÍ \/|pN tru n g tâ m t h n g tin P T / ^ í- HÀ NỘI, 2005 ài QG-03-01 Trang LỜI CÁM ƠN Đ ề tài QG-03-01 hệ thống trợ giúp định công tác đào tạo hổ trợ nhiều Ban khoa học công nghệ, Đại học Quốc gia Hà nội, quản lí phòng khoa học, trường Đ ại học Khoa học Tự nhiên đơn vị quản lí công tác nghiên cứu tài liệu, thực nghiệm phần mềm Trong báo cáo này, xin chân thành cám ơn ■ Ban Khao học công nghệ, Đại học Quốc gia Hà nội đ ã cho phép đ ề tài triển khai, ■ Khoa Toán C Tin học đ ã tạo điều kiện để đề tài thực hiện, ■ Phòng Khoa học cơng nghệ, phòng tài vụ, trường Đ ại học Khoa học Tự nhiên, đ ã giúp đỡ đ ề tài việc hoàn thành thủ tục kết thúc đ ề tài ■ Các cán khoa học học viên, sinh viên công nghệ thơng tin, đ ã thực đóng góp vào kết đ ề tài BÁO CÁO TÓM TẮT VỀ ĐỀ TÀI TÊN ĐỂ TÀI Hệ thống trợ giúp định công tác đào tạo CHỦ TRÌ ĐỂ TÀI PGS TS ĐỖ Trung Tuấn, trường Đại học Khoa học Tự nhiên, Đại học Quốc gia Hà nội CÁC CÁN Bộ THAM GIA • Ths Vũ Văn Tới, Bộ Cơng an • Vũ Vãn Nam, Trường Cơng nghệ, Đại học Quốc gia Hà nội • Lê Thị n, Trường đại học dân lập Đơng • Nguyễn Văn Đông, Ban huy quân sự, quân khu • Ths Dương Anh Tuấn, trường Đại học Khoa học Tự nhiên, Đại học Quốc gia Hà nội MỤC TIÊU VÀ NỘI DUNG NGHIÊN c ứ u Mục tiêu : nghiên cứu phương pháp qui trình xây dựng hệ thống trợ giúp định, cho phép dùng công tác đánh giá kết học tập Nội dung : Nghiên cứu liệu không chắn, xử lí thồng tin khơng chắn, nhằm áp dụng hệ thống trợ giúp định; Tổng thuật vấn đề liên quan đến xây dựng hệ thống trợ giúp định, nhằm cung cấp tài liệu cho sinh viên đại học, học viên cao học việc tham khảo, phát triển hệ thống; Xây dựng phần mềm thử nghiệm hệ thống trợ giúp định CÁC KẾT QUẢ ĐẠT ĐƯỢC Đề tài thực nội dung đăng kí, với kết sau 2G-03-01 Trang • Các kết nghiên cứu thể dạng trình bày sinh hoạt khoa học đề tài Tài liệu “lí thuyết chắn” sử dụng tài liệu tham chiếu, huấn luyện; • Bài báo đăng tạp c h í: • Bài báo tham gia Hội thảo cơng nghệ thơng tin : • Bài báo tham gia Hội nghị khoa học : • Các luận văn tốt nghiệp cao học cơng nghệ thơng tin : • Các luận văn tốt nghiệp đại học tập lớn cồng nghệ thơng tin • Tài liệu “Hệ thống trợ giúp định” dùng công tác dáotạo bặc đại học sau đại học cồng nghệ thơng tin • Phần mềm trợ giúp định cơng tác quản lí điểm sinh viên, phần mềm viết VISƯAL BASIC, truy cập sở liệu với hộ quản trị SQL SERVER KINH PHÍ ĐỂ TÀI Đề tài cấp kinh phí hai năm, 2002- 2004, năm 30 triệu đồng; tổng cộng 60 triệu đồng Đề tài thực thủ tục tốn tài trường Đại học Khoa học Tự nhiên CHỦ TRÌ ĐỂ TÀI KHOA OUẢN LÍ c ĐỖ Trung Tuấn c QUAN CHỦ TRÌ ĐỂ TÀI : ABSTRACT PROJECT Decision Support System for training purpose MANAGER Do Trung Tuan, Ass Prof., PhD MEMBERS • Vu Van Toi, MA.; • Vu Van Nam, Eng.; • Le Thi Yen, Eng.; • Nguyen Van Dong, Eng., • Duong Anh Tuan, MA • Luong Xuan Cuong, MA PROJECT OBJECTIF AND CONTENT • Objectif : propose research results, methodology and procedure allowing building a decision support systems for training purpose, particularly for evaluating to student capacities • Content: ■ Research on un-certaint data, manipulating un-certaint information using in a decision support system; ■ Summary about aspects concerning decision support systems; a material for information technology students at the under-graduated and graduated level; ■ Software for practicing a decision support system RESULTS The project achieved some rulsults as followings : ■ Reports in scientific seminar The “certaint theory” is using as training document, reference material; £ tai QG-03-01 Trang Articles published in journals; Reports in information technology conferences in Vietnam; Master thesis on information technology; Bachelor thesis on information technology and reports of students; Training course “Decision support systems” for under-graduated and graduated level; Software for training support The software is based on VISUAL BASIC and access to database management system SQL SERVER MỤC LỤC Lời giới thiệu Tài liệu l.Tiếp cận Bayes lập luậnkhơng xác Tài liệu Lí thuyết chắn 26 Các dăng tạp chí, hội thảo khoa học 44 Các luận vãn tốt nghiệp 45 Tài liệu hệ thống trợ giúp định 46 Phần mềm trợ giúp định Các trang hình cấu trúc bảng 58 Kết luận 71 Tài liệu tham khảo 72 Phụ lục 73 Tóm tắt cơng trinh chủ nhiệm đề tài 89 Scientific project 90 Phiếu đăng kí kết khoa học-công nghệ 91 li QG-03-01 Trang LỜI GIỚI THIỆU Đề tài Cấp Đại học Quốc gia Hà nội, mã số QG-03-01 có mục đích nghiên cứu số phương pháp xử lí liệu sử dụng hệ thống trợ giúp định Việc xử lí liệu không đầy đủ, không chăc chắn thường gặp toán thực tế, đặc biệt tốn quản lí, cần định dựa vào liệu định lượng lẫn liệu định tính Trong năm qua, việc nghiên cứu hệ thống trợ giúp định triển khai mức sinh hoạt khoa học, giảng dạy bậc cao học công nghệ thông tin, ứng dụng hệ thống loại nhỏ Hệ thống trợ giúp định thường bao gồm đủ thành phần quản lí giao diện người dùng, quản trị liệu tri thức, quản trị mơ hình Việc nhận xét ứng dụng hệ thống loại đòi hỏi kiến thức xử lí liệu lẫn xử lí tri thức Đôi hệ thống trở nên phức tạp hệ chuyên gia Đề tài QG-03-01 tiếp tục nghiên cứu hệ thống trợ giúp định, tập trung vào việc xử lí liệu khơng chắn, thử nghiệm hệ thống trợ giúp định cổng tác quản lí đào tạo chuẩn bị giáo trình phục vụ đào tạo bậc đại học cao học ngành cồng nghệ thông tin Các kết đạt đề tài • Bài viết lí thuyết chắn; • Một số nghiên cứu trình bày hội thảo khoa học, đãng tạp chí khoa học; • Tài liệu dùng cho cơng tác đào tạo; • Phần mềm trợ giúp định cơng tác quản lí đào tạo \i QG-03-01 Trang TÀI LIỆU TIẾP CẬN BAYES ĐỐI VỚI LẬP LUẬN KHƠNG CHÍNH XÁC Phần đề cập tiếp cận Bayes lập luận không xác Phần đầu nguyên tắc lí thuyết xác suất để giới thiệu định lí Bayes Phần hỗ trợ người phát triển hệ chuyên gia theo tiếp cận Bayes để quản lý tốt vấn đề giới thực Các trợ giúp xuất vài hệ thống, chẳng hạn hộ chuyên gia PROSPECTOR Phần cuối giới thiệu đặc tính cần thiết cần trang bị để sử dụng hiệu kĩ thuật Bayes hộ chuyên gia I LÍ THUYẾT XÁC SUẤT Thơng tin khồng xác đối tượng lí thuyết xác suất Xác suất tiếp cận toán học để xử lý thồng tin khơng chắn, có nguồn gốc từ trò cá cược từ kỉ 17 Năm 1654 Pascal Fermat phát triển lí thuyết xác suất cổ điển để rút phép suy luận số học từ liệu Lí thuyết xác suất giả sử có số p(E) gọi xác suất, khả xảy kiện E số thực nghiêm ngẫu nhiên Đó với số lần thử lớn tỉ lộ số lần xảy E xấp xỉ p(E) Tập tất đầu có thực nghiệm gọi khơng gian mẫu, kí hiệu s 1.1 Không gian mẫu rời rạc Nhiều thực nghiệm có kết rời rạc Chẳng hạn với việc gieo súc sắc {1, s= 2, 3, 4, 5, 6} Mỗi kiện s kết mà phép thử nhận Nếu sau N lần thử, kiện E xảy W(E) p(E) = W(E)/ N Hình thức hơn, số lần xuất E f(E) p(E) = limN_Hof(E)/ N f(E) tần số xuất kiện E N xuất quan sát Loại xác suất biết xác suất sau (posteriori probability), có nghĩa ”sau kiện” Xác suất số đốn khả xảy kiện; tuân theo ràng buộc sau : < p(E) < 1, p(E¿) = vối i = l n n tất kiện p(E) + p(~E) = 1, ~E kiện khơng E, phần bù E 1.2 Không gian m ẫu liên tục Tinh tong diem thi Ian I SQLSelect = "SELECT Sum(Monhoc.SoDVHT*Diem.DiemLanl), Sum(Monhoc.SoDVHT),Sinhvien.Ma" SQLSelect = SQLSelect & " FROM SinhVien INNER JOIN" SQLSelect = SQLSelect & " Diem ON SinhVien.Ma = Diem.MaSinhVien INNER JOIN" I SQLSelect = SQLSelect & " Monhoc ON Diem.MaMon = Monhoc.Ma AND" SQLSelect = SQLSelect & " (Diem.DiemLanl >= AND Diem.DiemLanll = - AND" SQLSelect = SQLSelect & " Diem.DiemHoclai = - 2)" SQLSelect = SQLSelect & " GROUP BY sinhvien.Ma" Result.Open SQLSelect, Conn While Not Result.EOF MaSv = Result(2) TongDiem = Result(O) TongDVHT = Result(1) SQLSelect = "SELECT Sum(Monhoc.SoDVHT*Diem.DiemLanll),Sum(Monhoc.SoDVHT),Sinhvien.Ma" SQLSelect = SQLSelect & " FROM SinhVien INNER JOIN" SQLSelect = SQLSelect &" Diem ON SinhVien.Ma = Diem.MaSinhVien INNER JOIN" SQLSelect = SQLSelect & " Monhoc ON Diem.MaMon = Monhoc.Ma AND" SQLSelect = SQLSelect & " (Diem.DiemLanl < AND Diem.DiemLanll >= AND" SQLSelect = SQLSelect & " Diem.DiemHoclai = - 2)" SQLSelect = SQLSelect & " GROUP BY sinhvien.Ma Having Sinhvien.Ma-" & MaSv & Rs.Open SQLSelect, Conn While Not Rs.EOF TongDiem = TongDiem + Rs(0) TongDVHT = TongDVHT + Rs(1) Rs.MoveNext Wend Rs.Close SQLSelect = "SELECT Sum(Monhoc.SoDVHT*Diem.DiemLanl)/Sum(Monhoc.SoDVHT),Sinhvien.Ma" SQLSelect = SQLSelect & " FROM SinhVien INNER JOIN" SQLSelect = SQLSelect & " Diem ON SinhVien.Ma = Diem.MaSinhVien INNER JOIN" SQLSelect = SQLSelect & " Monhoc ON Diem.MaMon = Monhoc.Ma AND" SQLSelect = SQLSelect & " (Diem.DiemLanl < AND Diem.DiemLanll = 5)" SQLSelect = SQLSelect & " GROUP BY sinhvien.Ma Having Sinhvien.Ma-" & MaSv & RsI.Open SQLSelect, Conn While Not Rs1.EOF TongDiem = TongDiem + Rs1(0) TongDVHT = TongDVHT + Rs1(1) RslMoveNext Wend Rs1 Close SQLSelect = "select * From XepLoai Where m a -" & MaSv & Rs.Open SQLSelect, Conn Kq = RoundfTongDiem / TongDVHT, 2) If Not Rs.EOF Then Rs.Close 'f SOLSetect = "Update XepLoahSet DiemTB='" & Kq & ~,GhiChu='Gioi' where Ma=" & MaSv & Rs.Open SQLSelect, Conn Elself TongDiem / TongDVHT >= Then HiQG-03-01 Trang 79 MaSv & SQLSelect = "Update XepLoai Set DiemTB="’ & Kq & "',GhiChu='Kha' where Ma=“ & Rs.Open SQLSelect, Conn Elself TongDiem / TongDVHT >= 6.5 Then SQLSelect = "Update XepLoai Set DiemTB="' & Kq & "\GhiChu=TBKha’ where Ma="' & MaSv & ,,,M Rs.Open SQLSelect, Conn Elself TongDiem / TongDVHT >= Then SQLSelect = "Update XepLoai Set DiemTB=,H& Kq & "'.GhiChu^TB' where Ma=m& MaSv & Rs.Open SQLSelect, Conn Else SQLSelect = "Update XepLoai Set DiemTB='" & Kq & "'.GhiChu^eu' where Ma='" & MaSv & Rs.Open SQLSelect, Conn End If Else Rs.Close If TongDiem / TongDVHT >= Then SQLSelect = "Insert Into XepLoai(Ma,MaSinhVien,DiemTB,GhiChu) ValuesC" & MaSv & "7" & MaSv & "7* & Kq & ",'Gioi')" Rs.Open SQLSelect, Conn Elself TongDiem / TongDVHT >= Then SQLSelect = "Insert Into XepLoai(Ma,MaSinhVien,DiemTB,GhiChu) ValuesC" & MaSv & "7" & MaSv & "7’ & Kq & ",’Kha’)" Rs.Open SQLSelect, Conn Elself TongDiem / TongDVHT >= 6.5 Then SQLSelect = "Insert Into XepLoai(Ma,MaSinhVien,DiemTB,GhiChu) ValuesC" & MaSv & "7" & MaSv & & Kq & VTBKha')" Rs.Open SQLSelect, Conn Elself TongDiem / TongDVHT >= Then SQLSelect = "Insert Into XepLoai(Ma,MaSinhVien,DiemTB,GhiChu) Values('" & MaSv & "7" & MaSv & & Kq & ",'TB')" Rs.Open SQLSelect, Conn Else SQLSelect = "Insert Into XepLoai(Ma,MaSinhVien,DiemTB,GhiChu) ValuesC" & MaSv & "7" & MaSv & & Kq & ",'Yeu')" MsgBox SQLSelect Rs.Open SQLSelect, Conn End If End If Result.MoveNext Wend Result.Close Result.Open "Select * from XepLoai", Conn Set MSHFIexGridl DataSource = Result Result.Close End Sub Private Sub Form_Load() Me.WindowState = Set Conn = New ADODB.Connection Conn.Provider = "SQLOLEDB" Conn.Properties("Data Source") = ServerName Conn.Propertiesflnitial Catalog") = DataBaseName Conn.PropertiesfUser ID") = UserName Conn.Properties("Password") = Password Conn.Open Addltem SSTabl.Tab = Result.Open "Select * from Diem", Conn Set MSHFIexGridDiem.DataSource = Result ResullClose For I = To MSHFIexGridDiem.Rows -1 For J = To MSHFIexGridDiem.Cols -1 If MSHFIexGridDiem.TextMatrix(l, J) = "-2" Then MSHFIexGridDiem.TextMatrix(l, J) = " " End If Next Next End Sub Private Sub Addltem() Result.Open "Select * From Khoa", Conn While Not Result.EOF CboKhoa.Addltem ResultfTenKhoa") CboMaKhoa.Addltem Result("Ma") Result.MoveNext Wend Result.Close If CboKhoa.ListCount > Then CboKhoa.Listlndex = CboKhoa_Click End If Result.Open "Select * from MonHoc", Conn While Not Result.EOF CboMon.Addltem Result("Ten") CboMaMon.Addltem Result("Ma") Result.MoveNext Wend Result.Close If CboMon.ListCount > Then CboMon.Listlndex = CboMon_Click End If End Sub Private Sub MSHFIexGridDiem_Click() Dim I As Long CmdDiemAddnew.Enabled = False CmdDiemSua.Enabled = True CmdDiemXoa.Enabled = True MSHFIexGridDiem.Col = CodeMon = MSHFIexGridDiem.Text MSHFIexGridDiem.Col = If MSHFIexGridDiem.Text < > " " Then OptLanl.Value = True TxtDiem.Text = MSHFIexGridDiem.Text End If •toQG-03-01 Trang 81 MSHFIexGridDiem.Col = If MSHFIexGridDiem.Text < > " " Then OptLanll.Value = True TxtDiem.Text = MSHFIexGridDiem.Text End If MSHFIexGridDiem.Col = If MSHFIexGridDiem.Text - - Then OptLanlll.Value = True TxtDiem.Text = MSHFIexGridDiem.Text End If MSHFIexGridDiem.Col = If CboMaSinhvien.ListCount > Then For I = To CboMaSinhvien.ListCount CboMaSinhvien.Listlndex = I If CboMaSinhvien.Text = MSHFIexGridDiem.Text Then Exit For End If Next CboTen.Listlndex = I End If MSHFIexGridDiem.Col = For I = To CboMaMon.ListCount CboMaMon.Listlndex = I If CboMaMon.Text = MSHFIexGridDiem.Text Then Exit For End If Next CboMon.Listlndex = I End Sub Private Sub TxtDiem_LostFocus() If Not IsNumeric(TxtDiem.Text) Or TxtDiem.Text ="" Then MsgBox "Bạn nhập sai giá trị trờng điểm" TxtBiem.Text = TxtDiem.SetFocus End If End Sub Private Sub Form_Deactivate() ♦ Unload Me End Sub Sub cleartexto TxtDiem Text ="" CboHo.SetFocus End Sub w tài QG-03-01 Trang 82 GENERAL.FRM Dim Conn As New ADODB.Connection Public IndexTab As Integer Dim MKhoaHoc As string MKhoa As string, MLop As string Dim Result As New ADODB.Recordset Private Sub CboKhoa_Click() CboMaKhoa.Listlndex = CboKhoa.Listlndex End Sub Private Sub CboTenKhoaHoc_Click() Dim s As String CboMaKhoaHoc.Llstlndex = CboTenKhoaHoc.Listlndex s = "Select * From Khoa Inner Join KhoaHoc ON KhoaHoc.MaKhoa=Khoa.Ma And KhoaHoc.Ma=m& CboMaKhoaHoc.Text & Result.Open s, Conn If Not Result.EOF Then IblKhoa.Caption = "khoa " + Result(1) End If Result.Close End Sub Private Sub CmdAddnewKhoa_Click() Dim SQLSelect As string If TxtKhoaMa.Text ""Then Result.Open "Select * from Khoa Where Ma="' & TxtKhoaMa.Text & Conn If Not Result.EOF Then MsgBox "Dữ liệu trờng có", vblníormation + vbOKOnỉy, App.Title & ": Dữ liệu trùng" Result.Close Exit Sub End If Result.Close If TxtKhoaTen.Text "" Then Result.Open "Select * from Khoa Where TenKhoa="' & TxtKhoaTen.Text & Conn If Not Result.EOF Then MsgBox "Dữ liệu trờng có", vblnformation + vbOKOnly, App.Title & ": Dữ liệu trùng” Result.Close Exit Sub End If Result.Close •If TxtKhoaTenHieu.Text "" Then SQL-Select = "Insert Into Khoa V aluesf & TxtKhoaMa.Text & "7" & TxtKhoaTen.Text & M,: M& TxtKhoaTenHieu.Text & Result.Open SQLSelect, Conn 'Else ' MsgBox "Bạn cha nhập tên khoa " ' TxtKhoaHocTenHieu.SetFocus ' Exit Sub 'End If Else Then CboKhoaHoc.Listlndex = End If End Sub Private Sub CboKhoaHoc_Click() CboMaKhoaHoc.Listlndex = CboKhoaHoc.Listlndex CboLop.Clear CboMaLop.Clear ResultOpen "Select * From Lop Where MaKhoaHoc-" & CboMaKhoaHoc.Text & While Not ResultEOF CboLop.Addltem Result("Ten") CboMaLop.Addltem Result("Ma") Result.MoveNext Wend Result Close If CboLop.ListCount > Then CboLop Listlndex = End If End Sub Private Sub CboLop_Click() CboMaLop.Listlndex = CboLop.Listlndex End Sub Private Sub ChkHoclai_DblClick() ChkHoclai.Value = Not ChkHoclai.Value End Sub Private Sub ChkThiLai_DblClick() ChkThiLai.Value = Not ChkThiLai.Value End Sub Private Sub CmdSearch_Click() Dim SQLSelect As String, Condition As String SQLSelect = "SELECT SUM(XepLoai.DiemTB)/Count(Sinhvien.Ma) AS [Diem TB], SQLSelect = SQLSelect & " COUNT(Diem.DiemLanll) AS [Diem thi laij," SQLSelect = SQLSelect & " COUNT(Hoatdong.ThiQuocgia) AS [Thi Olympic]," SQLSelect = SQLSelect & " COUNT(Hoatdong.Thamgiadoan) AS [Cong tac do£n], SQLSelect = SQLSelect & " SUM(Hoatdong.Dimuon) AS [So Ian di muon]," SINHVIEN FRM Dim Conn As New ADODB.Connection Dim RowSelect As Integer Dim CodeSelect As String • Dim Result As New ADODB Recordset Private Sub CboHo_Click() CboTen.Listlndex = CboHo.Listlndex CboMa.Listlndex = CboHo.Listlndex End Sub Private Sub CboKhoa Click() CboMaKhoa Listlndex = CboKhoa.Listlndex Result.Open "Select * from KhoaHoc Where MaKhoa='" & CboMaKhoa.Text & Conn CboKhoaHoc.Clear CboMaKhoaHoc.Clear While Not Result.EOF CboKhoaHoc.Addltem ResultfTenKhoa") CboMaKhoaHoc.Addltem Resultf'Ma") Result.MoveNext Wend Result.Close If CboKhoaHoc.ListCount > Then CboKhoaHoc.Listlndex = CboKhoaHoc Click End If End Sub Private Sub CboKhoaHoc_Click() CboMaKhoaHoc.Listlndex = CboKhoaHoc.Listlndex Result.Open "Select * From Lop Where MaKhoaHoc-" & CboMaKhoaHoc.Text & , Conn CboLop.Clear CboMaLop.Clear While Not Result.EOF CboLop.Addltem Resultf'Ten") CboMaLop.Addltem Resultf'Ma") Result.MoveNext Wend Result.Close If CboLop.ListCount > Then CboLop.Listlndex = CboLop_Click End If End Sub Private Sub CboLop_Click() CboMaLop.Listlndex = CboLop.Listlndex CboHo.Clear CboTen.Clear CboMa.Clear Result.Open "Select * From Sinhvien Where MaLop='" & CboMaLop.Text & While Not ResultEOF CboTen.Addltem Resultf'Ten") Conn ► m ain frm Begin VB.Menu MnuFile Caption = -Hệ thống" NegotiatePosition= 'Left Bẹgin VB.Menu MnuFileChangePass Caption = "Logout" End Begin VB.Menu Mn1 Caption = End Begin VB.Menu MnuFileExit Caption = ’Thoát" End End Begin VB.Menu MnuDataBase Caption = "Cơ sỏ liệu" Begin VB.Menu MnuDatabaseGeneral Caption = 'Tổng hợp" End Begin VB.Menu MnuDatabasel Caption = End Begin VB.Menu MnuDatabaseStudent Caption = "Sinh viên" End Begin VB.Menu MnuDatabaseMark Caption = "Môn học" End Begin VB.Menu MnuDataBaseDiem Caption = "Điểm" End End Begin VB.Menu MnuFindAndStatistic Caption = "Tìm kiếm/Thống kê" Begin VB.Menu MnuFindAndStatisticMark Caption = "Mơn học" End • End Begin VB.Menu MnuPresent Caption = "Báo cáo" End Begin VB.Menu mnucongcu Caption = "Công cụ" Begin VB.Menu mnucongcuchuan Caption = "Công cụ chuẩn" Checked = -1 'True End Begin VB.Menu mnutrangthai Caption = "ủcĩạng thái" ầiQG-03-01 Trang 8 t ó m t ắ t c ô n g t r ìn h c ủ a c h ủ n h iệ m đ ể t i Ngành : công nghệ thông tin Chuyên ngành : hệ thống thông tin sở liệu 1/ Các báo cáo ■ Do Trung Tuan, End-users interface for practical decision support systems, Vnu Journal of Science, Math Physics, T XVIII, N.4, 2002, p.44-52 ■ Đỗ Trung Tuấn, Lương Xuân Cương, Nguyễn Văn Tảo, Nhúng trợ giúp định đa phương tiện vào hệ thống E-leaming, Hội thảo quốc gia lần thứ Kỉ yếu “một số vấn đề chọn lọc công nghệ thông tin truyền thông”, 8/ 2004, tr 86- 90 ■ Đỗ Trung Tuấn, Lương Xuân Cương, Hệ thống trợ giúp định đa phương tiện, Hội nghị Khoa học Khoa Toán Cơ Tin học, 10/ 2004 2/ Các lớp đào tạo ■ Đào tạo bậc đại học cao học hệ thống trợ giúp định ■ Hướng dẫn học viên đề tài liên quan đến hệ thống trợ giúp định MlàiQG-03-01 Trang 89 SCIENTIFIC PROJECT Branch : Information Technology Project category : Vietnam National University Title : Decision Support System for training purpose Code : QG-03-01 Managing Institution : University of Science Collaborating institutions : ■ Information Technology Faculty, DongDo University ■ Information Technology Faculty, University of Technology, Vietnam National University Coordinator : Key implementor : Duration : 2002-2004 Main results : ■ Reports and articles ■ Training courses ■ Thesis ■ Software Evaluation grade : ^ QG-03-01 Trang 90 PHIẾU ĐÃNG KÍ KẾT QUẢ NGHIÊN c ứ u KH-CÔNG NGHỆ Tên đề tà i: Hệ trợ giúp định công tác đào tạo Mã số: QG-03-01 Cơ quan chủ trì đề tà i: Trường Đại học Khoa học Tự nhiên, Đại học Quốc gia Hà nội Địa ch ỉ: 334 Nguyễn Trãi, Hà nội Điện thoại: 84-04-8581530 Cơ quan quản lí đề tà i: Khoa Toán Cơ Tin học, Trường Đại học Khoa học Tự nhiên Địa ch ỉ: 334 Nguyễn Trãi, Hà nội Điện thoại: 84-04-8581530 Tổng kinh phí thực th i: 60 triệu đồng Trong đ ó : • Ngân sách nhà nước : 60 triệu đồng • Kinh phí trường : • Vốn vay: Thời gian nghiên cứu • Thời gian bắt đẩu : 11/ 2002 • Thời gian kết thúc : 12/ 2004 Tên cán tham gia : • -03-01 Trang 91 Ths Vũ Văn Tối, Bộ Cơng an • Vũ Vãn Nam, Trường Cồng nghệ, Đại học Quốc gia Hà nội • Lê Thị n, Trường đại học dân lập Đơng • Nguyễn Văn Đông, Ban huy quân sự, quân khu • Ths Dương Anh Tuấn, trường Đại học Khoa học Tự nhiên, Đại học Quốc gia Hà nội • Ths Lương Xuân Cương, Học viện kĩ thuật quân Số đăng kí Chứng nhận đăng kí• N gày: Kết nghiên cứu• Phổ biến rộng rãi Phổ biến hạn chế • Bảo mật Tóm tắt kết nghiên cứu • Các kết nghiên cứu thể dạng trình bày sinh hoạt khoa học đề tài Tài liệu “lí thuyết chắn” sử dụng tài liệu tham chiếu, huấn luyện; • Bài báo đăng tạp c h í: • Bài báo tham gia Hội thảo cồng nghệ thông tin : • Bài báo tham gia Hội nghị khoa học : • Các luận văn tốt nghiệp cao học cơng nghệ thơng tin • Các luận văn tốt nghiệp đại học tập lớn công nghệ thơng : tin : • Tài liệu “Hệ thống trợ giúp định” dùng công tác dầo tạo bặc đại học sau đại học công nghệ thông tin • Phần mềm trợ giúp định cơng tác quản lí điểm sinh viên, phần mềm viết VISƯAL BASIC, truy cập sờ liệu với hệ quản trị SQL SERVER Kiến nghị quy mơ đối tượng áp dụng nghiên cứu • Đề xuất hoàn thiện định huớng nghiên cứu hệ thống trợ giúp định • Đề xuất xây dựng hệ thống thông tin trợ giúp công tác quản lí đào tạo toQG-03-01 Trang 92 Chủ nhiệm Thủ trưởng quan để tài Họ tên ĩr n Học hàm Kí tên / r Chủ tịch Hội Thủ trưởng đồng đánh giá quan quản lí SlM ệ úrí.n / — ■ í ’ä w f e ä /Ể M Ị ầ y HHIỀN >o\ \ TL GỈÁM € > c c rjJRliONG DAN KHOA HOC-CONG NGKc PHQ T R Ư Ồ N Ò B A N ^iàiQG-03-01 Trang 93 ... thức Đơi hệ thống trở nên phức tạp hệ chuyên gia Đề tài QG-03-01 tiếp tục nghiên cứu hệ thống trợ giúp định, tập trung vào việc xử lí liệu không chắn, thử nghiệm hệ thống trợ giúp định cổng tác quản... lớn cồng nghệ thơng tin • Tài liệu Hệ thống trợ giúp định dùng công tác dáotạo bặc đại học sau đại học cồng nghệ thơng tin • Phần mềm trợ giúp định cơng tác quản lí điểm sinh viên, phần mềm... trình xây dựng hệ thống trợ giúp định, cho phép dùng công tác đánh giá kết học tập Nội dung : Nghiên cứu liệu khơng chắn, xử lí thồng tin không chắn, nhằm áp dụng hệ thống trợ giúp định; Tổng thuật