4 5 6 课程学分 开课院系 课程简介 float nvarchar nvarchar 8 50 16 是 是 是 表5：成绩信息表
记录号 字段名称 数据类型 字段大小 属性（是否可为空） 1 2 3 4 学生编号 课程编号 平时成绩 考试成绩 char Int char char 10 4 8 8 主键 主键 是 是 3.2 系统中主要功能实现
（1）登录界面的设计
本系统的登录界面上主要有用户名、密码和用户权限三部分内容。用户若想进入系统，就必须给出正确的用户名和密码，而且要选择正确的用户权限。如果用户输入的用户名不存在或者密码与用户名不一致或者与用户权限不一致，都会给出相应的提示信息，告诉用户出现的错误输入。而且，如果用户进行错误的输入超过三次时，系统会自动退出。 实现这一功能的说明如下：
函数开始：
建立连接，利用Fill（）函数在Systerm.Data.DataSet的指定范围中添加或刷新行，以与使用Systerm.Data.DataSet名称中的数据源中的行相匹配。
OleDbDataAdapter1.Fill(dt)
利用For循环，判断循环次数是否小于所有记录的个数
For i = 0 To dt.Rows.Count - 1
If （用户名、密码和用户权限三者匹配时 ） Then
Me.Hide() Me.Finalize()
Me.AddOwnedForm(myform) 显示主窗体
If （ 用户权限 = 用户 ） Then 隐藏主窗体中的部分功能
myform.系统用户管理ToolStripMenuItem.Enabled = False myform.教务信息管理ToolStripMenuItem.Enabled = False
myform.学生资料查询ToolStripMenuItem.Enabled = False Else 什么也不做 End If 退出For循环 End If
Next
If （ i >= dt.Rows.Count 即在所有记录中都没有找到与用户输入的值相同的） Then
说明在所有记录中都没有找到与之匹配的用户名、密码和用户权限 Then
弹出MsgBox，警告用户出现错误
MsgBox(\用户名与密码与用户权限不匹配！请验证后重新输！\
MsgBoxStyle.Exclamation, \警告\
将密码对应的文本框中的内容置空
End If
If ( 重复输入的次数超过3次) Then
弹出弹出MsgBox，警告用户出现错误
MsgBox(\你输入的次数已经超过了3次！系统将退出！\MsgBoxStyle.Exclamation,
\警告\退出
End If
函数结束
（2）信息管理模块的设计：
信息管理模块的三种操作，主要是添加记录，修该记录，删除记录三大功能。而且在执行各项功能时都会给出足够的提示信息，例如进入时的提示信息，有些信息不能为空的提示，以及操作成功的提示信息。
（a） 下面以系别管理模块中添加院系来说明如何添加记录的，说明如下： 函数开始：
添加记录时给出提示信息，等待用户确认
S = MsgBox(\您确定要增加记录吗？\提示\ If （S <> 6 即用户选择的是取消按钮） Then 退出函数 End If
If （系名对应的文本框为空） Then MsgBox(\系名不能为空！\ 退出函数 End If
If （系主任对应的文本框为空） Then ................
ElseIf （ S = 6 即用户选择的是确定按钮） Then
利用count（）函数来返回所有记录的个数
然后让个数加1作为下一个记录的编号
i = Me.BindingContext(DataSet1, \系别信息\ 新建一个表示内存中数据的一个表tmptable tmptable = DataSet1.Tables(\系别信息\ 打开连接
OleDbConnection1.Open() 构造插入语句
Dim tmpcommand As New System.Data.OleDb.OleDbCommand(\系别信
息 (系编号,系名,系主任) values('\TextMan.Text & \
异常处理 Try
tmpcommand.ExecuteNonQuery()
Catch fillException As System.Exception
MsgBox(\获得错误信息：\ End Try
将数据集中的记录清空 DataSet1.Clear()
将更改后的所有记录在填入数据集
OleDbDataAdapter1.Fill(DataSet1, \系别信息\ 关闭连接
OleDbConnection1.Close()
添加成功后弹出MsgBox提示用户已完成
MsgBox(\添加记录成功！\提示\ End If 函数结束
（b） 下面以课程管理模块中修改课程来说明是如何修改记录的，说明如下：
函数开始：
修改记录时给出提示信息，等待用户确认 If （S <> 6 即用户选择的是取消按钮） Then 退出函数 End If
If （课程名对应的文本框为空） Then MsgBox(\课程名不能为空！\ 退出函数 End If
If （任课老师对应的文本框为空） Then ...............
ElseIf （ S = 6 即用户选择的是确定按钮） Then 新建一个表示内存中数据的一个表tmptable tmptable = DataSet1.Tables(\课程信息\ 打开连接
构造更新语句，来完成对数据的修改操作
Dim tmpcommand As New System.Data.OleDb.OleDbCommand(\课程信息 set 课
程编号='\课程名='\任课老师='\TextTeacher.Text & \课程学分='\开课院系='\ComDepart.Text & \课程简介='\课程编号='\TextID.Text & \
异常处理
清空DataSet对象并重新赋值 关闭连接
MsgBox(\您的修改以被受理，更新成功！\提示\ End If 函数结束
（c） 下面以学生管理模块中删除学生资料来说明是如何删除记录，说明如下：
函数开始：
删除记录时给出提示信息，等待用户确认
S = MsgBox(\您确定要删除记录吗？\提示\
If （S = 6 即用户选择了确定按钮） Then 新建一个表示内存中数据的一个表tmptable tmptable = DataSet1.Tables(\学生信息\ 打开连接
构造删除语句，来完成对数据的删除操作
Dim tmpcommand As New System.Data.OleDb.OleDbCommand(\学生信息
where 学生编号='\
异常处理
清空DataSet对象并重新赋值 关闭连接
MsgBox(\记录已经成功删除！\提示\ End If 函数结束
（3）信息查询模块的功能设计
查询模块主要包括学生资料查询和学生资料查询两个子模块。而且查询时会给出相应的信息来告诉用户如何来做，什么不能为空，查询成功时也会给出相应的提示信息 （a）学生资料查询是一种模糊查询，可以根据给出部分信息进行查询，说明如下：
函数开始：
If （所有的可输入条件的文本框的内容都为空） 则弹出提示的Msgbox，告诉用户条件不能都为空 MsgBox(\请选择一种查询条件！不能都为空！\ Else
新建一个表示内存中数据的一个表tmptable
相关推荐：
loading