《NET技术》课程设计报告.docx

1、NET技术课程设计报告课程设计报告 系（部、中心） 姓 名 学 号 专 业 班 级 同组人员 课程名称 .NET技术 设计题目名称 学生成绩管理系统系统管理子系统设计与实现 起止时间 成 绩 指导教师签名 北方民族大学教务处制目 录1. 系统总体分析与设计 21.1 系统体系结构 21.2 系统功能结构 42. 系统数据库设计与实现 43. 系统功能详细设计与实现 63.1 基本信息维护子系统 64. 结束语 225. 参考文献 221. 系统总体分析与设计1.1 系统体系结构本系统采用客户/服务器（Client/Server）模式。图1-1 系统体系结构图（1）应用服务器运行数据负荷较轻。最

2、简单的C/S体系结构的数据库应用由两部分组成，即客户应用程序和数据库服务器程序。二者可分别称为前台程序与后台程序。运行数据库服务器程序的机器，也称为应用服务器。一旦服务器程序被启动，就随时等待响应客户程序发来的请求；客户应用程序运行在用户自己的电脑上，对应于数据库服务器，可称为客户电脑，当需要对数据库中的数据进行任何操作时，客户程序就自动地寻找服务器程序，并向其发出请求，服务器程序根据预定的规则作出应答，送回结果，应用服务器运行数据负荷较轻。 （2）数据的储存管理功能较为透明。在数据库应用中，数据的储存管理功能，是由服务器程序和客户应用程序分别独立进行的，前台应用可以违反的规则，并且通常把那些

3、不同的（不管是已知还是未知的）运行数据，在服务器程序中不集中实现，例如访问者的权限，编号可以重复、必须有客户才能建立定单这样的规则。所有这些，对于工作在前台程序上的最终用户，是“透明”的，他们无须过问（通常也无法干涉）背后的过程，就可以完成自己的一切工作。在客户服务器架构的应用中，前台程序不是非常“瘦小”，麻烦的事情都交给了服务器和网络。在C/S体系的下，数据库不能真正成为公共、专业化的仓库，它受到独立的专门管理。 （3）C/S架构的劣势是高昂的维护成本且投资大。首先，采用C/S架构，要选择适当的数据库平台来实现数据库数据的真正“统一”，使分布于两地的数据同步完全交由数据库系统去管理，但逻辑上

4、两地的操作者要直接访问同一个数据库才能有效实现，有这样一些问题，如果需要建立“实时”的数据同步，就必须在两地间建立实时的通讯连接，保持两地的数据库服务器在线运行，网络管理工作人员既要对服务器维护管理，又要对客户端维护和管理，这需要高昂的投资和复杂的技术支持，维护成本很高，维护任务量大。1.2 系统功能结构本系统主要的业务模块有系统管理模块、基本信息维护模块、查询管理模块和成绩管理模块，其中系统管理模块主要是实现用户登陆、修改密码、找回密码功能，基本信息维护模块主要实现对教师和学生信息的添加、删除和修改，查询管理模块主要实现查询成绩、对教师和学生信息的查询，成绩管理模块主要实现对学生成绩的录入与

5、修改。本系统涉及的用户有管理员、教师和学生。功能模块图如下：图1-2 系统功能模块图2. 系统数据库设计与实现（1）User用户表字段名称说明数据类型长度主/外键约束备注UserName用户名变长字符型10主键Password密码变长字符型10非空Permission权限变长字符型10非空（2）Teach授课表字段名称说明数据类型长度主/外键约束备注TeacherID教职工号变长字符型10主键CourseID课程代码变长字符型6非空（3）Teacher教师表字段名称说明数据类型长度主/外键约束备注TeacherID教职工号变长字符型10主键Tname姓名变长字符型20非空Tsex性别字符型2非

6、空E-mail邮箱变长字符型20College院部变长字符型20非空（4）Course课程表字段名称说明数据类型长度主/外键约束备注CourseID课程代码变长字符型6主键Cname课程名称变长字符型10非空Cnature课程性质变长字符型10非空Credit学分单精度型8（5）Student学生表字段名称说明数据类型长度主/外键约束备注StudentID学号变长字符型10主键Sname姓名变长字符型20非空Ssex性别字符型2非空College院部变长字符型20非空Major专业变长字符型20非空”Class行政班变长字符型10非空（6）Study选修表字段名称说明数据类型长度主/外键约束备

