- Các thông tin, dữ liệu về hồ sơ sinh viên còn hạn chế, chƣa có một số thuộc tính nhƣ : khen thƣởng, kỷ luật, đảng, đoàn, chế độ ƣu tiên. Do đó một số nghiệp vụ quản lý vẫn chƣa đƣợc tự động hoá.
- Chƣa kết nối đƣợc với hệ thống thông tin tuyển sinh của nhà trƣờng, do sau khi có kết quả xét duyệt tuyển sinh của nhà trƣờng lại phải nhập danh sách sinh viên đã trúng tuyển vào hệ thống này. Về mặt nhập liệu trên phạm vi toàn trƣờng là trùng 2 lần, gây lãng phí.
- Chƣa quản lý điểm đƣợc tới các môn học của các học kỳ, mà mới chỉ quản lý đƣợc đến điểm trung bình chung của học kỳ. Do đó mỗi học kỳ, giáo viên chủ nhiệm lại phải cộng điểm bằng thủ công, sau khi tính ra đƣợc điểm TBC mới nhập vào máy. Nhƣ vậy khả năng tự động hoá tính toán chƣa cao.
III. Hƣớng khắc phục, phát triển mở rộng :
- Bổ sung thông tin quản lý về hồ sơ sinh viên nhƣ : khen thƣởng, kỷ luật, đảng, đoàn, chế độ ƣu tiên vv, để ý nghĩa của hệ thống cho công tác quản lý sinh viên - sinh viên và kết quả đào tạo cao hơn.
- Thiết kế module kết nối với phần mềm tuyển sinh để khi thi tuyển hoặc xét tuyển thì dữ liệu về thí sinh trúng tuyển sẽ đƣợc tự động cập nhật. Tiết kiệm thời gian nhập liệu, tăng cƣờng tính tự động hoá.
- Phân tích và thiết kế module quản lý điểm tới các môn học để giúp cho các giáo viên chủ nhiệm trong công tác tính toán điểm các môn học của sinh viên một cách nhanh chóng và chính xác.
Xin chân thành cảm ơn Thày hƣớng dẫn - Tiến sĩ : Lê Văn Phùng - Viện CNTT đã giúp em hoàn thành bản luận văn này !
TÀI LIỆU THAM KHẢO
1. Phân tích thiết kế hệ thống thông tin - TS Lê Văn Phùng - NXB Đại học QG 2004. 2. Phân tích thiết kế hệ thống thông tin - Nguyễn Văn Ba - NXB Đại học QG 2003. 3. Phân tích thiết kế, cài đặt hệ thống thông tin quản lý - Viện Tin học 1990
4. Giáo trình P hân tích TK HTTT - Đào Thanh Tĩnh - Viện ĐH Mở HN
5.Giáo trình Phân tích TK HTTTQL- Nguyễn Quang Thông - TT ĐT Công nghệ AVNET 6. Phân tich thiết kế Hệ thống thô ng tin - Phạm Tuấn Anh - Đại học Bách khoa Hà Nội 7. Thiết lập hệ thống thông tin quản lý của các tổ chức - Louis Rigand, Dunod 1984- Bản dịch tiếng Việt 1988.
8. Phƣơng pháp thiết kế các HTTT phục vụ quản lý doanh nghiệp - Merise 1994
9. SQLSerrver2005-Lập trình thủ tục và hàm-Phạm Hữu Khang-NXB Lao Động Xã Hội 10. Lập trình VB.NET - Nguyễn Hữu Bình – NXB Thống kê 2002
11. Lập trình Visual Basic.NET - Phạm Hữu Khang - NXB Lao Động Xã Hội 12.Visual Basic.NET 2005 - Hoàng Anh Quang - NXB Văn hoá Thông tin.
13. Nguyên lý các hệ CSDL và cơ sở tri thức - Jeffrey D. Ullman - NXB Thống kê 1998 14. Kỹ nghệ phần mềm - Roger S.Pressman - NXB Giáo dục 1999
PHẦN PHỤ LỤC 1. Code tạo và xử lý giao diện của chƣơng trình :
<?xml version="1.0" encoding="utf-8" ?> <configuration> <configSections> </configSections> <connectionStrings> <add name="QLSV.My.MySettings.QLSVConnectionString"
connectionString="Data Source=localhost;Initial Catalog=QLSV;Integrated Security=True"
providerName="System.Data.SqlClient" /> </connectionStrings>
<system.diagnostics> <sources>
<!-- This section defines the logging configuration for My.Application.Log --> <source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Uncomment the below section to write to the Application Event Log --> <!--<add name="EventLog"/>-->
</listeners> </source> </sources> <switches>
<add name="DefaultSwitch" value="Information" /> </switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral,
PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners> </system.diagnostics> </configuration>
2. Code xử lý thông tin cơ sở dữ liệu :
mports System.Data.Sql
Imports System.Data.SqlClient Imports System
Public Class Sqlhelper
Public ADAP TER As SqlDataAdapter
Public Shared ConnectString As String = "Data Source=(local);Initial Catalog=QLSV;Integrated Security=True"
Public Shared Function ExecuteDataTable(ByVal sql As String, ByVal
commandTyped As CommandType, ByVal ParamArray pars As Object()) As DataTable Dim con As SqlConnection = New SqlConnection(ConnectString)
Dim com As SqlCommand = New SqlCommand(sql, con) com.CommandType = commandTyped
Dim i As Integer
For i = 0 To pars.Length - 2 Step 2
Dim par As SqlParameter = New SqlParameter(pars(i).ToString(), pars(i + 1)) com.P arameters.Add( par)
Next
Dim dad As SqlDataAdapter = New SqlDataAdapter(com) Dim dst As DataSet = New DataSet()
dad.Fill(dst) con.Close()
Return dst.Tables(0) End Function
Public Shared Function ExecuteDataAdapter(ByVal sql As String, ByVal commandTyped As CommandType, ByVal ParamArray pars As Object()) As SqlDataAdapter
Dim con As SqlConnection = New SqlConnection(ConnectString) Dim com As SqlCommand = New SqlCommand(sql, con)
com.CommandType = commandTyped Dim i As Integer
For i = 0 To pars.Length - 2 Step 2
Dim par As SqlParameter = New SqlParameter(pars(i).ToString(), pars(i + 1)) com.P arameters.Add(par)
Next
Dim dad As SqlDataAdapter = New SqlDataAdapter(com) con.Close()
End Function
Public Shared Function ExecuteDataSet(ByVal sql As String, ByVal commandTyped As CommandType, ByVal ParamArray pars As Object()) As DataSet
Dim con As SqlConnection = New SqlConnection(ConnectString) Dim com As SqlCommand = New SqlCommand(sql, con)
com.CommandType = commandTyped Dim i As Integer
For i = 0 To pars.Length - 2 Step 2
Dim par As SqlParameter = New SqlParameter(pars(i).ToString(), pars(i + 1)) com.P arameters.Add(par)
Next
Dim dad As SqlDataAdapter = New SqlDataAdapter(com) Dim dst As DataSet = New DataSet()
dad.Fill(dst) con.Close() Return dst End Function
Public Shared Sub ExecuteNonQuery(ByVal sql As String, ByVal commandtyped As CommandType, ByVal ParamArray pars As Object())
Dim con As SqlConnection = New SqlConnection(ConnectString) con.Open()
Dim com As SqlCommand = New SqlCommand(sql, con) com.CommandType = commandtyped
Dim i As Integer
For i = 0 To pars.Length - 2 Step 2
Dim par As SqlParameter = New SqlParameter(pars(i).ToString(), pars(i + 1)) com.Parameters.Add(par)
Next
com.ExecuteNonQuery() con.Close()
End Sub
'public static SqlDataAdapter ExecuteDataAdapter( ' string sql,
' CommandType commandType, ' params object[] pars)
'{
' SqlConnection con=new SqlConnection(ConnectString); ' SqlCommand com=new SqlCommand(sql,con);
' com.CommandType=commandType; ' for (int i=0;i<pars.Length;i+=2) ' {
' SqlParameter par=new SqlParameter(pars[i].ToString(),pars[i+1]); ' com.Parameters.Add(par);
' }
' SqlDataAdapter dad=new SqlDataAdapter(com); ' //DataSet dst=new DataSet();
' //dad.Fill(dst); ' return dad; '} End Class Yêu cầu nhập điểm Lớp