数据库课程设计报告_学生档案管理系统__177517584.docVIP

学生档案管理系统 课程设计报告 学院：信息科学与工程学院 专业班级：智能科学与技术1001班 姓名： 学号： 指导老师： 目录 需求分析 2 概念结构设计 3 系统功能模块示意及E-R图 3 数据库实施 4 系统程序实施 6 1.流程 6 2.代码展示 7 3.系统运行效果展示 24 课程设计心得 27 需求分析 系统功能描述： 院系信息管理功能 院系信息的录入，包括院系编号、院系名称、院系职能描述和上级院系等信息； 院系信息的修改； 院系信息的删除； 院系信息的查询； 学生基本信息管理功能 学生基本信息的录入，包括学生编号、姓名、性别、生日等信息 学生基本信息的修改； 学生基本信息的删除； 学生基本信息的查询。 学生奖惩管理功能 学生奖惩信息的录入，包括奖惩日期、奖惩内容等信息； 学生奖惩信息的修改； 学生奖惩信息的删除； 学生奖惩信息的查询。 学生成绩管理功能 学生成绩信息的录入，包括课程编号、学生编号、分数等信息； 学生成绩信息的修改； 学生成绩信息的删除； 学生成绩信息的查询。 系统用户管理功能 系统用户信息的录入，包括用户名、密码等信息； 系统用户信息的修改； 系统用户信息的删除； 系统用户信息的查询。 概念结构设计 学生管理系统管理系统功能模块示意图 数据库实施 用户表： 学生表： 课程表： 成绩表： 奖惩表： 院系表： 系统程序实施 流程： 代码展示： Dim chkStr As String 通用区声明,用于记录随机码 Private Sub Command1_Click() Dim sql As String Dim cnt As Integer Dim rs As New ADODB.Recordset Dim conn As New ADODB.Connection cnt = 0 Set conn = New ADODB.Connection conn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=StudentSystem If Trim(Text1.Text) = Then MsgBox 用户名不能为空，请重新输入！ Text1.SetFocus Else: sql = select * from Users where UserName= Trim(Text1.Text) rs.Open sql, conn, adOpenKeyset, adLockPessimistic If rs.EOF = True Then MsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, Text1.Text = Text1.SetFocus Else: UserName = Text1.Text If rs(Pwd) = Trim(Text2.Text) And Text3.Text = chkStr Then Unload Me Form2.Show Else: MsgBox 验证码或密码错误,请重新输入！, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Picture1.Cls Picture1.AutoRedraw = True Picture1.Appearance = 0 Call RndBack Call InitStr End Sub Private Sub RndBack() 在图片