学生成绩管理系统VB+SQL
VB课程设计-学生成绩处理系统
长江大学Ｙanｇtｚe unｉveｒsｉtyＶB课程设计实习报告专业班级﹕储运1１001学生学号﹕20１007078学生姓名﹕彭壮班级序号﹕１6指导老师﹕冯翠丽完成时间﹕2011－１2—22一.设计题目学生成绩管理系统二．设计思路从文本中读取文件数据,利用VB的顺序结构，选择结构，循环结构编写程序代码，最终将各代码写入界面设计中的各菜单下.三．程序实现的目标本程序将实现从文本中读取数据，赋值数据，运算数据，实现对学生的加权平均值，名次，全班每门课的分数段，不及格同学名单，优等生名单等运算，并写入文件。
四.程序设计框图五。
运行结果原始成绩课程学分原始成绩和原始课程学分文件读取原始课程文件加权平均分成绩排名每门课程的班级平均分加权平均分分布每门课程及分布成绩条优等生名单不及格学生名单成绩查询系统按姓名查找示例﹕按学号查找示例﹕按名次查找示例﹕六.源程序模块代码：Type xscｊbxh As Ｓtringxm Ａs Ｓｔｒiｎgcj(1 Tｏ５）ＡｓIntegｅrａvｅr As ＳｉnglｅｍｃAs IntｅgerEnｄTyｐeTｙｐe keｃhen编号AｓIntｅgeｒ课程名As Strｉng学分As ＳingleEnd TｙpePublic sｔｕ（) As xｓcjbPｕblic ｋｅ（) AsｋechenPubliｃＮ%, M%,Zxf%Ｐuｂlic str Ａs Striｎg窗体代码：①Fｏrｍ1：Ｐｕblic Ｆunｃtion spａcｅ1（BｙVａl ssｓAs String）Diｍx％x ＝IｎStr（ｓsｓ, ＂＂）ＤｏWｈｉleｘ> 0sｓｓ＝Ｒeｐlace(ｓss，”", ”＂)x = InStr(ｓsｓ，" ”）Looｐsｐacｅ1 = ｓsｓEｎｄFuncｔｉonPrivａte Sｕb ajｑｆｓpｍ_Clicｋ（）Dim ｔ！, k As SinglｅFoｒm1.ClsＦorm1.ＦoｎtSize= 12Ｆorm1。
基于VB的学生成绩管理系统设计
Ｓ ＬＳｒｅ 在数据挖掘和分析 服务领域 的应用。 Ｑ ｅ ｒ ｖ
Ｖ Ｂ使用 了可 以简单建立应用程序 的 Ｇ Ｉ Ｕ 系统 ，但是又可 以开发相 当复杂 的程序 。Ｖ Ｂ的程序是一种基 于窗体 的可视化 组件 安排 的联合 ，并且 增加代 码来 指定 组建 的属性 和方 法 。 因为 默认的属性 和方法 已经 有一部分 定义在 了组件 内 ，所 以 程序 员不用写 多少 代码就可 以完成一个 简单 的程序 。窗体控 件 的增 加和改 变可以用拖放 技术实现 。一个排 列满控 件 的工
Ａｂ ｔ ａ ｔ ｈ ｓ ｐ ｐ ｒｄ ｖ ｌｐ ｔ ｄ ｎ ｃ ｉｖ ｍｅ ｔｍａ ａ ｅ ｎ ｙ ｔ ｍ，ｔ ｃ ｉ ｖ ｈ ｔ ｄ ｎ ｎ ｇ ｍｅ ｔｓ ｓｅ ｔ ， ｓｒ ｃ ：Ｔ ｉ ａ ｅ ｅ ｅ ｏ ｓ ａ ｓｕ ｅ ｔａ ｈ ｅ ｅ ｎ ｎ ｇ ｍｅ ｔ ｓ ｓ ｅ ｏ ａ ｈ ｅ ｅ ｔ ｅ ｓｕ ｅ ｔｍａ ａ ｅ ｎ ｙ ｔ ｍａ ｉ ｃ ｓａ ｄ ｒ ｉａｉ ｎ ａ ｄ ａ ｔ ｍａｉ ｎ． ｓｍａ ｎ ｆ ｎ ｔ ｎ ｉ ｅ ｕ ｅ ｏ ｏ ｕｅ ｓｆｒｓｕ ｅ ｔ ｃ ｉｖ ｍｅ ｔ ｎ ｇ ｍｅ ｔ ｔ ｎ ａ ｄｚ ｔ ｎ ｕｏ ｔ ｏ ｏ Ｉ ｉ ｃ ｉ ｓｔ ｓ ｆｃ ｍｐ ｔ ｒ ｔ ｄ ｎ ｈ ｅ ｅ ｎ ｔ ｕ ｏ ｈ ｏ ａ ｍａ ａ ｅ ｎ ． Ｋｅ ｒ ｓ ｔ ｄ ｎ ｃ ｉｖ ｍｅ ｔ； ｎ ｏ ｍａｉｎ ｍａ ａ ｅ ｎ Ｓ ｓｅ ｄ ｓｇ ｙ ｗｏ ｄ ：Ｓ ｕ ｅ ｔａ ｈ ｅ ｅ ｎ Ｉｆ ｒ ｔ ｎ ｇ ｍｅ ｔ； ｙ ｔ ｍ ｅ ｉｎ ｏ
种 面向对象 的开发工具 ，尤 其是数据 窗 口这一 能方便 而简 洁 操纵 数据库 的智能化对象 ，首先在短 时间 内建 立 系统 应用原
成绩系统框图、界面
VB 课程设计题目：学 生 成 绩 管 理 系 统设计一个简单的学生成绩程序管理系统，使用随机文件存储学生信息，该程序具有数据添加、修改、删除及学生信息顺序查询功能。
程序的运行界面如下图所示。
一、系统结构框图如下：查询（下一个）子 模 块删除 子模 块修 改 子模 块查询（上一个）子 模 块添 加 子模 块密 码 子模 块登陆模块管理模块系统总体结构框图二、密码程序界面及主要控件属性设置1．程序界面：2. 主要控件属性设置：对象属性（属性值）属性（属性值）说明窗体1 Name (Form1) Caption(“登陆成绩管理系统”)窗体2 Name (Form2) Caption(“学生成绩管理系统”)文本框1 Name ( Text1) Text (“”)PassWordChar(*) 指定显示在文本框中的替代符命令按钮1 Name(CmdIn) Caption(“进入”)标签1 Name(Label1) Caption(“请输入密码：”)AutoSize(True) 返回或设置一个值，以决定控件是否自动改变大小显示其全部内容命令按钮2 Name(CmdExit) Caption(“退出”)三 、成绩管理程序界面及主要控件属性设置1. 程序界面：2. 主要控件属性设置：四、系统程序对象 属性（属性值） 属性（属性值）说明窗体 Name (form1) Caption(“学生成绩管理”) 文本框1 Name (TxtID ) Text(“”) 输入和显示学号 文本框2 Name (TxtName ) Text(“”) 输入和显示姓名 文本框3 Name(TxtClass ) Text(“”) 输入和显示班级 文本框4Name(TxtSubject ) Text(“”) 输入和显示专业 文本框控件数组5 Name (TxtMark ) Index(1—3) 输入和显示三门课程成绩文本框6 Name(TxtTotal ) Text(“”) 显示总成绩 命令按钮1 Name (CmdAdd ) Caption(“添加”) 向文件中追加记录 命令按钮2 Name(CmdChange ) Caption(“修改”)修改当前记录 命令按钮3 Name(CmdDelete ) Caption(“删除”) 删除当前记录 命令按钮4 Name(CmdBefore ) Caption(“上一个”) 显示上一个记录 命令按钮5Name(CmdNext )Caption(“下一个”)显示上一个记录一、密码程序：（form1）Private Sub Form_Load()者‘装入窗体事件过程Form2.HideEnd SubPrivate Sub CmdIn_Click() ‘进入密码事件过程Static nn = n + 1If n = 3 Then: MsgBox "对来起！密码三次错误退出！": End pass$ = Text1.Text '为Text1开始获得焦点设其tabindex=0 If pass$ = "666666" ThenForm1.HideForm2.ShowElseLabel1.Caption = "请重新输入密码："Text1.Text = "" '使文本框清空Text1.SetFocusEnd IfEnd Sub'（密码输入后）按回车键将触发KeyPress事件（替代鼠标单击‘进入’）Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCmdIn_ClickEnd IfEnd SubPrivate Sub CmdExit_Click() ‘退出密码事件过程EndEnd Sub二、成绩管理系统程序：1. 标准模块代码：(Module1)Type student ‘定义学生信息记录类型id As String * 8name As String * 10class As String * 10subject As String * 20mark(1 To 3) As IntegerEnd TypePublic stu As student ‘定义student类型变量存放当前记录内容Public filename As String ‘定义变量存放学生信息文件名Public rec_no As Integer ‘定义变量存放当前记录号Public rec_total As Integer ‘定义变量存放总记录数Public rec_long As Integer ‘定义变量存放记录长度—————————————————————————2. 成绩管理代码:（form2）Private Sub cmdadd_Click() ’添加记录事件过程Dim i As Integer, nmsg As IntegerFor i = 1 To rec_totalGet #1, i, stuIf Trim(stu.id) = Trim(txtid.Text) Thennmsg = MsgBox("文件中已有该同学的记录，要显示修改此记录吗？", vbYesNo)If nmsg = vbYes Thenrec_no = iCall displayEnd IfExit SubEnd IfNext iCall getdatarec_total = rec_total + 1rec_no = rec_totalPut #1, rec_no, stuEnd SubPrivate Sub cmdbefore_Click() ‘显示上一条记录事件过程If rec_no > 1 Thenrec_no = rec_no - 1ElseMsgBox "现在已是首记录！"Exit SubEnd IfGet #1, rec_no, stuCall displayEnd SubPrivate Sub cmdchange_Click() ‘修改当前记录事件过程Call getdata ’将修改的数据保存到记录变量中Put #1, rec_no, stu ’修改记录Call displayEnd SubPrivate Sub cmddelete_Click() ‘删除当前记录事件过程Dim i As IntegerDim dempno As Integertempno = rec_noOpen filename & ".temp" For Random As #2 Len = rec_long For i = 1 To rec_totalIf i <> tempno ThenGet #1, i, stuPut #2, , stuEnd IfNext iCloseKill filenameName filename & ".temp" As filenameCall fileopenEnd SubPrivate Sub cmdnext_Click() ‘显示下一条记录事件过程Dim nmsg As IntegerIf rec_no < rec_total Then ‘未到打开记录尾时执行该程序rec_no = rec_no + 1Call display ‘显示当前记录Elsenmsg = MsgBox("已到最后一记录了！要回到首记录吗？", vbYesNo)If nmsg = vbYes Thenrec_no = 1 ‘回到首记录Call displayEnd IfEnd IfEnd SubPrivate Sub txtclear() ‘清除各文本框中的内容子过程Dim i As IntegerWith stutxtid = "": txtname = ""txtclass = "": txtsubject = ""For i = 1 To 3txtmark(i) = ""Next itxttotal = ""End WithEnd SubPrivate Sub display() ‘显示当前记录子过程Dim i As IntegerGet #1, rec_no, stuWith stutxtid = .id: txtname = .nametxtclass = .class: txtsubject = .subjectFor i = 1 To 3txtmark(i) = .mark(i)Next itxttotal = .mark(1) + .mark(2) + .mark(3)End WithEnd SubPrivate Sub getdata() ‘将在文本框输入的数据存入到记录变量中Dim i As Integerstu.id = txtid.Text: = txtname.Textstu.class = txtclass.Text: stu.subject = txtsubject.TextFor i = 1 To 3stu.mark(i) = Val(txtmark(i).Text)Next iEnd SubPrivate Sub txtmark_lostfocus(index As Integer)If index = 3 Then ‘当输入完最后一门课程，则计算并显示总成绩txttotal = Val(txtmark(1)) + Val(txtmark(2)) +Val(txtmark(3))End IfEnd SubPrivate Sub Form_Load() ‘装入窗体事件过程filename = App.Path & "\studet.dat"‘App.Path意思就是应用程序所在的路径。
vb项目开发案例全程实录
vb项目开发案例全程实录以VB项目开发案例全程实录为题，我将为您列举10个案例，每个案例包含至少800字的详细描述。
1. 学生成绩管理系统这个案例是一个简单的学生成绩管理系统，使用VB开发。
系统包括学生信息的录入、成绩的录入和查询等功能。
首先，用户可以通过界面输入学生的基本信息，包括姓名、学号、性别等。
然后，用户可以输入学生的各科成绩，并计算出总分和平均分。
最后，用户可以通过学号或姓名查询学生的成绩。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
2. 酒店管理系统这个案例是一个酒店管理系统，使用VB开发。
系统包括客房管理、客户管理、订单管理等功能。
首先，用户可以通过界面查看酒店的各类客房信息，并进行预订和入住操作。
然后，用户可以管理客户信息，包括添加、修改和删除客户信息。
最后，用户可以查看订单信息，包括已预订和已入住的订单，并进行退房操作。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
3. 超市收银系统这个案例是一个超市收银系统，使用VB开发。
系统包括商品管理、库存管理、销售管理等功能。
首先，用户可以通过界面添加、修改和删除商品信息，并查看商品的库存情况。
然后，用户可以进行销售操作，包括添加购物车、结算和打印小票。
最后，用户可以查看销售统计信息，包括每日销售额、每月销售额等。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
4. 图书管理系统这个案例是一个图书管理系统，使用VB开发。
系统包括图书的录入、借阅和归还等功能。
首先，用户可以通过界面添加、修改和删除图书信息，并查看图书的借阅情况。
然后，用户可以进行借阅操作，包括选择图书和输入借阅者信息。
最后，用户可以归还图书，并更新图书的借阅情况。
该系统使用VB的窗体和控件进行界面设计，通过VB的数据库连接功能实现与数据库的交互。
5. 学生选课系统这个案例是一个学生选课系统，使用VB开发。
用mysql实现学生成绩管理代码
用mysql实现学生成绩管理代码学生成绩管理是教育行业中非常重要的一项工作，它涉及到学生的学习情况、成绩统计、课程安排等多方面内容。
为了更好地管理学生成绩数据，我们可以利用MySQL数据库来实现学生成绩管理代码，实现高效的学生成绩管理。
一、数据库设计在开始实现学生成绩管理代码之前，我们首先要进行数据库设计。
为了存储学生信息和成绩数据，我们可以创建两张表：学生表和成绩表。
学生表包含以下字段：-学号（id）：唯一标识学生的编号，也是该表的主键。
-姓名（name）：学生的姓名。
-班级（class）：学生所在的班级。
成绩表包含以下字段：-学号（id）：学生的学号，也是该表的外键，与学生表中的id字段关联。
-课程（course）：学生所修的课程。
-成绩（score）：学生在该门课程上的成绩。
二、创建数据库和表在MySQL命令行中，我们可以使用以下SQL语句创建学生成绩管理数据库和相应的表：```CREATE DATABASE student_score;USE student_score;CREATE TABLE student ( id INT PRIMARY KEY, name VARCHAR(50), class VARCHAR(50));CREATE TABLE score ( id INT, course VARCHAR(50), score INT, FOREIGN KEY (id) REFERENCES student(id));```三、插入数据在完成数据库和表的创建之后，我们可以向学生表和成绩表中插入数据。
以下是向学生表中插入学生信息的示例：```INSERT INTO student (id, name, class) VALUES (1, '张三', '一班'), (2, '李四', '二班'), (3, '王五', '一班');```以下是向成绩表中插入学生成绩的示例：```INSERT INTO score (id, course, score) VALUES (1, '数学', 90), (1, '英语', 85), (2, '数学', 95), (2, '英语', 80), (3, '数学', 88), (3, '英语', 92);```四、查询数据在学生成绩管理中，我们经常需要查询学生的成绩信息。
vb学生成绩管理系统{完整版}
目录摘要 (3)关键字： (3)引言 (3)一、系统的理论与技术基础 (4)1.1管理信息系统基础 (4)1.2 软件工程理论的概述 (4)1.3 软件工程理论对本系统的指导 (4)二、系统的需求分析 (5)2.1项目开发的背景分析 (5)2.2 项目开发的目标 (5)2.3项目提出的意义 (6)2.4 国内外研究现状 (6)三、系统的开发工具及编程环境 (9)3.1 开发工具的选择 (9)3.3编程环境的选择 (10)3.5 Visual Basic 系统实现菜单选项 (12)3.5 Visual Basic 系统实现菜单选项 (12)四、系统数据库的使用 (13)4.1 系统数据库的选择 (13)4.2 数据的保存和读取 (13)4.3 数据库文件的易用性 (13)4.4 数据库文件格式 (14)4.5教师管理界面编码设计 (16)五、系统代码及开发过程 (18)5.1系统的开发 (18)5.2功能需求描述 (18)5.3代码及图示 (18)5.3.2.主窗口： (18)5.3.3.管理系统： (19)5.3.4.属性： (20)5.3.5.打开系统显示的界面 (20)5.3.6.窗体的尺寸 (21)结论 (22)致谢 (23)参考文献 (24)学生成绩管理系统摘要学生信息管理系统是典型的信息管理系统，经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。
关键字：数据库，智能化，面向对象ABSTRACT：The abstract student information management system is the typical information management system, the process analysis, We use MICROSOFT Corporation VISUAL the BASIC development kit, uses each kind of object-oriented development kit which it provides, especially first in a short time establishes the system application prototype, then, carries on the demand iteration to the initial prototype system, revises and the improvement unceasingly, until forms user satisfaction the feasible system.Key words：Database，intelligence，object-oriented引言随着学校规模的不断扩大，学生数量急剧增加，有关学生的各科成绩信息量也成倍增长。
学生成绩管理系统数据库
课程编号# 课程名称 课程类型
学分 学时
选课 教师
教师编号#
电话 姓名 性别 学院
授课
三、逻辑结构设计阶段
逻辑结构是独立于任何一种数据模型的信息结构。逻辑结构的任务 是把概念结构设计阶段设计好的基本E-R图转化为宜选用的DBMS所支 持的数据模型相符合的逻辑结构，并对其进行优化。
E-R图向关系模型转化要解决的问题是如何将实体型和实体间的联系 转化为关系模式，如何确定这些关系模式的属性和码。
cno degch_class)
字段名
属性
cno
课程号
teano
教师号
char(10) char(10)
数据类型 char(10) char(10)
Not null Not null
字段权限 Not null Not null
五、数据库实现
1、创建数据表
一个完整的数据库不可缺少的就是数据表，若干个数据表的集合成一个数据库。数据表主要
四、物理设计阶段
数据库物理设计的任务是为上一阶段得到的数据库逻辑模式，即数据库 的逻辑结构选择合适的应用环境的物理结构，既确定有效地实现逻辑结 构模式的数据库存储模式，确定在物理设备上所采用的存储结构和存取 方法，然后对该存储模式进行性能评价、修改设计，经过多次反复，最 后得到一个性能较好的存储模式。数据库物理设计内容包括记录存储结 构的设计，存储路径的设计。
设计学生成绩管理数据库，包括课程、学生、教师、成绩四个关系, 其关系模式中对每个实体定义的属性如下(其中码用下横线标出)：
课程信息表： 课程（课程号，课程名，课程类型，学分，学时） 学生信息表： 学生(学号，姓名，性别，年龄，专业，学院) 成绩表： 成绩（学号，课程名，成绩） 教师表： 教师（教师号，姓名，性别，学院，电话） 选课表： 选课（学号，课程号，成绩） 授课表： 授课（课程号，教师号）
用VB开发学生成绩管理系统
、
系统功 能 设 计
（ １ ） 系统 主 要 功 能描 述 。① 用 户 管理 ： 用来 管理 系 统 用 户 ， 可 数 ， 如果 超 出 指定 的次数 ， 则 自动 关 闭程 序 。
以添加用户名 、 修改用户密码。 ②学生信息管理： 学生基本情况汇 总与管理 ， 主要包括对学生 成绩 的添加 、 修改 、 删除和查 询等操 括对学生成绩的添加 、 修改 、 删除 、 查询和统计等操作 。④课 程管
表 ２学生信 息表结构
字 段 名 数 据 类 型 Ｓ Ｎ ｏ 文 本 Ｓ ｎ ａ ｍｅ 文 本 Ｓ ｓ ｅ ｘ 文 本 Ｓ ａ ｇ ａ 数 字
Ｓ ｐ ｌ ａ ｃ ｅ 文 本
字 段 大 小 ７ １ ２ ２ 整 型
３ ２
说 明 学号 ， 主键 ， 必填 字 段 姓名， 必 填 字段 性别 ， 必填 字段 年龄 ， 必 填 字 段
子 模 块 的设 计 ， 最后 再将 制 作 好 的代 码 打 包为 安 装程 序 等 ， 详 细描 述 学生成 绩 管 理 系统 的 开 发过 程 。 关键词： Ⅶ 语言 ； Ａ ｃ ｃ ｅ ｓ ｓ 数据库； 成绩管理； 模块 设 计
在中职学校， 对于学生基本信息和成绩 的管理是学校的一项基
一
不匹配 ， 则根据具体情况 弹出相应的警告对话框。为了使系统更
加 安全 ， 加 人 一个 窗 口级公 共 对 象 ， 用 来 记 录密 码 输 入错 误 的 次 （ ２ ） ＭＤＩ 窗１ ３ ｒ 菜单 栏 设计 。在 系统 中添加 ＭＤ Ｉ 窗 口作 为系 统 主窗 口 ， 为 其 加 入菜 单 栏 。根 据系 统 设 计 中 的各 功 能 模 块 设 计 菜 Ｃ ｌ ｉ ｃ ｋ事件 过 程 。当选 择 菜 单命 令 时 ， 显 示 相应 的功 能 窗 口或 实 现
基于SQL数据库设计的学生成绩管理系统
基于SQL数据库设计的学生成绩管理系统随着教育信息化的不断深入，学生成绩管理系统在学校教务管理中扮演着越来越重要的角色。
为了更好地管理学生成绩信息，提高教学效率，设计一个基于SQL数据库的学生成绩管理系统显得尤为重要。
本文将从数据库设计的角度出发，探讨如何构建一个高效、稳定的学生成绩管理系统。
1. 数据库设计在设计学生成绩管理系统的数据库时，首先需要考虑的是数据库的表结构。
一般来说，可以设计以下几张表：学生表（Student）：包含学生的基本信息，如学号、姓名、性别、年龄等字段。
课程表（Course）：包含课程的信息，如课程编号、课程名称、学分等字段。
成绩表（Score）：记录学生的成绩信息，包括学生学号、课程编号、成绩等字段。
2. 数据库关系在学生成绩管理系统中，不同表之间存在着一定的关系。
一般来说，可以建立以下几种关系：学生与成绩之间是一对多的关系，即一个学生可以有多条成绩记录。
课程与成绩之间是多对一的关系，即多个学生可以选择同一门课程。
3. SQL查询设计完数据库结构和关系后，接下来就是编写SQL查询语句来实现对学生成绩信息的增删改查操作。
以下是一些常用的SQL查询语句示例：查询某个学生的所有成绩：SELECT * FROM Score WHEREstudent_id = 'xxx';查询某门课程的平均成绩：SELECT AVG(score) FROM Score WHERE course_id = 'xxx';查询某个学生某门课程的成绩：SELECT score FROM Score WHERE student_id = 'xxx' AND course_id = 'xxx';4. 数据库优化为了提高系统性能和查询效率，需要对数据库进行优化。
可以采取以下措施：添加索引：对经常用于查询条件的字段添加索引，加快查询速度。
规范化设计：避免数据冗余和不一致，提高数据存储效率。
一种基于VB的成绩管理系统开发
一
种基 于
VB
的 成 绩 管 理 系统 开 发
。
一
龙雄辉
( 1 广 东工 业 大 学
．
，
李克 天
。
，
广 东广 州
5 10 0 0 6
；
2
．
广 州铁 路 职 业 技 术 学院
，
广 东广 州
5 10 4 3 0
)
一
以来
，
言 篡
；
巢 ?
浏 览 器 ／服 务 器
：
绩 管理 系统
给 出 了总 体 设 计 方 案
信息 。
多 次 调 试 后 ，程 序 中使 用 了 两种 方法 解 决 该 问 题 ：
１ 把 所 有 需 在 Ｄ ｔｇｉ 件 中 显 示 的 数 据 先 用 Ｓ Ｌ ） ａａｒ ｄ控 Ｑ
。
这 些 优 点 能够 极 大 地 提 高学 生 成
一
绩管理 的效率
有必要
，
因此
，
开发
套 学 生 成绩 管理 系 统 软件 很
同 时 要 求 它 能 够 为 用 户 提 供 充 足 的信 息 和 方 便 的
。
操作方式
以 下 是 结 合本校 管 理 模 式 开 发 学 生 成绩管 理 系统 的过
程
，
介 绍 了 开 发 中遇 到 的 数 据 库 选 用
之 改 变 。将 Ｄ ｔ ｒ ａ ｇｉ 件 放 置 在 窗 体 中之 后 ，把 Ｄ ｔ ｒ ａ ｄ控 ａａ ，使 Ｄ ｔｇ ｄ控 件 与 要 处 理 的 数 Ｄ Ｄ ａａｒ ｉ 据 库 之 间建 立 联 系 。 在 Ｄ ｔｇｉ 修 改 数 据 后 ，更 新 多 个 ａ ｒ ａ ｄ中 数 据 表 时 会 出 现 “ｎ ｕｆ ｉ ｔ ｋ ｙ ｃ ｌ ｎｏｍ ｔ ｎ ｆ Ｉ ｓｆ ｃ ｎ ｅ ｏｕ ｉ ｅ ｍｎ ｉ ｒ ａｉ ｏ ｆ ｏ ｒ
vb6.0开发实例
vb6.0开发实例Visual Basic 6.0（VB6.0）是一款经典的集成开发环境（IDE），用于Windows平台的软件开发。
本文将通过一个简单的实例来演示如何使用VB6.0创建一个学生成绩管理系统，旨在帮助初学者了解VB6.0的基本开发过程。
一、新建项目：打开VB6.0，选择“标准EXE”模板，创建一个新项目。
接下来，设计一个简单的窗体，包括学生姓名、学号、数学成绩和英语成绩等基本信息的输入框。
二、设计数据库：在VB6.0中，我们可以使用Access数据库作为后台数据库。
创建一个名为"StudentDB.mdb"的Access数据库，其中包含一个名为"StudentTable"的表，用于存储学生信息（姓名、学号、数学成绩、英语成绩）。
三、连接数据库：在VB6.0的窗体上添加ADO控件，用于与数据库进行交互。
通过ADO控件建立与"StudentDB.mdb"数据库的连接，并在代码中编写SQL语句，实现数据的插入、更新、删除和查询等操作。
' 连接数据库Private Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source="& App.Path & "\StudentDB.mdb;Persist Security Info=Fal se"Adodc1.RefreshEnd Sub四、添加按钮和事件处理：在窗体上添加按钮，如“添加记录”、“更新记录”、“删除记录”、“查询记录”等。
通过按钮的Click事件处理程序，调用相应的SQL语句实现对数据库的操作。
' 添加记录Private Sub cmdAdd_Click()Adodc1.Recordset.AddNewAdodc1.Recordset("Name") = txtName.TextAdodc1.Recordset("StudentID") = txtStudentID.TextAdodc1.Recordset("MathScore") = txtMathScore.TextAdodc1.Recordset("EnglishScore") = txtEnglishScore.TextAdodc1.Recordset.UpdateEnd Sub' 查询记录Private Sub cmdSearch_Click()Adodc1.RecordSource = "SELECT * FROM StudentTable WHERE StudentID = '"& txtSearchStudentID.Text & "'"Adodc1.RefreshEnd Sub' 更新记录Private Sub cmdUpdate_Click()Adodc1.Recordset("MathScore") = txtMathScore.TextAdodc1.Recordset("EnglishScore") = txtEnglishScore.TextAdodc1.Recordset.UpdateEnd Sub' 删除记录Private Sub cmdDelete_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.UpdateEnd Sub五、界面美化：通过VB6.0提供的控件属性设置，对窗体和控件进行美化，使其更符合用户界面设计的要求。
基于PHP+MySQL-学生成绩管理系统论文
学生成绩管理系统Students' performance management system所在院(系):学号：学生姓名：年级专业：08级计算机专业指导教师：提交日期：2011年1月目录一绪论 (3)1.1课题简介 (3)1.2项目开发的目标 (3)二系统分析 (4)2.1需求分析 (4)2.2系统设计分析 (4)三概念结构设计 (5)3.1各个实体的局部ER图 (5)3.2系统功能模块图 (6)四逻辑结构设计 (8)4.1数据库设计与实现 (8)4.2数据库逻辑结构设计 (9)五系统功能设计与实现 (11)5.1系统前台 (11)5.2系统后台 (15)六总结 (20)参考文献 (20)一绪论1.1 课题简介随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。
任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。
学生成绩信息的管理是不容出错的，其学生基本信息、成绩管理等这些琐碎而又细致的工作，工作量是很大的，而且也不容许出错。
如果是手工管理这些的话，那将耗费工作人员大量的时间和精力。
用计算机来管理这些信息是非常方便，而且出错率小，可靠性高，查找方便，存储量也大。
这些优点能够极大地提高对学生成绩管理的效率,也是管理趋向信息化重要条件。
本系统是弥补某些学校成绩管理的不足，创建的一套行之有效的计算机成绩管理的方案。
1.2 项目开发的目标建立学生成绩管理系统，采用计算机对学生成绩进行管理，进一步提高办学效益和现代化水平。
帮助广大教师提高工作效率，实现学生成绩维护工作流程的系统化、规范化和自动化。
为了使系统在学院的管理中发挥更大的作用，实现工作过程的计算机化，提高工作效率和工作质量，现提出如下的系统开发目标：（1）系统应具有实用性、可靠性和适用性，同时注意到先进性。
（2）不同用户有不同的查询和修改权限,防止非法查询,非法修改。
利用SQL语言实现的学生成绩管理系统设计与实践
利用SQL语言实现的学生成绩管理系统设计与实践一、引言学生成绩管理系统是教育管理中的重要组成部分，通过该系统可以方便地记录、查询和分析学生的各科成绩情况，为教师和学生提供了便利。
本文将介绍如何利用SQL语言设计和实现一个简单的学生成绩管理系统，包括数据库表的设计、数据的插入、查询和更新等操作。
二、数据库表设计在设计学生成绩管理系统时，首先需要设计数据库表来存储学生信息和成绩信息。
一般来说，可以设计两张表：学生表（Students）和成绩表（Scores）。
下面是这两张表的设计：1. 学生表（Students）学生ID（StudentID）：主键，唯一标识每个学生姓名（Name）：学生姓名年龄（Age）：学生年龄班级（Class）：学生所在班级示例代码star：编程语言：sqlCREATE TABLE Students (StudentID INT PRIMARY KEY,Name VARCHAR(50),Age INT,Class VARCHAR(20));示例代码end2. 成绩表（Scores）记录ID（RecordID）：主键，唯一标识每条成绩记录学生ID（StudentID）：外键，关联学生表中的学生ID 科目（Subject）：考试科目成绩（Score）：考试成绩示例代码star：编程语言：sqlCREATE TABLE Scores (RecordID INT PRIMARY KEY,StudentID INT,Subject VARCHAR(50),Score FLOAT,FOREIGN KEY (StudentID) REFERENCESStudents(StudentID));示例代码end三、数据插入设计好数据库表结构后，接下来需要向表中插入数据。
可以使用SQL语句来插入学生信息和成绩信息，示例如下：示例代码star：编程语言：sqlINSERT INTO Students (StudentID, Name, Age, Class) VALUES (1, '张三', 18, '高一(1)');INSERT INTO Students (StudentID, Name, Age, Class) VALUES (2, '李四', 17, '高一(2)');INSERT INTO Scores (RecordID, StudentID, Subject, Score) VALUES (1, 1, '数学', 90);INSERT INTO Scores (RecordID, StudentID, Subject, Score) VALUES (2, 1, '英语', 85);INSERT INTO Scores (RecordID, StudentID, Subject, Score) VALUES (3, 2, '数学', 88);INSERT INTO Scores (RecordID, StudentID, Subject, Score) VALUES (4, 2, '英语', 92);示例代码end四、数据查询通过SQL语句可以方便地查询学生成绩信息，例如查询某个学生的所有成绩、某门科目的平均成绩等。
VB+SQL学生信息管理系统
计算机网络数据库设计题目: 学生信息管理系统学号xx姓名xx专业xxxx日期2006年12月8日随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。
面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。
通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。
本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。
本系统主要包括学生信息查询、教务信息维护和学生选课三部分。
其功能主要有：⒈有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。
⒉学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。
⒊学生信息的修改。
⒋班级管理信息的输入，包括输入班级设置、年级信息等。
⒌班级管理信息的查询。
⒍班级管理信息的修改。
⒎学生课程的设置和修改。
学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2000数据库完成。
该系统总体有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。
通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。
通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。
本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。
vb学生成绩管理系统
vb学生成绩管理系统一、需求分析为了方便教师管理学生成绩，同时减轻教师的工作量，我们设计开发了一套vb学生成绩管理系统。
本系统的主要目标是为学校的师生提供一套方便、快捷、高效的管理系统。
系统包括学生管理、教师管理、课程管理和成绩管理等模块。
学生模块主要管理学生的基本信息，包括学生姓名、性别、年龄、所在班级、学号等。
教师模块主要管理教师的基本信息，包括教师姓名、性别、年龄、所在院系、职称等。
课程模块主要管理课程的基本信息，包括课程名称、学分、考试时间等。
成绩模块主要管理学生成绩信息，包括成绩编号、学生姓名、课程名称、成绩等。
二、系统设计1.功能模块(1)学生管理模块该模块主要用于实现对学生信息进行管理。
包括学生信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询学生成绩单的功能。
(2)教师管理模块该模块主要用于实现对教师信息进行管理。
包括教师信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询教师所教授的课程的功能。
(3)课程管理模块该模块主要用于实现对课程信息进行管理。
包括课程信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询课程的学生名单的功能。
(4)成绩管理模块该模块主要用于实现对学生成绩信息进行管理。
包括学生成绩信息的添加、删除、修改和查询等功能。
同时该模块还提供了一个查询某一学生和某一课程的成绩的功能。
(5)登录模块该模块主要用于实现用户的登录和退出功能。
2.系统架构(1)系统主界面系统主界面分为三部分：菜单栏、工具栏和主窗口。
菜单栏提供了系统的主要功能，工具栏提供了快速访问系统功能的按钮，主窗口用于显示各个模块的内容。
(2)模块窗口每个模块都有一个单独的窗口，用于显示该模块所包含的功能。
在每个窗口中，都有一个菜单栏和一个工具栏。
菜单栏和工具栏提供了该模块的主要功能和快速访问方式。
三、系统实现1.数据库设计该系统使用了Access数据库，数据库包含四张表格，分别为“student”、“teacher”、“course”和“score”表格。
第12章 用VB+SQL Server 2005开发学生成绩管理系统
成绩表(T_CJB) 初始记录
成绩 80 69 78 89 54 67 66 87 97 91 69
16
3．实验步骤 （1）打开SQL Server Management Studio管理 控制台（企业管理器），在对象资源管理器的树形 目录中找到xscjglxt数据库并展开它，选择数据库 对象“表”，右击“表”对象，则弹出其快捷菜单， 如图12-6所示。 （2）从弹出的快捷菜单中选择“新建表”命令， 则在对象资源管理器窗口的右面弹出“表结构设 计”(表设计器)面板，如图12-7所示。该设计器的 上半部分是一个表格，在这个表格中输入“学号”、 “姓名”、“性别”、“出生日期”、“院系”等 列的属性，表格的每一行对应一个列定义，其含义 如下：
26
图12-11 “关系图”快捷菜单
27
（2）在弹出的快捷菜单中选择“新建 数据库关系图”命令，则弹出“添加表” 对话框，在这个“对话框”内可以选择要 建立关系图的相关表，如图12-12所示。在 这个对话框中选择表T_XSB、T_KCB和T_CJB， 并单击“添加”按钮进行表添加操作，然 后关闭“添加表”对话框。 （3）在SQL Server Management Studio管理控制台（企业管理器）中关闭 “对象资源管理器”和“属性”面板，会 完整出现“关系图”窗口，如图12-13所示。
17
图12-6 “表”快捷菜单
18
图12-7 表结构设计窗口
19
①列名：合法的列名称，如“学号”、 “姓名”等。 ② 数据类型：数据类型是一个下拉列表 框，包括了所有的系统数据类型和用户自定 义的数据类型，可从中选择需要定义的数据 类型。数据类型后括号内数值表示该字段选 择数据类型需要占用内存的字节数。 ③ 允许空：单击可以切换是否允许该列 数值为空值的状态，勾选说明允许为空值， 空白表示不允许为空值，默认状态表示允许 为空值。
实习3-JavaBeanMySQL学生成绩管理系统。实习4--VCMySQL学生成绩管理系统
实习3 JavaBean/MySQL学生成绩管理系统本章以学生绩管理系统为例介绍Javabean的综合应用。
本系统实现学生信息的查询、录入、修改和删除,以及学生成绩的录入、修改等，包括了Jvabean的基本功能。
希望读者通过这个综合实例，了解用Javabean解决实际问题的基本方法。
综合应用实例的基本思路是:首先进入系统登录，登录成功进入学生成绩管理系统主页面。
主页面上提供系统的主要功能，单击某一功能，即进入该功能的页面。
P3。
1 构建系统准备P3。
1.1 数据库准备系统使用的数据库管理系统为Mysql5。
0，学生成绩数据库名为XSCJ.其中涉及4个表:学生信息表（XS），存放学生的基本信息；课程信息表（KC），存放课程的基本信息；学生课程成绩表(XSKC）,存放学生课程的成绩信息；系统登录表(xscjuser），存放用户登录信息。
具体结构和样本数据参考附录A。
生成数据库表的sql语句如下：create database XSCJ；use XSCJ;drop table if exists KC; //删除已经存在的表drop table if exists XS；drop table if exists XSKC;drop table if exists xscjuser；create table KC //创建课程表（kch char (3）not null, //课程号kcm char (16），//课程名xq int(1), //学期xs int（1), //学时xf int(1)，//学分primary key (kch）//主键“课程号”）；create table XS //创建学生表(xh char（6) not null，//学号xm char(8), //姓名xb int, //性别cssj date，//出生日期zy char(10）, //专业zxf int, //总学分bz text, //备注image longblob，//照片primary key (xh），//主键“学号")；create table XSKC //创建成绩表(xh char（6）not null，//学号kch char（3), //课程号cj int（1), //成绩xf int(1）, //学分primary key （xh）//主键“学号”);create table xscjuser //创建登录表(xh char(10）not null, //学号kl char(10)，//口令primary key (xh）//主键“学号”);在命令行中输入以上sql语句，可以创建数据库XSCJ及4个表，也可以使用图形化用户界面工具MySQL Query Browser，把上面的SQL语句保存在D：\xscj.sql文件夹下，打开Query Browser工具，引入上面的SQL语句。
9个vb6 + sql2000的数据库系统实例源程序
9个vb6 + sql2000的数据库系统实例源程序VB6和SQL2000是一种经典的数据库系统开发组合，VB6作为一种编程语言，可以用于创建Windows应用程序，而SQL2000则是一种强大的关系型数据库管理系统，用于存储和管理大量数据。
在本文中，我们将介绍9个不同的VB6和SQL2000的数据库系统实例，并进行详细的说明。
1.学生管理系统这个实例是一个简单的学生管理系统，它可以用于存储和管理学生的基本信息，包括学生的姓名、学号、年龄等。
通过VB6的界面，可以实现学生信息的录入、查询、编辑和删除等功能。
2.图书管理系统这个实例是一个用于管理图书信息的系统，它可以存储和管理图书的基本信息，包括书名、作者、出版社等。
通过VB6的界面，可以实现图书信息的录入、查询、编辑和删除等功能。
3.购物系统这个实例是一个简单的购物系统，它可以用于管理商品信息和顾客的购买记录。
通过VB6的界面，顾客可以浏览和搜索商品，选择商品并添加到购物车中，然后结算和下单。
4.订餐系统这个实例是一个简单的订餐系统，它可以用于顾客选择菜品并下单，然后厨房进行菜品制作和配送。
通过VB6的界面，顾客可以浏览菜单，选择菜品和数量，然后下单。
厨房人员可以通过VB6的界面查看菜品订单和制作进度。
5.酒店管理系统这个实例是一个用于管理酒店房间和客户信息的系统，它可以存储和管理房间的基本信息，包括房间号、类型、价格等。
通过VB6的界面，可以实现房间的预订、查询、编辑和取消等功能。
6.学生成绩管理系统这个实例是一个用于管理学生成绩信息的系统，它可以存储和管理学生的考试成绩。
通过VB6的界面，可以实现学生成绩的录入、查询、编辑和删除等功能。
7.银行管理系统这个实例是一个简单的银行管理系统，它可以用于存储和管理客户的基本信息和银行账户信息。
通过VB6的界面，可以实现客户信息的录入、查询、编辑和删除等功能。
8.售后服务系统这个实例是一个简单的售后服务系统，它可以用于管理产品售后服务的记录和处理。
VB制作学生成绩统计分析系统
用VB制作学生成绩统计分析系统一.程设计的目的和意义每个学校都要举行考试，有的班级更是经常考试。
为了掌握学生的学习情况，老师们不得不花费大量时间和精力对考试成绩进行统计分析，因此，开发一个统计分析软件，具有重要的意义。
为强化和巩固所学的知识，本文所采用的程序是建立在以教材《VB程序设计使用教程》所涉及内容为基础之上的。
二.系统功能设计在本系统中，将主要实现如下的一些功能：1.对各分数段的人数及所占比例进行统计2.对最高分、最低分、平均分进行查询3.对不及格人数及所占比例进行统计4.将成绩分布用直方图表示出来三.设计思路在对课程项目进行分析以后，认为系统应有如下几条要求：1.要有系统登录界面2.要有成绩录入框3.要有统计结果显示界面4.要能对成绩进行保存四.设计流程图五.设计界面、基本控件使用方法简介：1.按退出键，关闭界面，退出程序。
2.按进入键，进入成绩输入界面，如下图所示。
3.建议在1028*768显示分辨率下使用。
1.因文件写入和读出之间有“系统误差”，所以用逗号开头，以消除“误差”2.按确定键，系统自动将成绩保存在“d:\kcsj\cjb.txt”文件，并对文件数据进行读入和运算处理，将统计结果显示在显示界面。
3.按取消键，则返回登录界面。
1.本界面为统计结果显示界面。
2.按返回键，关闭本界面，返回上一界面，即成绩输入界面。
3.按退出键，关闭各界面，结束程序。
六.关键程序//后为该程序段解释Private Sub Form_load()Dim sg() As Single, im(9) As IntegerDim int1, int2, int3 As Integer: Dim x, y, sb, sg1 As SingleDim n, m, z As IntegerDim a, b, c As IntegerOpen "d:\kcsj\cjb.txt" For Input As #1 //打开文件im(0) = -1n = 0Do While Not EOF(1)n = n + 1ReDim Preserve sg(n)Input #1, sg(n)Loop //读入数据Close #1 //关闭文件m = 2Do While m <= nSelect Case sg(m)Case Is >= 90im(9) = im(9) + 1Case Is >= 80im(8) = im(8) + 1Case Is >= 70im(7) = im(7) + 1Case Is >= 60im(6) = im(6) + 1Case Is >= 50im(5) = im(5) + 1Case Is >= 40im(4) = im(4) + 1Case Is >= 30im(3) = im(3) + 1Case Is >= 20im(2) = im(2) + 1Case Is >= 10im(1) = im(1) + 1Case Is >= 0im(0) = im(0) + 1Case Elsea = 1End Selectm = m + 1Loop //将各成绩按分数段分类统计L15.Caption = n – 2 //显示班级人数int2 = 0Do Until int2 > 9L1(int2).Caption = im(int2) //显示各分数段人数sb = im(int2) * 100 / (n - 2)L1(int2 + 10).Caption = Format(sb, "0.0") //显示各分数段人数比例int2 = int2 + 1Loopa = 1:b = 0Dob = b + sg(a)a = a + 1Loop While a <= n - 1Lav.Caption = Format(b / (n - 2), "0.0") //显示平均分For int1 = 2 To n - 2For int2 = int1 + 1 To n - 1If sg(int1) > sg(int2) Thensg1 = sg(int1)sg(int1) = sg(int2)sg(int2) = sg1End IfNextNextLmax.Caption = sg(n - 1) //显示最高分Lmin.Caption = sg(2) //显示最低分z = im(0) + im(1) + im(2) + im(3) + im(4) + im(5)Lren.Caption = z //显示不及格人数Lbi.Caption = Format(z / n, "0") //显示不及格人数所占比例Shape1(0).Height = 0: Shape1(1).Height = 0: Shape1(2).Height = 0: Shape1(3).Height = 0 Shape1(4).Height = 0: Shape1(5).Height = 0: Shape1(6).Height = 0: Shape1(7).Height = 0 Shape1(8).Height = 0: Shape1(9).Height = 0int2 = 0Do Until int2 > 9sb = im(int2) / (n - 2)Shape1(int2).Height = sb * Label7.HeightShape1(int2).Top = Line23.Y1 - Shape1(int2).HeightIf Shape1(int2).Height = 0 ThenShape1(int2).V isible = FalseElse: Shape1(int2).FillStyle = 0End Ifint2 = int2 + 1Loop //显示直方图End Sub七．心得本系统在最简程度上实现了对学生成绩的统计分析，所涉及的也都是基础性的知识。
学生成绩管理系统VB+SQL
课程设计任务书题目学生成绩管理系统系 (部) 数理系专业班级学生学号12 月 21 日至 12 月 25 日共 1 周指导教师(签字)系主任(签字)年月日学生成绩管理系统通过完成从用户需求分析、概念结构设计，逻辑结构设计等一系列的数据库设计到上机编程、调试和应用等全过程，进一步理解和掌握教材中的相关容。
一．实验要求（1）先对选定的实验做简单的需求分析;（2）做出数据流图和数据字典;（3）在数据流图和字典的基础上做出E-R图(概念结构设计);（4）在E-R图基础上进行关系模式设计（至少满足3NF）（逻辑结构设计）; （5）根据需求分析的各种数据请求得出各种视图以及各种约束、规则、触发器脚本描述;（6）根据第(5)的容在SQL-SERVER中设计中实例的数据库；（7）用自己熟悉的一门语言进行设计的功能的实现（8）整理前面几步的文档和程序源码，可执行程序，形成最终的实验报告。
（9）实验报告的最后写出本次实验完成中遇到的问题及解决方法二．需求分析1.功能需求本系统开发的目的，就是通过系统开发，实现课程管理有关工作的计算机化，提高关键环节的处理速度和规化，并对有关的工作进行集成和重组，通过网络系统实现集中管理、分散操作，提高选课管理工作的质量和效率。
通过对学校的选课及成绩管理工作进行实际调查，学生可以自由选择课程、选老师，学生注册的行政班和教学班是游离的，开发工作需要涉及任课教师、学生、管理员(教务工作人员)三种用户。
2.学生需求在学校规定的选课期间，学生通过任何一台连接因特网计算机的浏览器就能进行网上选课。
学生以用户名和密码进入选课系统。
选课系统会根据用户名和密码自动识别所在的系，然后显示出与学生有关的课程列表。
系统必须控制某一门课程在学期间只能选一次。
在学生选课时能自动进行有关逻辑判断，如：是否选课超过了规定的门数，是否选择了不符合预修条件的课程，是否选择的课程超过此课程最大选择人数，只有符合要求的选择才能选课成功。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
课程设计任务书题目学生成绩管理系统系(部) 数理系专业班级学生姓名学号12 月21 日至12 月25 日共 1指导教师(签字)系主任(签字)年月日学生成绩管理系统通过完成从用户需求分析、概念结构设计，逻辑结构设计等一系列的数据库设计到上机编程、调试和应用等全过程，进一步理解和掌握教材中的相关容。
一．实验要求（1）先对选定的实验做简单的需求分析;（2）做出数据流图和数据字典;（3）在数据流图和字典的基础上做出E-R图(概念结构设计);（4）在E-R图基础上进行关系模式设计（至少满足3NF）（逻辑结构设计）; （5）根据需求分析的各种数据请求得出各种视图以及各种约束、规则、触发器脚本描述;（6）根据第(5)的容在SQL-SERVER中设计中实例的数据库；（7）用自己熟悉的一门语言进行设计的功能的实现（8）整理前面几步的文档和程序源码，可执行程序，形成最终的实验报告。
（9）实验报告的最后写出本次实验完成中遇到的问题及解决法二．需求分析1.功能需求本系统开发的目的，就是通过系统开发，实现课程管理有关工作的计算机化，提高关键环节的处理速度和规化，并对有关的工作进行集成和重组，通过网络系统实现集中管理、分散操作，提高选课管理工作的质量和效率。
通过对学校的选课及成绩管理工作进行实际调查，学生可以自由选择课程、选老师，学生注册的行政班和教学班是游离的，开发工作需要涉及任课教师、学生、管理员(教务工作人员)三种用户。
2.学生需求在学校规定的选课期间，学生通过任一台连接因特网计算机的浏览器就能进行网上选课。
学生以用户名和密码进入选课系统。
选课系统会根据用户名和密码自动识别所在的系，然后显示出与学生有关的课程列表。
系统必须控制某一门课程在学期间只能选一次。
在学生选课时能自动进行有关逻辑判断，如：是否选课超过了规定的门数，是否选择了不符合预修条件的课程，是否选择的课程超过此课程最大选择人数，只有符合要求的选择才能选课成功。
学生可以更改部分个人信息如密码，等；学生可以查询已修课程成绩和已选课程信息。
3.教师需求任课教师登录后，可以查看自己所教课程的课程表；对于同一学期有多门课程的教师，需要选择具体课程后，才能查看已选这门课程的学生信息：期末，教师可以上传这些学生的成绩。
4.管理员需求系统管理员登录后，可以对学生，教师，课程，教学班级的基本信息进行添加，修改，删除等工作。
课程安排是选课的核心，只有按照实际的教学情况安排出每个学期必修和选修的课程，才能保证选课的顺利进行。
在每学期，学生选课前，各院系管理员必须在该院系培养案中录入本学期可以开设的课程和排课安排，对于需要预修条件的课程，需要设置好预修条件。
基础部管理员负责公共课的课程开设和排课安排。
其中排课及教学班级的安排上要保证同一个教师在同一时间只能上一门课程；同一个教室同一时间也只能开一门课程。
三．数据分析与建模1.数据流图和数据字典顶层图：数据字典：数据流项目：学生信息=姓名+学号+性别+年龄+专业+总学分成绩单=姓名+课目+成绩数据项条目：数据项名：成绩类型：int长度：4围：100-0加工条目：处理过程：过程名：学籍管理系统输入：学生信息，考试成绩，学生记录输出：统计表，成绩单数据字典：数据存储：数据存储名：学生记录组成：姓名+学号+性别+年龄+专业+总学分处理过程：处理过程名：录入存储处理输入：学生信息处理要求：如果没有所输入的学生记录，则建立新的学生记录，存储基本情况和课目成绩处理过程名：查询处理输入：学生信息，课程号输出：成绩处理要求：根据学生的学号查询相应的成绩处理过程名：统计处理输入：学生考试成绩输出：平均成绩，排名成绩数据字典：数据流：新生信息=入学时间+姓名+年龄+专业+性别合格单=姓名+专业处理过程：处理过程名：审查输入：学生信息输出：合格单处理要求：根据学生信息判断是否是新生处理过程名：是否是新生输入：合格单输出：新生信息处理要求：根据合格单建立新生信息处理过程名：录入存储学生信息，各科成绩输入：新生信息，考试成绩输出：本次考试成绩数据字典：数据存储：数据存储名：考试成绩组成：姓名+专业+成绩+学号组织式：一学号为关键字处理过程：处理过程名：有效性检查输入：学号，课程号输出：有效查询处理要求：根据所输入的信息查询有效性处理过程名：成绩查询输入：考试成绩输出：成绩处理要求：根据考试成绩查询成绩处理过程：处理过程名：统计选择输入：学生记录输出：按规定统计成绩处理要求：根据所输入学生记录查询成绩2.E_R图1）学生实体E-R图2）课程实体E-R图3）教师实体E-R图4)各实体之间的E-R图3.E—R图转换为关系模式:1）学生（XS）（学号(sno)，姓名(sname)，专业(sdept），性别(ssex)，出生日期(sbirth），总学分(all_credit)）学生表：主码：学号(sno)函数依赖：sno U.此表中，不存在非主属性对码的部分依赖，传递依赖，以及主属性对码的部分依赖和传递依赖，故满足3NF2）课程（KC）（课程号(cno)，课程名(cname)，开课学期(term)，学时(class_hour)，学分(credit)）课程表：主码：课程号(cno)函数依赖：cno U此表中不存在非主属性对码的部分依赖，传递依赖，以及主属性对码的部分依赖和传递依赖，故满足3NF3）选课（XS_KC）（学号(sno)，课程号(cno),成绩(grade)）选课表：主码：（学号，课程号）外码：学号，课程号函数依赖：(sno,cno) U此表中不存在非主属性对码的部分依赖，传递依赖，以及主属性对码的部分依赖和传递依赖，故满足3NF4）教师（TCH）（编号(tno),姓名(tname)，性别(tsex)，出生日期(tbirth)，职称(professional)，专业(department)）教师表：主码：编号(tno)函数依赖：tno U此表中不存在非主属性对码的部分依赖，传递依赖，以及主属性对码的部分依赖和传递依赖，故满足3NF5）授课（TCH_KC）（教师编号(tno),课程号(cno)，上课地点(place)）授课表：主码：（教师编号，课程号）外码：教师编号，课程号函数依赖：(tno,cno) U此表中不存在非主属性对码的部分依赖，传递依赖，以及主属性对码的部分依赖和传递依赖，故满足3NF4.逻辑设计结果：字段名数据类型含义说明空值情况备注课程号不能为空主键Cno Char(10)课程名不能为空Sname Char(10)credit int 学分可以空Class_hour Int 课时数可以空Term Int 开课学期可以空字段名数据类型含义说明空值情况备注tno Char(10) 教师号不能为空主键tname Char(10) 姓名不能为空完全依赖Tno，是unique Tbirth date 出生日期可以空Tsex Char(10) 性别可以空只能取“男”“女”，默认为男Char（10）职称可以空ProfessionalChar（10）专业可以空Department数据库表名XS_KC（选课）字段名数据类型含义说明空值情况备注Cno Char(10) 课程号不能为空主码Sno Char(10) 学号不能为空主码Grade int 成绩可以空数据库表名TCH_KC（授课）字段名数据类型含义说明空值情况备注Tno Char(10) 教师编号不能为空主码Cno Char(10) 课程号不能为空主码Place Char（10）授课地点可以空四．数据库应用开发与运行此为主界面，有五个按钮，可进行查询，修改等操作。
上图为学生信息查询窗口，可按学号，姓名，专业进行查询下图学生选课信息窗口，双击上图学生信息查询窗口中表格左边，可弹出此窗口显示该学生选课信息。
上图为教师信息查询窗口，可按教师编号，姓名，职称部门进行查询，双击表格左部可显示教师授课信息，如下图所示。
此为学生信息修改窗口，单击一行，可在上面文本框中显示该生信息，并进行插入，修改，删除等操作。
此为学生成绩录入窗口，单击一行可现实该生学号及所选课程，并在成绩文本框中进行添加及修改该课程成绩操作。
此为学生选课窗口，单击一行显示该行信息，可进行选课，删除操作五．结果分析、结论与体会在这次课程设计中，我遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如分析、建立、开发一个系统。
在一个系统开发的过程中编码不是重要的，重要的是分析系统、建立起系统模型。
在分析一个系统前，分析人员必须要对将要开发的系统所涉及到的各面知识有一个认识，然后将系统的模型建立起来。
在程序编写中，我认识到软件要有简便的界面，良好的程序风格。
拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。
我认为，所谓友好的界面，就是用户需要的界面，力求简便全面。
所以设计一个界面时，开发人员必须要了解用户的想法，从用户的角度去设计，当然，开发不能全听用户的意见，在详细分析了系统后，开发人员可以向用户提出一些修改的意见，在双多次交流后定出程序所需的功能，以决定界面的实现。
在编码中，良好的编程风格与习惯是提高工作效率的一个重要面，而且良好的编程风格与习惯也是使软件便于维护的基础。
那如是良好的编程风格与习惯呢？我认为主要是程序的模块化、必要的注释。
所谓模块化就是使程序的功能实现分成多个单独的功能模块，而不能在一大段代码中实现多个功能，如果这样做，别的人是非常难读懂你的程序。
必要的注释，显而易见是要在程序的编写中加入对程序的说明，原因就是为了别人能读懂你的程序，过一段时间后你自己还能读懂自己的程序。
最后说明下这次课程设计给我感受最深的有三点：1．进行管理系统开发这样的工作，要有恒心，要能静下新来做，而不能浮躁。
2．要善于同别人交流与合作，善于获取各种有用的资源。
3．要真真实实的多查资料，多问，多看。
六．参考文献及资料[1] 《学用Visual Basic 编程》潭浩电子科技大学出版社[2] 《数据库原理》丁宝康施伯乐著经济科学出版社[3] 《SQL Server数据库开发入门与例解析》夏邦贵著北京机械工业出版社[4] 《SQL Server 2005应用开发技术指南》东著北京清华大学出版社[5]《Visual Basic6.0》林雷著人民邮电出版社[6]《面向对象程序设计系列教材》龚沛曾著高等教育出版社[7]《Visual Basic6.0 数据库开发与专业应用》敬铮著国防工业出版社[8]《Visual Basic6.0 数据库程序设计高手》温贤发著科学出版社七.附录SQL Server 建立五表VB程序及控件设置Private Sub Command3_Click() '取消Stusno.Text = ""Stusname.Text = ""Stusbirth.Text = ""Stusdept.Text = ""Stuall_credit.Text = ""Stusexm = FalseStusexf = FalseEnd Sub'修改元组Private Sub Stuchange_Click()If Trim(Stusno.Text) = "" Or Trim(Stusname.Text) = "" Or (Stusexm = False And Stusexf = False) ThenMsgBox "加*数据项不能为空，请重新设置", vbOKOnly, "信息提示"Stusno.SetFocusExit SubEnd IfIf Trim(Stusbirth.Text) <> "" ThenIf Not IsDate(Trim(Stusbirth.Text)) ThenMsgBox "出生日期输入不正确，请重新输入", vbOKOnly, "信息提示"Stusbirth.SetFocusExit SubEnd IfEnd IfStuADO.Recordset.Fields("学号") = Trim(Stusno.Text)StuADO.Recordset.Fields("姓名") = Trim(Stusname.Text)StuADO.Recordset.Fields("出生日期") = Trim(Stusbirth.Text)StuADO.Recordset.Fields("专业") = Trim(Stusdept.Text)StuADO.Recordset.Fields("总学分") = Trim(Stuall_credit.Text)If Stusexm = True ThenStuADO.Recordset.Fields("性别") = "男"Else: Stusexf = TrueStuADO.Recordset.Fields("性别") = "女"End IfStuADO.Recordset.UpdateEnd Sub'删除元组Private Sub StuDel_Click()ret = MsgBox("是否要删除" + StuADO.Recordset("学号") + "号学生的记录?", vbYesNo, "提示")If ret = vbYes ThenStuADO.Recordset.DeleteEnd IfStuADO.RecordSource = "select sno 学号,sname 姓名,sdept 专业,ssex 性别,sbirth 出生日期,all_credit 总学分from XS"Command3_ClickStuADO.RefreshEnd Sub'选中一行显示元组Private Sub StuDG_Click()Stusno.Text = StuADO.Recordset("学号")Stusname.Text = StuADO.Recordset("姓名")Stusbirth.Text = StuADO.Recordset("出生日期")Stusdept.Text = StuADO.Recordset("专业")Stuall_credit = StuADO.Recordset("总学分")If Trim(StuADO.Recordset("性别")) = "男" ThenStusexm = TrueElseStusexf = TrueEnd IfEnd Sub'插入元组Private Sub Studinsert_Click()If Trim(Stusno.Text) = "" Or Trim(Stusname.Text) = "" Or (Stusexm = False And Stusexf = False) ThenMsgBox "加*数据项不能为空，请重新设置", vbOKOnly, "信息提示" Stusno.SetFocusExit SubEnd IfIf Trim(Stusbirth.Text) <> "" ThenIf Not IsDate(Trim(Stusbirth.Text)) ThenMsgBox "出生日期输入不正确，请重新输入", vbOKOnly, "信息提示" Stusbirth.SetFocusExit SubEnd IfEnd IfStuADO.Recordset.AddNewStuADO.Recordset.Fields("学号") = Trim(Stusno.Text) StuADO.Recordset.Fields("姓名") = Trim(Stusname.Text) StuADO.Recordset.Fields("出生日期") = Trim(Stusbirth.Text) StuADO.Recordset.Fields("专业") = Trim(Stusdept.Text) StuADO.Recordset.Fields("总学分") = Trim(Stuall_credit.Text)If Stusexm = True ThenStuADO.Recordset.Fields("性别") = "男"Else: Stusexf = TrueStuADO.Recordset.Fields("性别") = "女"End IfStuADO.Recordset.UpdateEnd Sub'取消Private Sub Stucancel_Click()Stusno.Text = ""Stusname.Text = ""Stucname.Text = ""End Sub'选课Private Sub Stuchoose_Click()StuADOXS.RecordSource = "select * from XS where sno='" + Trim(Stusno.Text) + "'" StuADOXS.RefreshIf Trim(Stusno.Text) = "" Or Trim(Stusname.Text) = "" Or Trim(Stucname.Text) = "" Then ret = MsgBox("输入不正确，请重新输入!", vbYes, "错误！")ElseIf Trim(Stusname.Text) <> Trim(StuADOXS.Recordset("sname")) Thenret = MsgBox("输入学号与姓名不匹配，请重新输入!")ElseStuADOXS_KC.RecordSource = "select * from XS_KC"StuADOXS_KC.RefreshStuADOXS_KC.Recordset.AddNewStuADOXS_KC.Recordset.Fields("sno") = Trim(Stusno.Text)StuADOKC.RecordSource = "select * from KC where cname='" + Trim(Stucname.Text) + "'"StuADOKC.RefreshStuADOXS_KC.Recordset.Fields("cno") = StuADOKC.Recordset("cno")StuADOXS_KC.Recordset.UpdateStuADO.RefreshEnd IfEnd Sub'删除元组Private Sub Studelete_Click()ret = MsgBox("是否要删除" + StuADO.Recordset("学号") + "号学生的选课记录?", vbYesNo, "提示")If ret = vbYes ThenStuADOXS_KC.RecordSource = "select * from XS_KC where sno='" + StuADO.Recordset("学号") + "'"StuADOXS_KC.RefreshStuADOXS_KC.Recordset.DeleteEnd IfStuADO.RefreshStucancel_ClickEnd Sub'单击显示元组Private Sub StuDG_Click()Stusno.Text = StuADO.Recordset("学号")Stusname.Text = StuADO.Recordset("姓名")Stucname.Text = StuADO.Recordset("课程名")End SubPrivate Sub Stuadd_Click()If Stugrade.Text = "" Thenret = MsgBox("输入为空，请重新输入", vbYes, "错误提示")ElseStuADOKC.RecordSource = "select * from KC where cname='" + Trim(Stucname.Text) + "'"StuADOKC.RefreshStuADOXS_KC.RecordSource = "select * from XS_KC where cno='" + StuADOKC.Recordset("cno") + "'"StuADOXS_KC.RefreshStuADOXS_KC.Recordset.Fields("sno") = Stusno.TextStuADOXS_KC.Recordset.Fields("cno") = StuADOKC.Recordset("cno") StuADOXS_KC.Recordset.Fields("grade") = Stugrade.TextStuADOXS_KC.Recordset.UpdateStuADO.RecordSource = "select sno 学号,XS_o 课程号,cname 课程名,grade 成绩from KC,XS_KC where o=XS_o"StuADO.RefreshEnd IfEnd Sub'取消Private Sub Stucancel_Click()Stusno.Text = ""Stucname.Text = ""Stugrade.Text = ""End Sub'删除学生成绩Private Sub Studelete_Click()ret = MsgBox("是否要删除" + Trim(StuADO.Recordset("学号")) + "号学生成绩?", vbYesNo, "提示")If ret = vbYes ThenStuADO.Recordset("成绩") = NullEnd IfEnd Sub'单击显示元组Private Sub StuDG_Click()Stusno.Text = StuADO.Recordset("学号")Stucname.Text = StuADO.Recordset("课程名")End Sub'修改学生成绩Private Sub Stusure_Click()If Stugrade.Text = "" Thenret = MsgBox("输入为空，请重新输入", vbYes, "错误提示")ElseStuADOKC.RecordSource = "select * from KC where cname='" + Trim(Stucname.Text) + "'"StuADOKC.RefreshStuADOXS_KC.RecordSource = "select * from XS_KC where cno='" + StuADOKC.Recordset("cno") + "'" + " and sno='" + Trim(Stusno.Text) + "'" StuADOXS_KC.RefreshStuADOXS_KC.Recordset.Fields("grade") = Trim(Stugrade.Text)StuADOXS_KC.Recordset.UpdateStuADO.RecordSource = "select sno 学号,XS_o 课程号,cname 课程名,grade 成绩from KC,XS_KC where o=XS_o"StuADO.RefreshEnd IfEnd SubPrivate Sub Command1_Click() StuSearch.ShowEnd SubPrivate Sub Command2_Click() AddStu.ShowEnd SubPrivate Sub Command3_Click() AddStuCourse.ShowEnd SubPrivate Sub Command4_Click() AddStuGrade.ShowEnd SubPrivate Sub Command5_Click() TchSearch.ShowEnd SubDim SqlStr As StringPublic Sub MakeSqlStr()SqlStr = ""If Trim(Stusno) <> "" ThenSqlStr = SqlStr + "and sno like'%" + Trim(Stusno.Text) + "%' "End IfIf Trim(Stusname) <> "" ThenSqlStr = SqlStr + "and sname like '%" + Trim(Stusname.Text) + "%'"End IfIf Trim(Stusdept) <> "" ThenSqlStr = SqlStr + "and sdept='" + Trim(Stusdept.Text) + "'"End IfEnd SubPrivate Sub Command1_Click()MakeSqlStrStuADO.RecordSource = "select sno 学号,sname 姓名,sdept 专业,ssex 性别,sbirth 出生日期,all_credit 总学分from XS where (ssex ='男' or ssex='女')" _& SqlStrStuADO.RefreshEnd SubPrivate Sub StuDG_DblClick()ShowStuKC.StuKCADO.RecordSource = "select sname 姓名,cname 课程名,grade 成绩,credit 学分,term 开课学期,class_hour 课时from XS,KC,XS_KC" _& " where XS.sno=XS_KC.sno and o=XS_o" _& " and XS.sno='" + StuADO.Recordset("学号") + "'"ShowStuKC.StuKCADO.RefreshShowStuKC.ShowStuSearch.Enabled = FalseEnd SubDim SqlStr As StringPublic Sub MakeSqlStr()SqlStr = ""If Trim(Tchtno) <> "" ThenSqlStr = SqlStr + "and tno like '%" + Trim(Tchtno.Text) + "%' "End IfIf Trim(Tchtname) <> "" ThenSqlStr = SqlStr + "and tname like '%" + Trim(Tchtname.Text) + "%'"End IfIf Trim(Tchprofessional) <> "" ThenSqlStr = SqlStr + "and professional like '%" + Trim(Tchprofessional.Text) + "%'"End IfIf Trim(Tchdepartment.Text) <> "" ThenSqlStr = SqlStr + "and department like '%" + Trim(Tchdepartment.Text) + "%'"End IfEnd SubPrivate Sub TchDG_DblClick()ShowTchKC.TchKCADO.RecordSource = "select tname 姓名,cname 课程,credit 学分,place 上课地点from KC,TCH,TCH_KC where TCH.tno=TCH_KC.tno and o=TCH_o" _& " and Tch.tno='" + TchADO.Recordset("教师编号") + "'"ShowTchKC.TchKCADO.RefreshShowTchKC.ShowEnd SubPrivate Sub Tchseek_Click()MakeSqlStrTchADO.RecordSource = "select tno 教师编号,tname 姓名,tsex 性别,tbirth 出生日期,professional 职称,department 部门from TCH where (tsex ='男' or tsex='女')" _& SqlStrTchADO.RefreshEnd Sub。