7、注StudentID学号变长字符型10主键、外键参照“学生表”中的“StudentID”CourseID课程代码整型10主键、外键参照“课程表”中的“CourseID”Year学年变长字符型10Term学期整型4Score成绩单精度型8图2-1 数据库实现关系图3. 系统功能详细设计与实现3.1 系统管理子系统 系统子系统主要是完成：用户的登录，找回密码，修改密码定义公共类EditDataImports System.Data.OleDbPublic Class EditData Shared ConnStr As String = Provider=Microsoft.Jet.OLEDB.4

8、.0;Data Source= SSMS.mdb;Persist Security Info=True 共享方法Insert Shared Function Insert(ByVal strSQL As String) As Integer Dim conn As OleDbConnection = New OleDbConnection(ConnStr) Dim myCommand As OleDbCommand = New OleDbCommand(strSQL, conn) Dim count As Integer = 0 Try conn.Open() count = myComman

9、d.ExecuteNonQuery() Catch ex As OleDbException MsgBox(ex.ToString) Catch ex As Exception MsgBox(ex.ToString) Finally conn.Close() End Try Return count End Function 共享方法Delete Shared Function Delete(ByVal strSQL As String) As Integer Dim conn As OleDbConnection = New OleDbConnection(ConnStr) Dim myCo

