实践归纳总结报告 学生成绩管理系统.doc

《实践归纳总结报告 学生成绩管理系统.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、数据库原理实验报告学院：生物化工与环境工程学院专业：地理信息系统班级：12地理信息组长：陈晨组员：陈凯丽陈煜垌冯超指导教师：曹建军目录1.课程设置的目的……………………………………………………………………………32.课题实施的介绍……………………………………………………………………………33.E—R模型图的设计…………………………………………………………………………34.数据库的建立和介绍………………………………………………………………………45.界面的设计和功能介绍……………………………………………………………………56.系统功

2、能实施………………………………………………………………………………177.总结和体会…………………………………………………………………………………19一．课程设置的目的1.通过本次课程设计，提高实践动手能力；2.通过本次课程设计，进一步理解计算机程序设计的思路与方法；3.通过本次课程设计，进一步熟练运用VB的语言元素和流程控制语句；4.通过本次课程设计，达到能熟练使用各种常见的VB控件，理解面向对象的思想；5.通过本次课程设计，熟悉用户界面的设计；6.通过本次课程设计，熟悉数据访问控件AD，DataGrid及相关对象的使用，能基于

3、ADO控件和DataGrid控件实现数据库的数据访问与操纵；二．课题实施的介绍此次我们组选择的课题是“学生成绩管理系统”，结合我们经常登录的教务管理系统老考虑，此界面针对的群体是学生和老师，那么，该界面应具有以下几项任务：1.双方登录；2.双方登录后的密码修改；3学生对自己信息的查询；4老师对学生成绩的查询；5.老师对学生成绩的修改及录入；针对以上几点，我们组利用VB界面连接数据库，用不同的VB的控件完成了以上的几点任务。三．E-R模型图的设计学习讲授教师号课程号学时课程名课程号课程姓名学号密码教师姓名学号班级专业性别姓名学生教师

4、号教师院系密码高等数学数据结构数据库四．数据库的建立和介绍建立了数据库xscjglxt，数据库内新建了“学生表，学习表，教师表，讲授关系表，课程表”这五个表。学生表内有：学号，姓名，性别，班级，专业，院系，密码这几个属性；学习表内有：学号，姓名，高等数学，数据库，数据结构，班级这几个属性列；教师表内有：教师号，教师姓名，密码；讲授关系表中有：课程号，教师号，教研室号；课程表内有：课程号，课程名，学时。五．界面的设计和功能介绍1.登陆界面，在此界面上有“学生登录”和“教师登陆”以及“退出”这三个命令按钮，通过这三个控件达到不同人群登

5、陆的需求，PrivateSubCommand1_Click()UnloadMeForm2.ShowEndSubPrivateSubCommand2_Click()UnloadMeForm3.ShowEndSubPrivateSubCommand3_Click()IfMsgBox("确定退出管理系统？",_vbQuestion+vbYesNo+vbDefaultButton2,"警告！")=vbYesThenEndEndIfEndSubPrivateSubForm_Resize()Me.PaintPictureMe.Picture,

6、0,0,Me.ScaleWidth,Me.ScaleHeightEndSub2学生登录界面，学生通过自己的学号和自己的密码来登录自己的成绩查询的界面，当输入的学号和密码不一一对应的时候，就会弹出一个消息框“非法账号！”，请重新输入。Adodc控件连接了数据库xscjglxt界面上的text3和text4连接数据库PrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find"学号='"&Text1.Text&"'"IfAdodc1.Recordse

7、t.EOF=TrueThenAdodc1.Recordset.MoveFirstIf((Trim(Text1.Text))=(Trim(Text3.Text)))And((Trim(Text2.Text))=(Trim(Text4.Text)))ThenAdodc1.Enabled=FalseAdodc1.RefreshForm4.ShowElseMsgBox"非法的账号！",vbOKOnly+vbExclamation,"请重新输入！"Text1.Text=""Text2.Text=""Text1.SetFocusEndIfEn

8、dSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm1.ShowEndSubPrivateSubFo