中南大学数据库设计报告.doc

数据库技术与应用实验报告实验题目：毕业设计选题系统 姓 名： 学 号： 班 级： 联系方式： 2023年12月目录一、设计目的二、设计规定三、设计过程1.数据库的设计1）实体联系模型图（E-R图）2）E-R图转化的关系表2.系统功能模块,功能描述和重要VB程序代码1）系统功能模块2）功能描述3）重要VB程序代码登录验证代码。信息查询等代码。存储信息等代码。3.程序运营展示四、心得体会与总结一、设计目的目前，随着计算机和网络技术的不断发展，各高校相继建成了自己的校园网，并充足运用校园网提供的新环境，为学校的教学、教研和教务管理所服务。因此，毕业设计选题系统已经成为了教学教务管理系统的重要部分。当前毕业设计选题系统允许学生在一定的范围内选择合适自己的毕业设计题目，具有很大的灵活性，使学生不需要在固定的时间，固定的地点选题，避免了很大的麻烦。二、设计规定教师和学生进行双向选择，即学生可选择相应的毕业设计题目，教师也可选择学生1）教师：l 教师可以增长毕业设计题目，人数，及规定。l 教师可录取报名的学生，查看学生的具体信息如学生的基本信息，成绩等内容。l 先录取填报自己的题目作为第一选题志愿的学生，再录取第二志愿的学生。l 针对不同的用户，可进行相关的记录、查询可查看报自己的学生人数，基本信息等。2） 学生：l 可浏览教师的毕业设计题目及教师的简介等内容。l 可修改自己的个人信息（基本信息）。l 可以报毕业设计题目，每人限报两个，第一选题志愿和第二选题志愿。3） 管理员l 可对每个教师、学生进行记录分析与维护。三、设计过程1.数据库的设计类型 1）实体联系模型图（E-R图）:密码用户名课题名称课题编号老师编号老师姓名课题选题学院专业学号电话简介性别成绩姓名学生用户M1课题介绍编号课题名称人数学生录取姓名电话性别简介老师1N2）E-R图转化的关系表(只列出了几个重要表)表一(st_info)字段名称数据类型是否主键St_idChar(10)是St_nameVarchar(20)否St_sexChar(4)否St_collegeVarchar(20)否St_numVarchar(15)否St_commentVarchar(200)否St_scorefloat否表二(t_info)字段名称数据类型是否主键t_idChar(10)是t_nameVarchar(16)否t_sexChar(4)否t_numVarchar(20)否t_commmentVarchar(200)否表三(xuanti)字段名称数据类型是否主键St_idChar(10）是St_nameVarchar(20)是St_sexChar(4)否Work_numVarchar(20)否Work_nameVarchar(20)否T_idchar(10)否renshuVarchar(100)否表四(Users)字段名称数据类型是否主键UserNameVarchar(20)否PasswordVarchar(20)否leixingVarchar(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.Refresh sqlStr = select * from xuanti where t_id= _ & Trim(frmLogin.txtUserName.Text) & Adodc1.RecordSource = sqlStr Adodc1.Refresh With Adodc1.Recordset If Not .EOF Then Text1(7).Text = .Fields(work_name) Else MsgBox 没有找到相关信息，请添加！, vbOKOnly + vbExclamation, 警告 Exit Sub End If End With a = Adodc1.Recordset.Fields(st_id) Adodc2.RecordSource = select * from st_info where st_id= _ & Trim(a) & Adodc2.Refresh With Adodc2.Recordset If Not .EOF Then Text1(0).Text = .Fields(st_name) Text1(1).Text = .Fields(st_college) Text1(2).Text = .Fields(st_sex) Text1(3).Text = .Fields(st_specially) Text1(4).Text = .Fields(st_num) Text1(5).Text = .Fields(st_comment) Text1(6).Text = .Fields(st_score) Else MsgBox 没有找到相关信息，请添加！, vbOKOnly + vbExclamation, 警告 Exit Sub End IfEnd With存储信息等代码Dim i As IntegerFor i = 0 To 4If Text3(i).Text = ThenMsgBox 请将信息填写完整, vbOKOnly + vbExclamation, 警告Exit SubEnd IfNext isqlStr = select * from work_infoAdodc1.RecordSource = sqlStrAdodc1.RefreshWith Adodc1.Recordset.AddNew.Fields(t_name) = Text3(0).Text.Fields(t_id) = Text3(4).Text.Fields(work_content) = Text3(3).Text.Fields(work_num) = Text3(2).Text.Fields(work_name) = Text3(1).Text.UpdateEnd WithMsgBox 课题信息添加完毕！, vbOKOnly + vbExclamation, 警告clearTextBox3.程序运营展示。一方面开始运营程序，用户通过自己选定的权限：管理员、老师和学生，输入自己的账号密码来进入不同的操作界面，如下图。进入学生系统 ，学生可以进行以下下操作：1.学生自己信息查看与修改2.查看所有老师的信息3.查看课题信息4.选择课题老师权限系统：1.录取学生和查看学生信息 2.发布课题管理员管理系统：1.老师发布课题记录2.学生选题记录3.维护系统四、心得体会与总结不知不觉几个星期过去了，我制作的毕业设计选题系统也大功告成，虽然我做的这个毕业设计选题系统相对于我们真正在实际生活中使用的系统尚有很大的差距，但是通过对VB与数据库设计书籍的翻阅和学习雷琪老师课上专家的东西，我学习到了许多关于VB程序和制作数据库的知识。为了制作好这个毕业设计管理系统，我还了解了一些如何去连接数据库的VB技术。通过学习，我对数据库和VB有了更深层次得到了解，也有了更浓厚的爱好。特别是对如何设计一个管理系统的过程与一些技巧手法更有了此外一番了解，对数据库和VB的基础知识也有了一定的掌握。在这个过程中，我同样结识到数据库不只是一门基本的学科，而是多种课程的综合，它是一门能融合多学科的综合应用。我刚开始做这个毕业设计管理系统的时候，我无从下手。但是，我发现当我在不断地实践中，许许多多的失败中，我通过对书籍和网络上知识的汲取，使得我有了如何做好VB程序的意识。的确，万事开头难，正是我有了如何做好VB程序的意识，知道了对的简便的方法，我就不久的做好了一个又一个窗体。其实，我在制作途中结识有些功能的窗体制作方法大同小异，就如只要你会做一个添加录取学生信息的窗体，你就会接着做此外一个如添加课题信息的窗体。在制作动态网页时，我碰到了连接数据库失败各种程序代码错误等情况，但是我通过百度和对同学的请教，在结合自己的不断实践，终于得到了我想要的毕业设计管理系统。我的课程设计因此可以实现老师所规定的大部分功能。虽然我做出来的毕业设计选题管理系统的功能效果也许比不上其他同学，但是我得到了制作数据库与VB程序的技巧、掌握了碰到问题时解决困难的能力，并且学会了灵活运用这些知识制作出一个让我满意、老师满意的作品，我就觉得我所做的努力得到了肯定，得到了成就感，我感受到了努力带来成功的快乐！最后，感谢老师为我们所上的数据库课。相信对大多数选过老师您所专家的课的人而言，我们都会认为老师您是一个和蔼可亲，知识渊博的人。总之，我能做好这个毕业设计管理系统，自己的努力与天赋也是成功的一部分，同样老师的教导也功不可没！4552533222222