10、mmand As OleDbCommand = New OleDbCommand(strSQL, conn) Dim count As Integer = 0 Try conn.Open() count = myCommand.ExecuteNonQuery() Catch ex As OleDbException MsgBox(ex.ToString() Catch ex As Exception MsgBox(ex.ToString) Finally conn.Close() End Try Return count End Function 共享方法Updata Shared Funct

11、ion Update(ByVal strSQL As String) As Integer Dim conn As OleDbConnection = New OleDbConnection(ConnStr) Dim myCommand As OleDbCommand = New OleDbCommand(strSQL, conn) Dim count As Integer = 0 Try conn.Open() count = myCommand.ExecuteNonQuery() Catch ex As OleDbException MsgBox(ex.ToString) Catch ex

12、 As Exception MsgBox(ex.ToString) Finally conn.Close() End Try Return count End Function 共享方法Search Shared Function Search(ByVal strSQL As String) As DataTable Dim conn As OleDbConnection = New OleDbConnection(ConnStr) Dim myCommand As OleDbCommand = New OleDbCommand(strSQL, conn) conn.Open() Dim ad

13、apter As New OleDbDataAdapter adapter.TableMappings.Add(Table, TEMP) adapter.SelectCommand = myCommand Dim ds As New DataSet() adapter.Fill(ds) conn.Close() Return ds.Tables(TEMP) End FunctionEnd Class我的类DBuserPublic Class DBuser Public UserName As String 用户名 Public Password As String 密码 Public Perm

14、ission As String 权限 Public Sname As String 学生姓名 Public StudentID As String 学号 Public TeacherID As String 教职工号 Public Tname As String 教师姓名 Sub New() End Sub Sub New(ByVal Name As String, ByVal PWD As String) UserName = Name Password = PWD End Sub Public Function Login() As Boolean Dim SQLString As St

15、ring = select * from User where UserName= & UserName & & and Password= & Password & Dim UserTable As DataTable = EditData.Search(SQLString) If UserTable.Rows.Count = 0 Then MsgBox(用户名或密码错误！) Return False Else Permission = UserTable.Rows(0)(Permission) Return True End If End Function Public Sub GetSP

16、assword(ByVal StudentID As String, ByVal Sname As String) Dim SQLString As String = select * from Student where StudentID= & StudentID & & and Sname= & Sname & Dim UserTable As DataTable = EditData.Search(SQLString) If UserTable.Rows.Count = 0 Then MsgBox(学号或姓名错误！) Else SQLString = select Password f

17、rom User where UserName= & StudentID & MsgBox(密码： & EditData.Search(SQLString).Rows(0)(Password) End If End Sub Public Sub GetTPassword(ByVal TeacherID As String, ByVal Tname As String) Dim SQLString As String = select * from Teacher where TeacherID= & TeacherID & & and Tname= & Tname & Dim UserTabl

18、e As DataTable = EditData.Search(SQLString) If UserTable.Rows.Count = 0 Then MsgBox(教职工号或姓名错误！) Else SQLString = select Password from User where UserName= & TeacherID & MsgBox(密码： & EditData.Search(SQLString).Rows(0)(Password) End If End Sub Public Sub ModifyPassword(ByVal UserName As String, ByVal

19、NPassword As String) Dim SQLString As String = update User set Password= & NPassword + + where UserName= & UserName + If EditData.Update(SQLString) 0 Then MsgBox(密码修改成功，请记住新密码！) End If End SubEnd ClassPublic Class FPWForm Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventA

20、rgs) Handles MyBase.Load RadioButton1.Checked = True Label3.Text = End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click Dim User As New DBuser If TextBox1.Text = Then ErrorProvider1.SetError(TextBox1, 用户名不能为空！) ElseIf TextBox2.Text = T

21、hen ErrorProvider1.SetError(TextBox2, 密码不能为空！) ElseIf RadioButton1.Checked = True Then User.GetSPassword(TextBox1.Text, TextBox2.Text) Else User.GetTPassword(TextBox1.Text, TextBox2.Text) End If End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArg

22、s) Handles RadioButton2.CheckedChanged If RadioButton2.Checked = True Then Label1.Text = 教职工号 Else Label1.Text = 学 号 End If End SubEnd ClassPublic Class MainForm Private Sub ButtonItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem8.Click RibbonControl1.Office2

23、007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Black End Sub Private Sub ButtonItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem9.Click RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Si

24、lver End Sub Private Sub ButtonItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem10.Click RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.VistaGlass End Sub Private Sub ButtonItem11_Click(ByVal sender As System.O

25、bject, ByVal e As System.EventArgs) Handles ButtonItem11.Click RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Blue End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim ribbonTexts = RibbonCo

26、ntrol1.SystemText ribbonTexts.MaximizeRibbonText = 功能区最大化 (&M) ribbonTexts.MinimizeRibbonText = 功能区最小化 (&N) ribbonTexts.QatAddItemText = 添加到快速访问工具栏 (&A) ribbonTexts.QatCustomizeMenuLabel = 自定义快速访问工具栏 ribbonTexts.QatCustomizeText = 自定义快速访问工具栏 (&C). ribbonTexts.QatDialogAddButton = 添加(&A) ribbonTexts.

27、QatDialogCancelButton = 取消 ribbonTexts.QatDialogCaption = 自定义快速访问工具栏 ribbonTexts.QatDialogCategoriesLabel = 选择命令(&C): ribbonTexts.QatDialogOkButton = 确定 ribbonTexts.QatDialogPlacementCheckbox = 在功能区下方显示快速访问工具栏 (&P) ribbonTexts.QatDialogRemoveButton = 删除(&R) ribbonTexts.QatPlaceAboveRibbonText = 在功能区

28、上方显示快速访问工具栏 (&P) ribbonTexts.QatPlaceBelowRibbonText = 在功能区下方显示快速访问工具栏 (&P) ribbonTexts.QatRemoveItemText = 从快速访问工具栏删除 (&R) End Sub Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click Dim User As New DBuser If TextBoxX1.Text = Or TextBoxX2.Te

29、xt = Or TextBoxX3.Text = Then MsgBox(密码不能为空！) ElseIf TextBoxX1.Text LoginForm.TextBox2.Text Then MsgBox(旧密码错误！) ElseIf TextBoxX2.Text TextBoxX3.Text Then MsgBox(确认密码和新密码不相同！) Else User.ModifyPassword(LoginForm.TextBox1.Text, TextBoxX2.Text) End If End Sub Private Sub ButtonItem13_Click(ByVal sender As System.Object, ByVal e As S