1、(1) 课程信息表单主要字段:课程号, 课程名, 课程时间, 上课教室,教师号(2) 学生信息表单主要字段:学生号, 学生姓名,年龄,所在系(3) 学生成绩信息表单主要字段:学生号,课程号,成绩(4) 教师情况表单主要字段:教师号,教师姓名,性别,级别,密码三、课程设计报告主要内容:1 学生在校学习的数据库系统设计需求分析(给出系统的功能模块图,对各个功能作出详细介绍)2 学生在校学习的数据库系统设计界面设计(给出界面截图及其主要控件的属性设置表格)3 学生在校学习的数据库系统设计设计(给出数据库各个表单中数据的字段名,数据类型及其相应的说明)4 学生在校学习的数据库系统设计程序设计(功能模块
2、给出详细的程序代码,重点语句的注释) 1. 学生在校学习管理信息系统设计需求分析图1.1 学生在校学习信息管理系统1.1欢迎界面系统启动之后便可进入欢迎界面,单击“点击进入”按钮便可进入选择登陆界面。1.2选择登录1.2.1选中管理员登录后便进入管理员登陆界面1.2.2选中用户登陆后便进入用户登陆界面1.3管理员界面:可以对学生信息、缺课记录、教师情况、选课记录等进行管理1.3.1、学生信息管理利用VB界面,管理员可以查询现有在校学生名单,添加信息删除记从而改变了数据库中的信息。1.3.2缺课记录管理管理员可以在VB界面中查询,修改,删除,添加学生缺课信息。1.3.3教师情况管理 管理员可以根
3、据需要对教师情况进行查询,添加,删除和更新,从而改变数据库中的信息。1.3.4选课记录管理 管理员可以在VB界面中查询,修改,删除,添加学生选课记录信息。1.4用户界面: 用户可以进行本用户密码的修改,查看学生信息、缺课记录、选课记录。1.4.1用户密码修改用户通过输入和确认新密码来更改自己的密码。1.4.2查看学生信息 用户进入界面后可看到自己的信息。1.4.3查看缺课记录进入界面后用户可看到自己缺课情况。2学生在校学习的数据库系统设计界面设计图2.1 欢迎界面图2.2 登陆界面图2.3 用户登陆界面图2.4 注册界面图2.5 密码修改界面图2.6 用户界面图2.7课程查询界面表2.1课程查
4、询界面属性对象属性设置值dadagriddatasourceAdodc1captioncommandtype2-adcmdtablerecordsource学生成绩信息 visiblefalse图2.8 管理员登陆界面图2.9 管理员界面图2.10学生信息界面表2.2学生信息界面属性Text1datafieldsno学生信息图2.11 选课界面表2.3 选课界面属性学生成绩查询Lable4计算机文化Lable5计算机网络Lable6高等数学Lable7VBLable8数据库基础Lable9数据库结构3学生在校学习信息管理系统数据库设计学生在校学习管理系统共涉及6张表,分别是课程信息表,教师情况
5、表,学生成绩信息表,学生信息表,学生密码表,管理员密码表。表3.1 课程信息表表3.2 教师情况表表3.3 学生成绩信息表表3.4 学生信息表表3.5学生密码表表3.6 管理员密码表4学生在校学习信息管理系统程序设计(部分代码)4.1欢迎界面欢迎界面是整个系统的首页,用户可通过它进入到登陆系统。Unload form1form2.Show4.2登陆界面 进入此界面后,使用者可根据自己的身份选择登陆方式。普通用户选择用户登陆,管理员选择管理员登陆。4.3用户登陆和新用户注册界面程序设计普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下If Text1.Text =
6、 Thenx = MsgBox(用户不能为空, 48, 我是提示)Exit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=学生在校学习数据库;Data Source=a68Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select sno from 学生密码 where sno= & Trim(Text1.Text) &Adodc1.Re
7、freshIf Adodc1.Recordset.EOF = True Then用户名不存在, 48我是警告Text1.Text = Text2.Text = select mm from 学生密码 where sno=If StrComp(Trim(Adodc1.Recordset.Fields(mm).Value), Trim(Text2.Text) = 0 Then恭喜登陆成功Unload form3form5.ShowElse: x = MsgBox(登陆失败新用户还可以通过此界面进行注册,新用户只要输入自己的姓名,注册密码并确认注册便可以成功注册,同时该用户的信息也被写入到了用户信息
8、表中(部分代码如下)select sno from 学生密码 where sno =If Adodc1.Recordset.EOF = False Then MsgBox 用户名已经存在!请重新输入, 64, 提示! Text1.Text = Exit SubAdodc2.ConnectionString = Adodc2.RecordSource = select sno from 学生信息 where sno =Adodc2.CommandType = adCmdTextAdodc2.RefreshIf Adodc2.Recordset.EOF = True Then学号不存在! End
9、IfIf StrComp(Trim(Text3.Text), Trim(Text2.Text) 0 ThenMsgBox 两次输入的密码不一致,请重新输入!ElseAdodc1.CommandType = adCmdTable学生密码Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(sno).Value = Trim(Text1.Text).Value = Trim(Text2.Text)Adodc1.Recordset.Update恭喜你注册成功!注册成功!Text3.Text = 4.4管理员登陆界面管理员需要输入自己的姓名和密码,经过系统验证无
10、误后就可以进入下一个界面了。它的代码与管理员登陆代码类似,输入的姓名和密码必须是管理员表中相应的信息,否则就无法成功登陆。4.5用户服务表界面用户登陆进去后,可以到用户服务界面选择自己所需的服务,该界面为用户提供了三种服务,分别是“本用户密码的修改”,“零件信息查询”和“工程项目使用零件情况”。4.6用户密码修改界面程序设计用户如需修改自己的密码可在此界面进行,用户通过登陆界面登陆到此,然后在此界面中输入账号和新密码并验证新密码,确认后如果无误就会提示用户修改成功,并且其密码在用户信息表中也会有相应的修改。(代码如下)If StrComp(Trim(Text2.Text), Trim(Text
11、3.Text) 密码不一致select * from 学生密码 where sno =) = Trim(Text3.Text)修改成功4.7课程查询界面当用户点击查询按钮是,会弹出一个对话框,在对话框中输入要查询人的学号就可以进行查询。x = InputBox(请输入查询学号课程查询select sno,sname,cname from 学生成绩信息 where sno= x &学号不存在, 68, Set DataGrid1.DataSource = Adodc14.8选课界面用户或管理员在此输入学生学号并选择课程就可以实现在线选课了。select sno from 学生成绩信息 where
12、 sno=用户不存在select sname from 学生成绩信息 where sno=If StrComp(Trim(Adodc2.Recordset.Fields(sname).Value), Trim(Text2.Text) 用户信息不一致If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False And Option5.Value = False And Option6.Value = False Then请选择课程If Option1.V
13、alue = True Theny = 计算机文化If Option2.Value = True Then计算机网络If Option3.Value = True Then高等数学If Option4.Value = True ThenVBIf Option5.Value = True Then数据库原理If Option6.Value = True Then数据结构Adodc2.CommandType = adCmdTable学生成绩信息Adodc2.Recordset.AddNewAdodc2.Recordset.Fields(cname).Value = yAdodc2.Recordse
14、t.Update恭喜选课成功恭喜4.9管理员界面在此界面管理员可以选择学生信息,教师情况,选课信息,和缺课记录进行查询,添加,删除和修改。4.10学生信息界面在此界面管理员可以进行学生信息的查询,添加,删除,修改等操作。查询代码如下:选课查询select sno,sname,sage,sdept from 学生信息 where sno=删除代码如下:确实要删除吗?, vbexclation + vbYesNo + vbDefaultButton2, 提示If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNext修改代码如下
15、:) = Trim(Text1.Text) = Trim(Text2.Text)sagesdept) = Trim(Text4.Text)Text4.Text = 添加:当选择添加这项时,会弹出一个新的专门用于添加的界面,代码如下:dodc1.ConnectionString = If (Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = ) Then请输入完整信息select sno from 学生信息 where sno=用户已存在学生信息恭喜添加成功5小结 两个星期的课程设计圆满结束,很庆幸我完成了学生在校学习信息管理系统的设计,从这次的系统设计中我领略了一下几点.(1)数据库的学习离不开操作,在动手的同时可以学习很多的东西,因此我们要养成良好的动手操作习惯;(2)在做数据库和VB编程时候要注意很多的细节,往往一个小小的错误,一个小小的空格就可以让我们操作失败;(3)数据库关系模式的设计非常的重要,使整个系统的设计中心,其设计合理否,
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1