VB+SQL学生信息管理系统
学生选课信息管理系统VB+MySQL
目录一、引言 (2)二、需求分析 (2)2.1 业务需求 (2)2.2 功能需求 (3)2.3 数据需求 (3)2.3.1 实体数据需求 (3)2.3.2 数据库系统设计 (4)2.3.3逻辑设计 (4)三、概要设计 (4)3.1 系统结构与组成 (4)3.2逻辑数据库设计 (5)3.3 物理数据库实现 (7)四、详细设计与实现 (8)4.1 建立数据库数据表 (8)4.1.1 建立数据库 (8)4.1.2 建立数据表 (9)4.2 主要功能模块实现 (10)4.2.1 登陆模块 (10)4.2.1 系统管理界面模块 (11)4.2.3 查询模块 (11)4.2.3 修改模块 (13)4.2.4 删除模块 (14)五、结束语 (16)六、参考文献 (16)一、引言学生选课系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生档案管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套学生档案管理系统的子模块学生信息管理为例,叙述其开发过程和所涉及到的问题及解决方法。
二、需求分析2.1 业务需求在本系统中，有三类用户：系统管理员，教师和学生。
学生成绩管理系统VB程序汇编
登陆登陆Private Sub cmdLogin_Click()If txtUser.Text = "" ThenMsgBox ("请输入用户名!")txtUser.SetFocusElseCall openconnsql = "select * from login where username='" & Trim(txtUser.Text) & "' and password='" & Trim(txtPwd.Text) & "'"rs.Open sql, conn, adOpenDynamic, adLockOptimisticIf rs.EOF ThenMsgBox "用户不存在！"ElseUnload MefrmMain.ShowEnd IfEnd IfEnd Sub退出Private Sub cmdRegister_Click()Unload MeEnd Sub功能选择选课管理Private Sub cmdChoice_Click()frmChoice.ShowUnload MeEnd Sub退出Private Sub cmdExit_Click()EndEnd Sub查询Private Sub cmdFind_Click()frmFind.ShowUnload MeEnd Sub成绩管理Private Sub cmdGrade_Click()frmGrade.ShowUnload MeEnd Sub学生管理Private Sub cmdStu_Click()frmStu.ShowUnload MeEnd Sub学生管理添加Private Sub cmdAdd_Click()frmAddStu.ShowUnload MeEnd Sub删除Private Sub cmdDel_Click()rs.DeleteMsgBox ("删除成功!!")End Sub编辑Private Sub cmdEdit_Click()frmEditStu.ShowUnload MeEnd Sub查找Private Sub cmdFind_Click() '查询功能If cboFind.Text = "学号" ThenIf txtInput.Text = "" ThenMsgBox ("学号输入不能为空!")txtInput.SetFocusElseDim sql1 As StringSet rs1 = New ADODB.Recordsetsql1 = "select * from stuInfo where ID='" & txtInput.Text & "'"rs1.CursorLocation = adUseClientrs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdTextIf rs.EOF ThenMsgBox ("查不到相关信息")txtInput.SetFocusElseSet DataGrid1.DataSource = rs1DataGrid1.RefreshEnd IfEnd IfElseIf txtInput.Text = "" ThenMsgBox ("姓名输入不能为空!")txtInput.SetFocusElseDim sql2 As StringSet rs2 = New ADODB.Recordsetsql2 = "select * from stuInfo where name='" & txtInput.Text & "'"rs2.CursorLocation = adUseClientrs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdTextIf rs.EOF ThenMsgBox ("查不到相关信息")txtInput.SetFocusElseSet DataGrid1.DataSource = rs2DataGrid1.RefreshEnd IfEnd IfEnd IfEnd Sub返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub输出窗口Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) ' txtInput.Text = DataGrid1.Columns.Item(4) ''获取选中行的第5列数据End Sub窗体Private Sub Form_Load()Dim sql As StringSet conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetCall openconnsql = "select * from stuInfo"rs.CursorLocation = adUseClientrs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet DataGrid1.DataSource = rs 'datagrid绑定数据源End Sub成绩查询返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub确定Private Sub Command1_Click()lblGrade.Caption = Trim(cboCourse.Text) + "课程成绩"Dim sql1 As StringSet rs1 = New ADODB.Recordsetsql1 = "select score.ID,score.Num,score.score from score, course where name='" & cboCourse.Text & "' and score.Num=course.Num"'sql1 = "select * from course"rs1.CursorLocation = adUseClientrs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet DataGrid1.DataSource = rs1End Sub窗体Private Sub Form_Load()Dim sql As StringSet conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetCall openconnsql = "select * from course"rs.Open sql, conn, adOpenDynamic, adLockOptimisticDo Until rs.EOFcboCourse.AddItem rs("name")rs.MoveNextLoopEnd Sub选课管理返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub提交Private Sub cmdSubmit_Click()If txtID = "" ThenMsgBox ("请输入学号!!")txtID.SetFocusElseIf lstCourse.Text = "" ThenMsgBox ("请选择课程!!")ElseDim sql1 As StringDim sql2, name As StringSet rs2 = New ADODB.RecordsetSet rs1 = New ADODB.Recordsetsql1 = "select score.ID, score.Num from score , course where ID='" & txtID.Text & "' and name='" & lstCourse.Text & "' and score.Num=course.Num"name = lstCourse.Textsql2 = "select Num from course where name='" & name & " '"rs1.Open sql1, conn, adOpenDynamic, adLockOptimisticrs2.Open sql2, conn, adOpenDynamic, adLockOptimisticIf rs1.EOF Thenrs1.AddNewrs1("ID") = txtID.Textrs1("Num") = rs2("Num")rs1.UpdateMsgBox ("选课成功!!")rs1.CloseElseMsgBox ("已选过该课!!")End IfEnd IfEnd Sub窗体Private Sub Form_Load()Dim sql As StringSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetsql = "select * from course"Call openconnrs.Open sql, conn, adOpenDynamic, adLockOptimisticDo Until rs.EOF 'listbox控件利用循环读取课程表中的课程名lstCourse.AddItem rs("name")rs.MoveNextLoopEnd Sub查询确定Private Sub cmdOK_Click()If txtID = "" ThenMsgBox ("学号不能为空!!")txtID.SetFocusElseDim sql As StringDim sum1, sum2 As SingleDim n As IntegerSet conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetCall openconnsql = "select , score.score , course.credit from score , course where score.ID='" & txtID.Text & "' and score.Num=course.Num"rs.CursorLocation = adUseClientrs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet DataGrid1.DataSource = rssum1 = 0sum2 = 0n = 0Do While Not rs.EOFsum1 = sum1 + Val(rs("score"))sum2 = sum2 + Val(rs("credit"))n = n + 1rs.MoveNextLooplblAvg.Caption = Format(sum1 / n, "0.0")lblCredit.Caption = sum2End IfEnd Sub返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub修改学生信息返回Private Sub cmdReturn_Click()frmStu.ShowUnload MeEnd Sub提交Private Sub cmdSubmit_Click()If txtID.Text = "" ThenMsgBox ("学号不能为空！")txtID.SetFocusElseIf txtName.Text = "" ThenMsgBox ("姓名不能为空！")txtName.SetFocusElseIf txtSex.Text = "" ThenMsgBox ("学分不能为空！")txtSex.SetFocusElseIf txtAge.Text = "" ThenMsgBox ("年龄不能为空！")txtAge.SetFocusElseDim sql As StringSet conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetCall openconnsql = "select * from stuInfo where ID='" & txtID.Text & "'"rs.Open sql, conn, adOpenDynamic, adLockOptimisticIf Not rs.EOF Then '判断学号是否存在rs("name") = txtName.Textrs("sex") = txtSex.Textrs("age") = txtAge.Textrs("pro") = cboPro.Textrs.UpdateMsgBox ("修改成功！！")ElseMsgBox ("学号不存在!")End IfEnd IfEnd Sub窗体Private Sub Form_Load()txtID = rs("ID")txtName = rs("name")txtSex = rs("sex")txtAge = rs("age")cboPro.Text = rs("pro")End Sub添加学生返回Private Sub cmdReset_Click()frmStu.ShowUnload MeEnd Sub提交Private Sub cmdSubmit_Click()If txtID.Text = "" ThenMsgBox ("学号不能为空！")txtID.SetFocusElseIf txtName.Text = "" ThenMsgBox ("请输入姓名！")txtName.SetFocusElseIf txtSex.Text = "" ThenMsgBox ("请输入性别！")txtSex.SetFocusElseIf txtAge.Text = "" ThenMsgBox ("年龄不能为空！")txtAge.SetFocusElseDim sql As StringSet conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetCall openconnsql = "select * from stuInfo where ID='" & txtID.Text & "'"rs.Open sql, conn, adOpenDynamic, adLockOptimisticIf rs.EOF Then '判断学号是否存在rs.AddNewrs("ID") = txtID.Textrs("name") = txtName.Textrs("sex") = txtSex.Textrs("age") = txtAge.Textrs("pro") = cboPro.Textrs.UpdateMsgBox ("添加成功！！")frmStu.ShowUnload MeElseMsgBox ("学号已存在!")End IfEnd IfEnd Sub。
SQL语句创建学生管理系统
if exists( select * from sys.databases where name='student')drop database studentgocreate database studenton primary(name=student_data,filename='e:\student_data.mdf',size=20mb,maxsize=40mb,filegrowth=1mb)log on(name=student_log,filename='e:\student_log.ldf',size=20mb,maxsize=40mb,filegrowth=1mb)go--学生选课管理系统各表创建USE studentGOCREATE TABLE 系部(系部代码char(2) CONSTRAINT pk_xbdm PRIMARY KEY,系部名称varchar(30) NOT NULL,系主任char(8))GOCREATE TABLE 专业(专业代码char(4) CONSTRAINT pk_zydm PRIMARY KEY,专业名称varchar(20) NOT NULL,系部代码char(2) CONSTRAINT fk_zyxbdm REFERENCES 系部(系部代码)) GOCREATE TABLE 班级(班级代码char(9) CONSTRAINT pk_bjdm PRIMARY KEY,班级名称varchar(20),专业代码char(4) CONSTRAINT fk_bjzydm REFERENCES 专业(专业代码),系部代码char(2) CONSTRAINT fk_bjxbdm REFERENCES 系部(系部代码),备注varchar(50))GOCREATE TABLE 学生(学号char(12) CONSTRAINT pk_xh PRIMARY KEY,姓名char(8),性别char(2),出生日期datetime,入学时间datetime,班级代码char(9) CONSTRAINT fk_xsbjdm REFERENCES 班级(班级代码),系部代码char(2) CONSTRAINT fk_xsxbdm REFERENCES 系部(系部代码),专业代码char(4) CONSTRAINT fk_xszydm REFERENCES 专业(专业代码)) GOCREATE TABLE 课程(课程号char(4) CONSTRAINT pk_kc PRIMARY KEY,课程名char(20) NOT NULL,学分smallint)GOCREATE TABLE 教师(教师编号char(12) CONSTRAINT pk_jsbh PRIMARY KEY,姓名char(8) NOT NULL,性别char(2),出生日期datetime,学历char(10),职务char(10),职称char(10),系部代码char(2) CONSTRAINT fk_jsxbdm REFERENCES 系部(系部代码),专业char(20),备注varchar(50))GOCREATE TABLE 教学计划(课程号char(4) CONSTRAINT pk_jxjhch REFERENCES 课程(课程号),专业代码char(4) CONSTRAINT pk_jxjhzydm REFERENCES 专业(专业代码),专业学级char(4) ,课程类型char(8),开课学期tinyint,学分tinyint)GOCREATE TABLE 教师任课(教师编号char(12) CONSTRAINT fk_jsrkjsbh REFERENCES 教师(教师编号),课程号char(4) CONSTRAINT fk_jsrkch REFERENCES 课程(课程号),专业学级char(4) ,专业代码char(4) CONSTRAINT fk_jsrkzydm REFERENCES 专业(专业代码),学年char(4),学期tinyint,学生数smallint)GOCREATE TABLE 课程注册(注册号bigint identity(010000000,1) not for replication CONSTRAINT pk_zch PRIMARY KEY ,学号char(12) CONSTRAINT fk_kczcxh REFERENCES 学生(学号),课程号char(4) CONSTRAINT fk_kczckch REFERENCES 课程(课程号),教师编号char(12) CONSTRAINT fk_kczcjsbh REFERENCES 教师(教师编号),专业代码char(4) CONSTRAINT fk_kczczydm REFERENCES 专业(专业代码),专业学级char(4),选课类型char(8),学期tinyint,学年char(4),成绩tinyint,学分tinyint)GO。
毕业设计论文 VB学生信息管理系统
学生信息管理系统毕业论文目录1.1摘要 (2)1.2前言 (2)1.3开发学生信息管理系统相关问题 (2)1.3.1 学生信息管理系统的简介 (2)1.4系统的实现以及相关问题 (3)1.4.1 Visual Basic 6.0总概括 (3)1.4.2 实施环境与工具的比较选择 (3)1.4.3 编程环境、工具、实现与数据准备概况 (3)1.4.4 学校管理者对学生信息管理系统的需求 (4)1.5学生信息管理系统功能模块设计、数据库的设计和功能实现 (4)1.5.1 学生信息管理系统的功能模块设计 (4)1.5.2 数据库设计 (4)1.6学生信息管理系统的具体实现 (8)1.6.1 学生信息管理系统主窗体的创建 (8)1.6.2 系统用户管理模块 (11)1.6.3 学籍管理模块的创建 (12)1.6.4 班级管理模块的创建 (14)1.6.5 课程设置模块的创建 (15)1.6.6 成绩管理模块的创建 (17)1.6.7 帮助模块的设计 (18)1.7系统测试概况 (19)1.7.1 系统转换方案及实现概况 (19)1.7.2 软硬件平台 (19)1.8结束语 (20)1.9致谢 (20)1.10参考文献 (21)1.11附程序代码清单 (22)1.1摘要信息管理系统就是我们常说的MIS(Management Information System),它是一个计算机软硬件资源以及数据库的人-机系统。
它能提供信息支持企业或组织的运行、管理和决策功能。
学生信息管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起资料一致性和完整性强、资料安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
经过分析如此情况,我们使用Microsoft公司的Visual Basic 6.0开发工具,由于它给我们提供了用于从数据库中访问数据的强大工具集,使用它可以建立开发比较完善的数据库操作应用程序,并利用SQL Server2000提供数据库。
原创SQL数据库学生管理系统
原创SQL数据库学生管理系统一、简介SQL数据库学生管理系统是一款用于管理学生信息的数据库系统。
该系统采用结构化查询语言（SQL）作为数据管理和查询的工具，通过对学生信息进行有效的组织和管理，实现了学生基本信息的录入、查询、修改和删除等功能。
本文将介绍该数据库系统的设计思路、功能模块和操作流程。
二、数据库设计1. 数据表设计数据库中包含以下几个数据表：•学生表（students）：存储学生的基本信息，包括学生ID、姓名、性别、年龄等字段。
•课程表（courses）：存储学生所选课程的信息，包括课程ID、课程名称、学分等字段。
•成绩表（scores）：存储学生的成绩信息，包括学生ID、课程ID、成绩等字段。
2. 数据库关系设计学生表与课程表之间的关系是多对多关系，通过中间表（选课表）来建立关联关系。
选课表（selections）包含了学生ID和课程ID两个字段，用于记录学生所选课程的关系。
各个数据表之间的关系如下图所示：+------------+| students |+------------+|| 多对多关系|+------------+| courses |+------------+|| 一对多关系|+------------+| scores |+------------+三、功能模块SQL数据库学生管理系统包含以下几个功能模块：1. 学生信息管理模块该模块实现学生信息的录入、查询、修改和删除功能。
管理员可以通过该模块进行学生信息的管理，包括添加新的学生信息、查询学生信息、修改学生信息和删除学生信息等操作。
2. 课程信息管理模块该模块实现课程信息的录入、查询、修改和删除功能。
管理员可以通过该模块进行课程信息的管理，包括添加新的课程信息、查询课程信息、修改课程信息和删除课程信息等操作。
3. 成绩管理模块该模块实现学生成绩的录入、查询、修改和删除功能。
管理员可以通过该模块进行学生成绩的管理，包括添加学生成绩、查询学生成绩、修改学生成绩和删除学生成绩等操作。
sis系统是什么意思
SIS系统是什么意思简介SIS系统是学生信息管理系统（Student Information System）的简称，是一种用于学校管理学生信息的软件系统。
它能够整合学生的个人信息、课程信息、成绩信息等数据，为学校、教师、家长和学生提供快捷、准确的信息管理和查询服务。
功能SIS系统主要包含以下几个方面的功能： 1. 学生信息管理：SIS系统能够存储和处理学生的个人信息，包括姓名、性别、年龄、住址等基本信息，以及家庭联系人、紧急联系人等联系方式。
学生的档案和历史记录也能够被系统记录和管理。
2. 课程管理：SIS系统可以维护学校的课程信息，并能够对学生的选课情况进行管理和统计。
学生可以通过系统查询开设的课程，进行选课操作。
3. 成绩管理：SIS系统能够记录学生的考试成绩和平时成绩，并自动生成绩点和排名。
学校和教师可以通过系统对学生的学业表现进行评估和跟踪。
4. 考勤管理：SIS系统能够记录学生的考勤情况，包括迟到、早退和请假等情况。
学校和家长可以通过系统对学生的考勤情况进行监控和管理。
5. 通知和沟通：SIS系统可以用于学校向学生和家长发送通知、公告等消息，并提供在线交流平台，方便教师和家长之间的沟通和交流。
优势SIS系统相比传统的人工管理方式具有以下几个明显优势： 1. 信息集中化：SIS 系统将学生的各类信息集中存储在一个系统中，减少了信息的散落和重复输入，提高了信息管理的效率和准确性。
2. 便捷查询：通过SIS系统，学生、教师和家长可以方便地进行信息查询，如查看个人信息、课程表、成绩单等，节省了大量纸质材料的使用。
3. 实时更新：SIS系统的数据更新是实时的，可以及时反映学生的最新情况，方便学校和家长进行学业和行为的监测和干预。
4. 数据统计：SIS系统能够对学生的数据进行统计和分析，为学校决策提供参考依据。
教师和家长也可以通过系统了解学生的学习状况，及时发现问题并进行干预。
5. 提升效率：SIS系统的应用可以提高学校运行的效率，减少了人工处理数据的工作量，使学校管理更加规范和高效。
《2024年基于B-S结构的学生信息管理系统的设计与实现》范文
《基于B-S结构的学生信息管理系统的设计与实现》篇一基于B-S结构的学生信息管理系统的设计与实现一、引言随着信息技术的飞速发展，学生信息管理已成为学校日常管理工作的重要组成部分。
为了更好地满足学校对学生信息管理的需求，本文提出了一种基于B/S（浏览器/服务器）结构的学生信息管理系统。
该系统通过先进的网络技术，实现了学生信息的集中管理和快速查询，提高了学校管理工作的效率和质量。
二、系统设计1. 系统架构设计本系统采用B/S结构，即浏览器/服务器结构。
该结构具有跨平台、易维护、可扩展等优点，能够满足学校在不同设备和操作系统上使用的要求。
系统分为前端、后端和数据库三个部分。
前端主要负责用户界面的展示和交互，后端负责业务逻辑的处理和数据的管理，数据库负责数据的存储和查询。
2. 功能模块设计（1）学生信息管理模块：该模块主要包括学生信息的录入、修改、删除、查询等功能。
通过该模块，管理员可以方便地管理学生信息，包括学生基本信息、学习成绩、奖惩情况等。
（2）课程管理模块：该模块主要用于管理学校的课程信息，包括课程的开设、停开、修改等操作。
通过该模块，管理员可以方便地管理学校的课程设置，保证教学工作的顺利进行。
（3）成绩管理模块：该模块主要用于管理学生的成绩信息，包括成绩的录入、查询、统计等功能。
通过该模块，管理员可以方便地了解学生的学习情况，为教学评估提供依据。
（4）系统管理模块：该模块主要用于系统的维护和管理，包括用户权限管理、数据备份恢复等功能。
通过该模块，管理员可以保证系统的安全性和稳定性。
三、系统实现1. 技术选型本系统采用Java语言进行开发，使用MVC架构模式进行设计。
前端采用HTML、CSS、JavaScript等技术实现页面的展示和交互，后端采用Spring框架进行业务逻辑的处理和数据的管理，数据库采用MySQL进行数据的存储和查询。
2. 关键技术实现（1）学生信息录入与修改：通过前端页面实现学生信息的录入与修改功能，后端对录入的信息进行验证和存储。
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引言随着学校规模的不断扩大，学生数量急剧增加，有关学生的各科成绩信息量也成倍增长。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
计算机网络数据库设计题目: 学生信息管理系统学号xx姓名xx专业xxxx日期2006年12月8日随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。
面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。
通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。
本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。
本系统主要包括学生信息查询、教务信息维护和学生选课三部分。
其功能主要有：⒈有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。
⒉学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。
⒊学生信息的修改。
⒋班级管理信息的输入，包括输入班级设置、年级信息等。
⒌班级管理信息的查询。
⒍班级管理信息的修改。
⒎学生课程的设置和修改。
学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2000数据库完成。
该系统总体有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。
通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。
通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。
本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。
学生选课是对学生进行相应选择自己相关的课程。
最后进行打印。
采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。
由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。
本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。
其中学生档案是本系统主要的（图一）一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。
其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。
数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC 数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“Microsoft Access Drive（*.mdb）”，点击“完成”按钮，在ODBC Microsoft Access 安装对话框中在数据源名中输入信息，在数据库这个框中，单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。
在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。
在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中，选中单选框“Use ODBC Data Source Name”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在Commard Text（SQL）文本框中输入查询语句，如：select * from 学生档案。
同时，将桌面的DataGrid 控件选中，在属性框中，将它的Datasoure设为Adodc。
我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。
然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。
系统功能（查询模块）1．查询信息的情况；2．判断信息是否符合要求；3．将符合条件的信息进行打印；流程图2．3．1 库设计本系统涉及到的信息主要有5类：学生信息、成绩信息、教师信息、图书信息、后备信息。
由于成绩信息和教师信息与学生信息关系密切，因此将这三类信息存放在同一数据库中，以提高多种信息同时读取的速度。
按以上分析，将系统的数据库设计为三个：一、学生数据库：该数据库为中包含有以下各表：1、学生表：记录学生的基本信息，是进行学生及其它各类信息处理的基础。
2、成绩表：记录学生的期中、期末及总评的各科成绩。
3、总分表：记录学生的期中、期末及总评的总分及名次。
4、课程表：记录各专业各年级开课情况，在添加学生记录时，可根据该表的情况决定在成绩表添加学生记录的个数。
三、后备数据库：该数据库主要保存两类信息：学生信息、成绩信息。
其数据表是按用户的要求在运行过程中动态建立的。
2．3．2 表设计：1、学生表结构：表2.12、课程表结构：表2.23、成绩表结构：表2.34表2.4第五章详细设计根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。
在这一阶段的工作中，主要任务有以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。
2、进行系统的流程分析，为模块的细化做好准备。
3、对每个模块进行详细的算法设计。
3．1 系统界面设计一、登录及系统主窗口界面设计该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。
1、登录窗口界面：本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库（如图一）。
其中学生档案是本系统主要的（图一）一张表，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。
其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。
数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC 数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“Microsoft Access Drive（*.mdb）”，点击“完成”按钮，在ODBC Microsoft Access 安装对话框中在数据源名中输入信息，在数据库这个框中，单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据链接。
在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。
在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中，选中单选框“Use ODBC Data Source Name”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在Commard Text（SQL）文本框中输入查询语句，如：select * from 学生档案。
同时，将桌面的DataGrid 控件选中，在属性框中，将它的Datasoure设为Adodc。
我们可以设置DataGrid控件的外观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。
然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。
各功能的实现课程管理：课程设置（如：界面如图二）（图二）运行程序后，进入课程管理模块，课程管理模块的第一块是课程设置，在这模块中可以把专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质和考试性质等信息输入，以便使用。
下面为其代码：Private Sub Command1_Click()Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetDim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringZhuanYe = Text1.TextNianJi = Text2.TextXueQi = DTPicker1.ValueKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKeShi = Text7.TextShangKeDD = Text8.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(ZhuanYe) = "" Or Trim(NianJi) = "" Or Trim(XueQi) = "" Or Trim(KeCheng) = "" Or Trim(JiaoCai) = "" Or Trim(RenKLS) = "" Or Trim(KeShi) = "" Or Trim(ShangKeDD) = "" Or Trim(KeChengXZ) = "" Or Trim(KaoShiXZ) = "" ThenMsgBox "请填写要修改课程资料的内容！"Combo1.Text = ""Combo2.Text = ""Exit SubEnd IfmyCon.Open "dsn=信息"myRs.Open "select * from 课程表where 专业='" & Text1.Text & "'", myCon, 3, 2 myRs!年级= Text2.TextmyRs!学期= DTPicker1.ValuemyRs!课程名称= Text4.TextmyRs!教材= Text5.TextmyRs!任课老师= Text6.TextmyRs!课时= Text7.TextmyRs!上课地点= Text8.TextmyRs!课程性质= Combo1.TextmyRs!考试性质= Combo2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox "您确定要修改吗？", vbYesNo, "提示"Frm_UpdateGrean.Adodc1.RefreshFrm_UpdateGrean.DataGrid1.RefreshText1.Text = ""Text2.Text = ""'Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Combo1.Text = ""Combo2.Text = ""End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Unload MeFrm_FindGrean.Show 1End SubPrivate Sub DataGrid1_Click()'Frm_UpdateGrean.Adodc1.RecordSource = "select * from 课程表where 专业= '" & Trim(DataGrid1.Row) & "'"'Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("专业")'Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("年级")'Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("学期")'Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("课程名称")'Text5.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("教材")'Text6.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("任课老师")'Text7.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("课时")'Text8.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("上课地点")'Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("课程性质")'Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("考试性质")End SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)End SubPrivate Sub Form_Activate()Frm_FindGrean.Adodc1.RecordSource = strTiaoJianFrm_FindGrean.Adodc1.RefreshSet DataGrid1.DataSource = Frm_FindGrean.Adodc1End SubPrivate Sub Form_Load()Combo1.AddItem ("必修")Combo1.AddItem ("选修")Combo1.AddItem ("自开")Combo2.AddItem ("考试")Combo2.AddItem ("查考")Text1.Text = ""Text2.Text = ""'Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Combo1.Text = ""Combo2.Text = ""End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub课程管理：课程查询（如：界面如图三）（图三）当输入查询类别、运算符和条件后可以查找到所需要的课程设置，或按查询时间来查询，输入所要查找的时间段，就可查到所要的课程设置。