




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、.数据库技术与应用实验报告实验题目:毕业设计选题系统 姓 名: 学 号: 班 级: 联系方式: 2015年12月目录一、设计目的二、设计要求三、设计过程1.数据库的设计1)实体联系模型图(E-R图)2)E-R图转化的关系表2.系统功能模块,功能描述和主要VB程序代码1)系统功能模块2)功能描述3)主要VB程序代码登录验证代码。信息查询等代码。存储信息等代码。3.程序运行展示四、心得体会与总结一、设计目的目前,随着计算机和网络技术的不断发展,各高校相继建成了自己的校园网,并充分利用校园网提供的新环境,为学校的教学、教研和教务管理所服务。因此,毕业设计选题系统已经成为了教学教务管理系统的重要部分。
2、当前毕业设计选题系统允许学生在一定的范围内选择合适自己的毕业设计题目,具有很大的灵活性,使学生不需要在固定的时间,固定的地点选题,避免了很大的麻烦。二、设计要求教师和学生进行双向选择,即学生可选择相应的毕业设计题目,教师也可选择学生1)教师:l 教师可以增加毕业设计题目,人数,及要求。l 教师可录取报名的学生,查看学生的详细信息如学生的基本信息,成绩等内容。l 先录取填报自己的题目作为第一选题志愿的学生,再录取第二志愿的学生。l 针对不同的用户,可进行相关的统计、查询可查看报自己的学生人数,基本信息等。2) 学生:l 可浏览教师的毕业设计题目及教师的简介等内容。l 可修改自己的个人信息(基本信
3、息)。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(
4、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)字段
5、名称数据类型是否主键UserNameVarchar(20)否PasswordVarchar(20)否leixingVarchar(10否2.系统功能模块,功能描述和主要VB程序代码教师学生管理员毕业设计选题系统 1)系统功能模块 查看修改自己信息查看老师信息浏览题目选择课题老师课题统计学生选题统计维护学生信息查看及录取发布课题2)功能描述管理员:老师课题统计:查看老师发布的课题及课题书;学生选题统计 :查看并统计学生选题的数目与编号;维护:维护系统。教师:学生信息查看及录取:来查看和录取已经选了自己的学生;发布课题:发布课题让学生选择。学生查看修改自己信息:查看自己的信息,若有错误可进行修改;
6、查看老师信息:查看老师的信息;浏览题目:浏览老师所发布的题目;选择课题:选择自己喜欢的课题。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 =
7、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 = 管理员 ThenMsgBo
8、x 管理员已成功登录!, 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 学生已成功登录!, vbExclamatio
9、n, 提示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) &
10、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 = Ad
11、odc1.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
12、).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 is
13、qlStr = 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 课题信息添加完成!, vb
14、OKOnly + vbExclamation, 警告clearTextBox3.程序运行展示。首先开始运行程序,用户通过自己选定的权限:管理员、老师和学生,输入自己的账号密码来进入不同的操作界面,如下图。进入学生系统 ,学生可以进行以下下操作:1.学生自己信息查看与修改2.查看所有老师的信息3.查看课题信息4.选择课题老师权限系统:1.录取学生和查看学生信息 2.发布课题管理员管理系统:1.老师发布课题统计2.学生选题统计3.维护系统四、心得体会与总结不知不觉几个星期过去了,我制作的毕业设计选题系统也大功告成,虽然我做的这个毕业设计选题系统相对于我们真正在实际生活中使用的系统还有很大的差距,但
15、是通过对VB与数据库设计书籍的翻阅和学习雷琪老师课上教授的东西,我学习到了许多关于VB程序和制作数据库的知识。为了制作好这个毕业设计管理系统,我还了解了一些如何去连接数据库的VB技术。通过学习,我对数据库和VB有了更深层次得到了解,也有了更浓厚的兴趣。尤其是对如何设计一个管理系统的过程与一些技巧手法更有了另外一番了解,对数据库和VB的基础知识也有了一定的掌握。在这个过程中,我同样认识到数据库不只是一门基本的学科,而是多种课程的综合,它是一门能融合多学科的综合应用。我刚开始做这个毕业设计管理系统的时候,我无从下手。但是,我发现当我在不断地实践中,许许多多的失败中,我通过对书籍和网络上知识的汲取,使得我有了如何做好VB程序的意识。确实,万事开头难,正是我有了如何做好VB程序的意识,知道了正确简便的方法,我就很快的做好了一个又一个窗体。其实,我在制作途中认识有些功能的窗体制作方法大同小异,就如只要你会做一个添加录取学生信息的窗体,你就会接着做另外一个如添加课题信息的窗体。在制作动态网页时,我遇到了连接数据库失败各种程序代码错误等情况,但是我通过百度和对同学的请教,在结合自己的不断实践,终于得到了我想要的毕业设计管理系统。我的课程设计因此可以实现老师所要求的大部分功能。虽然我做出来的毕业设计选
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 高校护理学教学中线上平台的优势与挑战分析
- 创设教师自主学习的支持性资源和平台
- 四川省绵阳宜溪中学心2024年物理八上期末经典试题含解析
- 湖北省枣阳市太平三中学2025届物理八上期末统考试题含解析
- 西藏林芝地区名校2024年数学八上期末质量检测模拟试题含解析
- 河北省邢台市宁晋县东城实验中学2024-2025学年九年级化学第一学期期末经典模拟试题含解析
- 江苏省盐城射阳县联考2024-2025学年九年级化学第一学期期末教学质量检测模拟试题含解析
- 情景化议题教学设计集
- 《鸿蒙机器人编程》课件-阶段三:核心开发-编程基础
- 2025至2030数字分析天平行业发展趋势分析与未来投资战略咨询研究报告
- 人教版八年级英语上册 Unit 2 Section A 教案(同步教学设计)
- 临床输血护理指南
- 2025年中远海运集团招聘笔试参考题库含答案解析
- 苏菲新生儿呼吸机操作手册(中文)
- 《中学心理危机干预体系构建》
- 《我国税制结构分析》课件
- 智慧农业项目建设方案
- 人工智能模拟题
- 2024年下半年江苏南通启东市部分事业单位选调工作人员14人易考易错模拟试题(共500题)试卷后附参考答案
- 教师资格考试小学美术面试试题及答案指导(2025年)
- 住家保姆合同协议书模板
评论
0/150
提交评论