中南大学数据库设计报告

数据库技术与应用实验报告实验题目： 毕业设计选题系统 姓 名： 学 号： 班 级： 联系方式： 2015 年 12 月目录一、设计目的二、设计要求三、设计过程1.数据库的设计1）实体联系模型图（E-R 图）2）E-R 图转化的关系表2.系统功能模块,功能描述和主要 VB程序代码1）系统功能模块2）功能描述3）主要 VB程序代码登录验证代码。信息查询等代码。存储信息等代码。3.程序运行展示四、心得体会与总结一、设计目的目前，随着计算机和网络技术的不断发展，各高校相继建成了自己的校园网，并充分利用校园网提供的新环境，为学校的教学、教研和教务管理所服务。因此，毕业设计选题系统已经成为了教学教务管理系统的重要部分。当前毕业设计选题系统允许学生在一定的范围内选择合适自己的毕业设计题目，具有很大的灵活性，使学生不需要在固定的时间，固定的地点选题，避免了很大的麻烦。二、设计要求教师和学生进行双向选择，即学生可选择相应的毕业设计题目，教师也可选择学生1）教师： 教师可以增加毕业设计题目，人数，及要求。 教师可录取报名的学生，查看学生的详细信息如学生的基本信息，成绩等内容。 先录取填报自己的题目作为第一选题志愿的学生，再录取第二志愿的学生。 针对不同的用户，可进行相关的统计、查询可查看报自己的学生人数，基本信息等。2）学生： 可浏览教师的毕业设计题目及教师的简介等内容。 可修改自己的个人信息（基本信息）。 可以报毕业设计题目，每人限报两个，第一选题志愿和第二选题志愿。3）管理员 可对每个教师、学生进行统计分析与维护。三、设计过程1.数据库的设计1）实体联系模型图（E-R 图）:M1用户用户名 密码学生姓名成绩简介性别学号 电话专业学院选题课题课题名称老师姓名 老师编号课题编号课题介绍类型1N2）E-R 图转化的关系表(只列出了几个主要表)表一(st_info)字段名称 数据类型 是否主键St_id Char(10) 是St_name Varchar(20) 否St_sex Char(4) 否St_college Varchar(20) 否St_num Varchar(15) 否St_comment Varchar(200) 否St_score float 否录取学生老师编号电话简介 性别姓名人数 课题名称表二(t_info)字段名称 数据类型 是否主键t_id Char(10) 是t_name Varchar(16) 否t_sex Char(4) 否t_num Varchar(20) 否t_commment Varchar(200) 否表三(xuanti)字段名称 数据类型 是否主键St_id Char(10） 是St_name Varchar(20) 是St_sex Char(4) 否Work_num Varchar(20) 否Work_name Varchar(20) 否T_id char(10) 否renshu Varchar(100) 否表四(Users)字段名称 数据类型 是否主键UserName Varchar(20) 否Password Varchar(20) 否leixing Varchar(10 否2.系统功能模块,功能描述和主要 VB程序代码1）系统功能模块2)功能描述管理员：老师课题统计：查看老师发布的课题及课题书；学生选题统计 ：查看并统计学生选题的数目与编号；维护：维护系统。教师：学生信息查看及录取：来查看和录取已经选了自己的学生；发布课题：发布课题让学生选择。毕业设计选题系统管理员教师学生老师课题统计学生选题统计维护学生信息查看及录取发布课题查看修改自己信息查看老师信息浏览题目选择课题学生查看修改自己信息：查看自己的信息，若有错误可进行修改；查看老师信息：查看老师的信息；浏览题目：浏览老师所发布的题目；选择课题：选择自己喜欢的课题。3)主要 VB程序代码登录验证代码。Private Sub cmdOk_Click()If txtUserName.Text = “ ThenMsgBox “用户名不能为空，请输入用户名！“, vbCritical, “提示“ElseadoUser.RecordSource = “select * from users where username=“ & Trim(txtUserName) & “adoUser.RefreshIf adoUser.Recordset.EOF ThentxtUserName.Text = “txtPwd.Text = “txtUserName.SetFocusMsgBox “用户名输入错误，请选择！“, vbCritical, “提示ElseIf txtPwd.Text = “ ThenMsgBox “密码不能为空，请输入密码！“, vbCritical, “提示“txtPwd.Text = “txtPwd.SetFocusElseIf adoUser.Recordset.Fields(“Password“) = txtPwd.Text ThenSelect Case adoUser.Recordset.Fields(“leixing“)Case 0If Combo1.Text = “管理员“ ThenMsgBox “管理员已成功登录！“, vbExclamation, “提示“manage_system.ShowMe.HideElseMsgBox “您没有此权限！“, vbOKOnly + vbCritical, “提示“End IfCase 1If Combo1.Text = “教师“ ThenMsgBox “教师已成功登录！“, vbExclamation, “提示“t_system.ShowMe.HideElseMsgBox “您没有此权限！“, vbOKOnly + vbCritical, “提示“End IfCase 2If Combo1.Text = “学生“ ThenMsgBox “学生已成功登录！“, vbExclamation, “提示“st_system.ShowMe.HideElseMsgBox “您没有此权限！“, vbOKOnly + vbCritical, “提示“End IfEnd SelectElseMsgBox (“密码输入错误，请重新输入！“), vbCritical, “提示“txtPwd.Text = “txtPwd.SetFocusEnd IfEnd IfEnd IfEnd Sub信息查询等代码strName = frmLogin.txtUserName.TextAdodc1.RecordSource = “select * from st_info where st_id=“ & Trim(strName) & “ “Adodc1.RefreshsqlStr = “select * from xuanti where t_id=“ _& Trim(frmLogin.txtUserName.Text) & “Adodc1.RecordSource = sqlStrAdodc1.RefreshWith Adodc1.RecordsetIf Not .EOF ThenText1(7).Text = .Fields(“work_name“)Else MsgBox “没有找到相关信息，请添加！“, vbOKOnly + vbExclamation, “警告“Exit SubEnd IfEnd Witha = Adodc1.Recordset.Fields(“st_id“)Adodc2.RecordSource = “select * from st_info where st_id=“ _& Trim(a) & “Adodc2.RefreshWith Adodc2.RecordsetIf Not .EOF ThenText