SQL数据库课程设计

学生信息管理系统
信管1102班 第五小组 张伟 戴明伟 廖志理 陈书航
目录 1.需求分析 2.系统设计 （1）功能模块图 （2）E-R图 3.效果展示 4.亮点展示 5.总结
系统需求分析：
在日常教学活动中，需要对学生各项信息进行高效、智 能的管理。本系统结合教学教务工作的需要，通过建立学 生信息管理系统，将使得管理工作系统化、规范化和自动 化，从而达到提高学生信息管理的效率，并且还提高了学 籍信息管理的精确度。它主要包括用户登录、学生信息输 入修改、学生信息查询以及学生成绩输入、学生成绩查询、 系统用户管理等几个页面，因而该系统具有较强的实用性。 方便快速的操作，可减少学籍信息管理的漏洞，又减少因 工作的冗余出现的错误，并且操作非常简单， 根据需求分析，本系统将要实现以下功能： （1）用户授权访问和密码修改功能； （2）学生信息添加、修改、查询功能（包括学籍信息、课 程信息、成绩信息）；
其次，要学会团队分工与合作，每个人都 要尽自己最大的努力，为自己的团队做贡 献。团队的成功不可能依靠一个人的力量， 只有大家共同努力，才会取得成功。 最后，我们明白了：纸上得来终觉浅，只 有在躬身实践的过程中才会有更多丰富的 收获。这样的课程设计还是很有意义的， 通过在实践中，我们明白了自己在平时学 习中的漏洞，同时也锻炼了自己的实践能 力，更加巩固了对所学知识的掌握。
用 户 管 理
密 码 管 理
实体之间联系E-R图：
学号 课程编号 学生 出生日期 班级 联系电话 成绩 选课
姓名
课程名
性别
课程
课程类型
学分
1.系统主窗体：
主窗体代码
• • • • • • • • • • • • • • • • • • • • • • •
：
Public Class frmMain Private Sub 系统管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSystem.Click End Sub Private Sub mnuUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUser.Click Dim frmchild As New frmUser frmchild.MdiParent = Me frmchild.show() End Sub Private Sub mnuPwdModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPwdModify.Click Dim frmchild As New frmPwdModify frmchild.MdiParent = Me frmchild.Show() End Sub Private Sub StudentInfoAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StudentInfoAdd.Click Dim frmchild As New frmStudentInfoAdd frmchild.MdiParent = Me frmchild.Show() End Sub Private Sub StudentInfoModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StudentInfoModify.Click Dim frmchild As New frmStudentInfoModify frmchild.MdiParent = Me frmchild.Show() End Sub
2.“用户登陆”窗体：
“用户登录”窗体代码：
•
• • • • • • • • • • • • • • • • • • • • • • • • •
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click If username.Text = "" Then MsgBox("请输入用户名！") username.Focus() Exit Sub End If If password.Text = "" Then MsgBox("请输入密码！") password.Focus() Exit Sub End If Dim icount As Integer txtSQL = "SELECT * FROM user_info WHERE user_id='" & username.Text & "'" icount = ExecuteSQL(txtSQL, ErrorMsg) '从user_info表中提取输入的用户信息,返回记录数 icount和数据集DBSet If icount = 0 Then MsgBox("没有此用户，请重新输入用户名！", vbExclamation) username.Focus() Exit Sub ElseIf icount = -1 Then MsgBox("程序出错！", vbExclamation) username.Focus() Exit Sub End If If Trim(password.Text) = Trim(DBSet.Tables.Item(0).Rows.Item(0).Item("user_pwd").ToString()) Then username_OK = DBSet.Tables.Item(0).Rows.Item(0).Item("user_id") frmMain.Show() '显示主窗体
感谢在实践过程中老师的指导和同 学的帮助
做一件事情，不必过于在乎最终的结果， 可贵的是过程中的收获。 ——以此语言来安抚我们尚未平复的心。
谢谢观看！！！
学生信息管理功能模块图：
学生信息管理系统
系 统 管 理
学 籍 信 息 管 理
学 籍 信 息 添 加 学 籍 信 息 修 改 学 籍 信 息 查 询 课 程 信 息 添 加 课 程 信 息 修 改
课 程 信 息 管 理 课 程 信 息 查 询 成 绩 信 息 添 加
成 绩 信 息 管 理 成 绩 信 息 修 改 成 绩 ቤተ መጻሕፍቲ ባይዱ 息 查 询
亮点展示：
（1）用户注册
亮点展示：
（2）密码修改
总结
忙忙碌碌地奋斗了两周，我们的课程设计 终于完美收工，虽然由于能力和时间的关 系，还是觉得有很多不尽人意的地方，但 是也基本达到预期的效果。 在实践的过程中，大家都有很大的收获。 首先，无论做任何事，都要有明确清晰的 规划，只有制定切实可行的目标，才可以 顺利的实现它。有了目标，就要坚持不懈 的去完成，在实现目标的过程中，遇到困 难不要畏惧，无论看起来有多难，总会有 解决的办法，只有坚持到最后，才会达到
4.“课程信息修改”窗体
“课程信息修改”窗体代码：
• • • • • • • • • • • • • • • • • • • • • • • • • • • • Private Sub frmCourseModify_Load() Dim mytable As Data.DataTable Dim recordnum As Integer txtSQL = "SELECT * FROM course_info" recordnum = ExecuteSQL(txtSQL, ErrorMsg) mytable = DBSet.Tables.Item(0) txtCourse_NO.DataBindings.Add("Text", mytable, "Course_NO") txtCourse_name.DataBindings.Add("Text", mytable, "Course_name") txtCourse_type.DataBindings.Add("Text", mytable, "Course_type") txtCourse_credit.DataBindings.Add("Text", mytable, "Course_credit") txtCourse_des.DataBindings.Add("Text", mytable, "Course_des") mybind = CType(Me.BindingContext(mytable), CurrencyManager) mybind.Position = 0 txtCourse_NO.ReadOnly = True End Sub Private Sub cmdFirst_Click() mybind.Position = 0 End Sub Private Sub cmdLast_Click() mybind.Position = mybind.Count - 1 End Sub Private Sub cmdForward_Click() If (mybind.Position = 0) Then MessageBox.Show("已经到了第一条记录！", "信息提示！", MessageBoxButtons.OK, rmation) Else mybind.Position = mybind.Position - 1 End If End Sub Private Sub cmdBackward_Click() If mybind.Position = mybind.Count - 1 Then