本帖最后由 查鲁恩 于 2013-5-14 23:59 编辑
希望大家能帮我个忙 帮助我做一个小的系统 用 vb6.0 或者vs 2010 数据库用access ，SQL或者 excel 做一个 简单的学生成绩查询系统 软件，最好能按照我的这个附件 来完成 这个软件，跪谢啦。以下是附件文字内容：
摘 要学生成绩管理系统是一个学院不可缺少的部分。本论文叙述到的学生成绩管理系统使用Visual basic6.0作为编程工具和SQL Sever2000作为数据库实现的，重点介绍了学生成及管理系统的设计。 关键词：成绩管理 数据库 模块 目 录 第一章 学生成绩管理系统概述 学生成绩管理系统是学院重要的一部分，其内容对于学院管理者和学生至关重要，所以学生成绩管理系统应该为用户提供所需要的信息及其方便的管理作为主要目标。现代成绩查询系统理论已经不拘泥于传统的理论基础，不强调对教学活动的绝对控制，放弃了繁琐的设计模式，开始注重教学设计的关系性灵活性，这些优点能够极大地提高学生成绩查询的效率，从而更加有利于学生的管理和提高学生的主动性。 第二章 学生成绩管理系统的需求分析 2.1系统开发的必要性 任何一个工作单位，效率是至关重要的，学生成绩管理系统实现学生成绩数据管理的系统化、规范化和自动化。学生管理系统可以存储历届的学生成绩数据，不需要大量的人力，只需一两名数据录入员即可操作系统，可节省大量人力，可迅速查询到所需信息，学生也可方便查询自己的成绩 2.2系统功能的需求分析 教师能够对所有学生的成绩查询所有教师信息的查询，并对学生成绩信息可以添加，修改，删除。学生可以在自己的权限内对自己成绩查询。 第三章 学生成绩管理系统的技术及开发、运行环境 3.1 Visual Basic 6.0简介 Visual Basic是Microsoft公司成功的变成语言产品之一，在全世界有数以百万计的用户。它之所以受到人们的青睐，原因是多方面的，但主要的有两点，一是功能强大，二是容易掌握。 随着版本的更新，Visual Basic已成为真正专业化的大型开发语言和环境，不仅功能越来越强，而且更容易使用Visual Basic6.0所提供的开发环境与Windows具有完全一致的界面，使用更方便，其代码效率已达到Visual C++的水平 3.2 Microsoft SQL Sever 2000简介 SQL Server 2000是微软（Microsoft）公司推出的关系型数据库管理系统。它是一个全面的、集成的数据解决方案，为企业用户提供了一个安全、可靠、高效的平台，用于企业数据管理和数据仓库应用。SQL Server 2000是一个基于客户机/服务器（Client/Server，C/S）体系结构的关系型数据库管理系统，它使用Transact-SQL(T-SQL)语言完成数据交互功能。 3.3 Visual Basic 6.0与数据库的链接 利用Visual Basic6.0的内置的ADO数据控件，连接到任何支持的数据库，比如EXCEL、SQL Sever、Access等，可以方便地实现与各种数据库的连接。通过程序设计可实现对学生成绩信息的管理。 第四章 学生成绩管理系统的设计与实现 4.1 系统功能模块图 file:///C:\Users\ADMINI~1\AppData\Local\Temp\ksohtml\wps_clip_image-1646.png 学生-教师功能模块图 本系统按照功能需求和部门使用的情况，将系统划分为多个子系统，每个子系统完成一定的功能。主要由教师模块个学生等模块组成。 教师在学生成绩管理系统中能够对所有学生的成绩查看，对学生能够按学号进行精确查询，按学生姓名进行模糊查询，能够对整个系统中的学生成绩进行添加、删除、修改。 学生在系统中的基本功能是对自己所有成绩的查询，基本信息的查询。上图为学生和教师功能模块图。 4.2 数据库的设计 数据库设计设计是对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能有效地存取数据，满足用户的信息要求和处理要求。数据库设计包括数据库的结构设计和数据库的行为设计，数据库的结构设计是根据给定的应用环境，进行数据库的模式或子模式的设计。数据库的行为设计是确定数据库用户的行为和动作，即应用程序的设计。本系统的数据库设计采用基于E-R模型的数据库设计方法。首先，根据调研结果分析系统中存在哪些实体，并确定各实体的属性，再找出各实体间的联系，确定各联系的派生属性，最后按照数据库设计原则产生本系统的所有数据库结构并优化。本系统中存在的实体有：学生、课程、教师、系部、班级，各实体都有自己相应的属性，其中“学生”实体和“课程”实体存在联系，者中联系为多对多联系，其派生属性为成绩。 为了减少数据冗余，便于数据的统计和查询，本系统的主要数据表设计如下： 学生情况表（学号，姓名，性别） 系部表{系部号，系部名称} 教师表（教师号，教师名） 课程表（课程号，课程名） 成绩表（学号，成绩） 4.3 系统功能的实现 进入本系统首先弹出的是如下界面 file:///C:\Users\ADMINI~1\AppData\Local\Temp\ksohtml\wps_clip_image-20085.png 在界面上任意单击鼠标左键进入系统主界面，下图： file:///C:\Users\ADMINI~1\AppData\Local\Temp\ksohtml\wps_clip_image-23614.png 选择学生身份登录时： file:///C:\Users\ADMINI~1\AppData\Local\Temp\ksohtml\wps_clip_image-1649.png 选在教师身份登录时： file:///C:\Users\ADMINI~1\AppData\Local\Temp\ksohtml\wps_clip_image-30834.png 4.4 系统核心代码的设计学生登录代码（Form3）： Private Sub Form_Load() Dim str As String str = "" If Form2.r = "学生" Then Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False If Trim(Form2.pwd) <> "" Then If str = "" Then str = "学号='" + Trim(Form2.pwd) + "'" Else str = str + " and 学号='" + Trim(Form2.pwd) + "'" End If End If If str <> "" Then Adodc1.RecordSource = "select 课程名,成绩,教授时间 from su,cu where " + str + "and su.课程号=cu.课程号" Adodc1.Refresh Else MsgBox "请输入学号", vbOKOnly, "信息提示" End If recs = Adodc1.Recordset.RecordCount If recs = 0 Then
MsgBox "没有此学生的成绩记录", vbOKOnly, "信息提示" End If End If DataGrid1.Caption = "姓名:" + Form2.user 教师登录代码： If Form2.r = "教师" Then Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True If Trim(Form2.pwd) <> "" Then If str = "" Then str = "教师号='" + Trim(Form2.pwd) + "'" Else str = str + " and 教师号='" + Trim(Form2.pwd) + "'" End If End If If str <> "" Then Adodc1.RecordSource = "select * from tc where " + str Adodc1.Refresh Else MsgBox "请输入口令", vbOKOnly, "信息提示" End If recs = Adodc1.Recordset.RecordCount If recs = 0 Then
MsgBox "没有此教师记录", vbOKOnly, "信息提示" End If End If DataGrid1.Caption = "姓名:" + Form2.user 学生信息管理代码（只限于教师）： 信息修改： Private Sub Command3_Click() If MsgBox("确定要修改吗?", vbYesNo, "信息提示") = vbYes Then Adodc1.Recordset.Update Adodc1.Recordset.Close
Else Form4.Hide Form3.Show End If 信息添加： Private Sub Command2_Click() Form3.Hide Form4.Show End Sub 信息删除： Private Sub Command4_Click() If MsgBox("真的要删除[" + Trim(tinsert.Adodc1.Recordset.Fields("学号吗?", vbYesNo, "信息提示") = vbYes Then tinsert.Adodc1.Recordset.Delete recs = recs – 1 End If End Sub 信息查询： Private Sub Command1_Click() Adodc1.RecordSource = "select * from st" Adodc1.Refresh Frame2.Caption = "学生信息" End Sub 结束语 通过这段时间的系统开发，我们从对SQL Sever2000和VB6.0由初学者到开发系统，最后我们使用它可以完成一个系统的开发，在这个过程中确实得到了很大的锻炼，学到了很多的知识。同时我也深深感到了自己的不足，在编程技巧方面还有很大的欠缺，以后还要继续学习。并决心以此次课程设计为开端，深入学习编程知识，在实践中应用所学知识，一方面提高自己的编程水平，一方面提高自己的学习和工作效率。 参考文献 [1] 陶恂 《Visual Basic 数据库编程》 机械工业出版社 2004年 [2] 章立民 《SQL Server 2000 数据库管理 机械工业出版社 2003年 [3] 清汉计算机工作室 《Visual Basic 数据库开发实例》 机械工业出版社2003年 [4] 吴斌 赵友珍等 《SQL Server 应用与提高》 科学出版社 2004年
| 
( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)
狗仔卡
发表于 2013-5-14 23:57:07
置顶卡
千斤顶
显身卡
发表于 2013-5-15 17:04:06