学生成绩管理系统（数据库）

《学生成绩管理系统（数据库）》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、数据库系统课程设计班级：0404101姓名：日期：2007-1-10学生成绩管理系统一，简介本程序为学生信息管理程序，有如下几大模块构成：学生信息管理，课程信息管理，学生成绩管理，以及数据库的备份与恢复，用户密码的修改等。主要实现学生信息，课程信息，成绩信息的添加，修改与删除以及查询功能。后台使用SQLServer2000数据库，开发工具为VisualBasic6.0。为保证程序的正确运行，需要先建立“成绩管理”数据库，其中包括三个表学生名单，课程信息，学生成绩。并建立SQLServer登录帐户db4，密码为lsc。A.先简要介绍各个窗口的功能：frm

2、Login.frm是登录窗口，实现用户的登录，其中用户的用户名及密码也是保存在数据库中的。studentManage.frm是学生信息管理窗口，实现学生信息的管理，其中包括浏览，查询，修改，删除等操作。courseManage.frm是课程信息管理窗口,实现课程信息的管理，其中包括浏览，查询，修改删除等操作。scoreManage.frm是成绩信息管理窗口，实现成绩的浏览，查询，删除及修改等操作。其中studentManage.frm操作学生名单表，courseManage.frm操作课程信息表，scoreManage.frm操作成绩记录表。其中成绩记

3、录表与前两个表具有约束关系。在前两个表中删除数据时将级联删除成绩记录表中的数据。如下图：frmQStudent.frm实现对学生名单中记录的查询，frmQCourse.frm实现对课程信息中记录的查询，frmQScore.frm实现对成绩记录中信息的查询。frmChangePwd.frm实现用户密码的修改功能。B.程序中使用的技术简介：本程序使用ADO来连接数据库，在查询的时候使用DataGrid控件来显示查询结果。要在VisualBasic中使用ADO对象来访问数据库，必须先建立对ADO对象的引用。在VisualBasic中，可使用下面的语句来建立和

4、断开SQLServer数据库连接：DimcnasADODB.ConnectionSetcn=NewADODB.ConnectionCn.Provider=”SQLOLEDB”Cn.ConnectionString=”database=成绩管理;server=(local);;IntegratedSecurity=SSPI”Cn.connectionTimeout=30Cn.openCn.closeSetcn=nothing使用Execute方法执行T-SQL语句：无返回值的用法，例如：Cn.Execute“createtable成绩(学号char(8)

5、,语文numeric(3,1))”Cn.Execute“insert成绩values(‘20040001’,85)”带返回值的用法：Setrs=cn.Execute(“select*from成绩”)使用Recordset对象：1．添加记录Rs.AddNew2．删除记录Rs.DeleteAffectRecords例如，可通过下面的方法来删除记录。Rs.DeleteRs.MoveNextIfRs.Eof=TruethenRs.MoveLast3．修改和更新记录在使用Recordset对象时，可使用Fields方法来访问字段。Fields方法可使用字段名称或

6、序号来访问指定字段。例如：Rs.Fields(“成绩”)=80Rs.Fields(1)=80更新语句：rs.Update和rs.CancelUpdate二，程序功能图程序模块图：E-R图：三，源程序登录窗体（frmLogin.frm）：OptionExplicitPublicLoginSucceededAsBooleanDimobjCnAsConnectionDimobjSysLoginAsRecordsetPrivateSubcmdCancel_Click()LoginSucceeded=False'设置全局变量为false，不提示失败的登录End'

7、我自己加的退出语句.EndSubPrivateSubcmdOK_Click()'检查正确的密码SetobjCn=NewConnectionWithobjCn‘连接到数据库.Provider="SQLOLEDB".ConnectionString="UserID=db4;PWD=lsc;DataSource=(local);"&_"InitialCatalog=成绩管理".OpenEndWithSetobjSysLogin=NewRecordsetWithobjSysLoginSet.ActiveConnection=objCn.CursorLocati

8、on=adUseClient.CursorType=adOpenStatic.LockType