2022年学生信息管理系统设计与开发 .pdf

《2022年学生信息管理系统设计与开发 .pdf》由会员分享，可在线阅读，更多相关《2022年学生信息管理系统设计与开发 .pdf（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、河南工程学院数据库原理及应用课程设计成果报告学生信息管理系统设计与开发学生学号：学生姓名：学院：计算机学院专业班级：专业课程：数据库原理及应用课程设计指导教师：年月日课程设计指导教师评分表课程设计题目学生信息管理系统设计与开发成员姓名学号任务分工VB 系统窗体设计及数据库设计数据库代码片段筛选及整理数据库及系统整体修改调试评分项目及分值要素成绩评定项目最高分评分要素成绩1学习态度20 上机出勤及端正的学习态度、认真刻苦程度， 工作量饱满程度 等2软件设计质量40 采用的算法、设计方案，设计结果，界面友好等方面进行综合评定3答辩过程20 能简明扼要地阐述设计的主要内容，能准确流利地回答各种问题名

2、师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 14 页 - - - - - - - - - 4设计报告书写10 内容按要求步骤书写，条理清晰，表述清楚、措词得当5实际动手能力10 熟练使用开发工具，能够迅速准确的进行调试、纠错和运行；组长全面负责，承担复杂的模块设计分值就高总成绩等级评语名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 14 页 - -

3、 - - - - - - - 目录一、 系统设计目的 . 1 二、 系统实现思路 . 1 1、需求分析 . . 12、总体设计 . . 1 三、 系统数据库设计 . 3 1、数据需求分析.3 .2、概念结构设计（ER 图） .4 3、逻辑结构设计 （规范化） 5 4、物理结构设计 （索引） 6 四、 系统详细设计 . 7 五、 系统调试运行 . 12 六、 总结设计体会 . 19名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 14 页 - - - - - - - - -

4、学生信息管理系统设计与开发一、 设计目的设计目的：建立高效利用的学生信息管理系统，实现大量信息的规范管理、科学统计和快速查询，从而更好的减少管理方面的工作量。学生信息管理系统提供了强大的学生信息管理功能，方便管理员对学生信息进行添加、修改、删除、查询、统计等操作。因此，学生信息管理系统能够满足学校的需要， 简化学生信息的管理过程， 提高管理效率， 是学校学生信息管理的一种重要的工具。二、系统实现思路1、需求分析本次的实训课程着手于学生信息管理系统，原因在于学校的规模不断扩大，学生数量也在急剧增加， 有关学生的各种信息量也在成倍增长。对于庞大的信息量，一个高效的信息管理系统是能够很大程度上提高学

5、生管理工作的效率。2、总体设计系统功能分析：系统开发的目的是实现学生信息管理系统的关系化、规范化和自动化。 学生信息管理系统主要提供对学生信息的管理、班级信息的管理、 课程信息的管理以及学生成绩的管理。主要功能有：（1） 有关学生信息的输入、修改和查询。（2） 班级信息的输入、修改和查询。（3） 基本课程的输入、修改和查询。（4） 成绩的输入、修改和查询。（5） 学生成绩信息的统计。（6） 模拟用户登录操作。系统功能模块设计：图 1 系统功能模块学生信息管理系统学生信息管理班级信息管理课程信息管理成绩信息管理系统管理名师资料总结 - - -精品资料欢迎下载 - - - - - - - - -

6、- - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 14 页 - - - - - - - - - 三、系统数据库设计1、数据需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询方面， 这就要求数据库结构能充分满足各种信息的输出和输入。收集基本的数据、 数据结构以及数据处理的流程，组成一份相近的数据字典， 为后面的具体设计打下良好的基础。2、概念结构设计（ ER 图）图 2 学生实体E-R 图图 3 班级实体E-R 图图 4 课程实体E-R 图图 5 实体和实体之间E-R 图3、逻辑结构设计（规范化）学生管理系统数据库中各个表格的设计如下所示：?

7、 表 1 学生基本信息字段名数据类型大小是否为空说明student_no学号int 4 否主键student_name姓名char 10 能无student_sex性别char 2 否无Born_date出生日期Datatime 8 能无class_no班级号int 能无Tele_numbe r 联系方式char 10 能外关键字ru_date入学日期Datatime 能无address地址Varchar 50 能无comment备注Varcher 200 能无?表 2 班级基本信息字段名数据类型大小是否可空说明class_no班级编号Int 10 否主关键字class_name班级名 Cha

8、r 20 否无profession专业Char 14 能无学生学 生 基本信息学生班级信息学生课程信息学生成绩信息班级班号所在班级班主任所在教室课程课程编号课程名称课程类型课程描述学 生班级设置班 级考核过程课程设置课 程名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 14 页 - - - - - - - - - director 班主任charr 10 能外关键字表 3 课程基本信息表 4 成绩基本信息字段名数据类型大小是否可空说明exam_no成绩号Char 10 否

9、主关键字Student_no学号Int 4 否外关键字course_no课程号 Char 10 否外关键字result 成绩Int 4 是无4、物理结构设计（索引）图 6 学生信息管理系统数据流程图学生基本信息： 包括学生学号、 姓名、性别、出生日期、联系电话、家庭住址等。班级基本信息：包括班级号、班级名、班主任等。课程基本信息：包括课程编号、课程名称、课程类型、学分等。学生成绩信息：包括学生学号、课程编号和考试成绩等。四、详细系统设计针对此次学生信息管理系统， 分为了学生信息管理， 班级信息管理， 课程信息管理和成绩信息管理界面， 分多种功能操作， 由于时间原因， 简单针对学生信息管理进行了

10、比较详细的功能操作测试，先是通过菜单编辑器实现了多功能布局操作，选取了学生信息进行了窗口功能操作。例如：点击添加学生信息，可以实现添加学生信息功能， 并且单独设置了模拟用户登录界面，实现了用户隐私安全性保护数据。图 7 窗口目录的创建图 8 班级信息管理创建字段名数据类型大小是否可空说明course_no课程号Int 否关键字course_name课程名Char 10 否无course_score学分Int 4 能无course_time学时int 4 能无course_type课程类型 char 10 能无course_start开课时间 char 1 能无班级设置班级信息录入班级信息管理学

11、生信息录入班级设置学生信息管理成绩信息录入成绩信息管理班级设置学生信息录入课程管理登录名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 14 页 - - - - - - - - - 图 9 学生信息管理创建图 10 课程信息创建图 11 成绩信息管理创建图 12 工程主窗体的创建用户登录：Dim a As String Dim b As String Dim str As String Dim strr As String str=InStr(Text2.Text,) If

12、 str0 Then MsgBox不能输入非法字符！ ,vbCritical+vbOKOnly, 错误 Exit Sub Else strr=InStr(Text1.Text,) If strr0 Then MsgBox不能输入非法字符！ ,vbCritical+vbOKOnly, 错误 Exit Sub End If End If a=Trim(Text1) b=Trim(Text2) If a=Then MsgBox用户名不能为空 !,vbCritical, 错误 Text1.SetFocus Text1.SelStart=0 Text1.SelLength=Len(Text1) Else

13、 Dim r As New ADODB.Recordset Set r=DataEnvironment1.rsuser Dim c As String Static nTryCount As Integer c=select*from用户登陆 where 用户名 =&a& If r.State=adStateOpen Then r.Close r.Open c If r.EOF Then MsgBox无此用户 !请重新登陆 !,vbCritical, 错误 Text1.SetFocus Text1.SelStart=0 Text1.SelLength=Len(Text1) nTryCount=

14、nTryCount+1 If nTryCount=5 Then MsgBox您无权操作本系统！ ,vbCritical, 错误 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 14 页 - - - - - - - - - Unload Me End If Else If b=Trim(r.Fields(1)Then quanxian=Trim(r.Fields(2) MDIForm1.Show Unload Me Else MsgBox密码错误 !请重新登陆 !,vbCr

15、itical, 错误 Text2.SetFocus Text2.SelStart=0 Text2.SelLength=Len(Text2) nTryCount=nTryCount+1 If nTryCount=5 Then MsgBox您无权操作本系统！ ,vbCritical, 错误 Unload Me End If End If End If End If 图 13 系统启动窗体图 14 用户登录窗体五、 系统 调试 运行数据库的创建与调试：1、创建学生信息表CREATE TABLE dbo.student_Info ( student_ID int NOT NULL , student_

16、Name char (10) COLLATE Chinese_PRC_CI_AS NULL , student_Sex char (2) COLLATE Chinese_PRC_CI_AS NULL , born_Date datetime NULL , class_NO int NULL , tale_Number char (10) COLLATE Chinese_PRC_CI_AS NULL , ru_Date datetime NULL , address varchar (50) COLLATE Chinese_PRC_CI_AS NULL , comment varchar (20

17、0) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 14 页 - - - - - - - - - GO 2、创建班级信息表CREATE TABLE dbo.class_info ( class_No int NOT NULL , class_Name char (20) COLLATE Chinese_PRC_CI_AS NOT NULL , director char (10) C

18、OLLATE Chinese_PRC_CI_AS NULL , profession char (14) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY GO 3、创建课程信息表CREATE TABLE dbo.class_info ( course_No int NOT NULL , course_Name char (10) COLLATE Chinese_PRC_CI_AS NOT NULL , course_Type char (10) COLLATE Chinese_PRC_CI_AS NULL , course_start char (1)

19、COLLATE Chinese_PRC_CI_AS NULL , course_time int NULL , course_score int NULL ) ON PRIMARY GO 4、创建成绩信息表CREATE TABLE dbo.class_info ( student_Id int NOT NULL , course_No char (10) COLLATE Chinese_PRC_CI_AS NOT NULL , result float NULL ) ON PRIMARY GO 学生信息管理系统主窗体的创建与调试：图 15 基础工程窗体概览图 16 工程窗体的代码展示添加学生信

20、息：图 17 添加学生信息窗体Private Sub From_Load() Dim rst As ADODB.Recordset Dim sqlstr As String Dim MsgText As String Dim i As Integer 男”Combo2.Text = “200001”:Text5.Text = “2000-01-01”: Text6.Text = “2000-01-01”Text7.Text = “” : Text8.Text = “” : Text9.Text = “”Combo1.AddItem “男”Combo1.AddItem “女”sqlstr = “

21、select from class_Info “名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 14 页 - - - - - - - - - Set rst = QuerySQL(sqlstr,MsgText) For i = 1 To rst.RecordCount Combo2.AddItem rst.Fields(0) Rst.moveNext Next i Rst.Close End Sub Private Sub Command1_Click() Dim rst

22、 As ADODB.Recordset Dim sqlstr As String Dim MsgText As String If Not Testtxt (Text1.Text) Then MsgBox “ 请输入学号 ! ”, vbOKOnly + vbExclamation, “警告”Text1.SetFocus Exit Sub End If If Not Testtxt (Text2.Text) Then MsgBox “ 请输入姓名 ! ”, vbOKOnly + vbExclamation, “警告”Text2.SetFocus Exit Sub End If If Not Te

23、sttxt (Combo1.Text) Then MsgBox “ 请选择性别 ! ”, vbOKOnly + vbExclamation, “警告”Combo1.SetFocus Exit Sub End If If Not Testtxt (Combo2.Text) Then MsgBox “ 请输入班号 ! ”, vbOKOnly + vbExclamation, “警告”Combo2.SetFocus Exit Sub End If If Not Testtxt (Text5.Text) Then MsgBox “ 请输入出生日期 ! ”, vbOKOnly + vbExclamati

24、on, “警告”Text5.SetFocus Exit Sub End If If Not Testtxt (Text6.Text) Then MsgBox “ 请输入入校日期 ! ”, vbOKOnly + vbExclamation, “警告”Text6.SetFocus Exit Sub End If If Not Testtxt (Text7.Text) Then MsgBox “ 请输入电话号码 ! ”, vbOKOnly + vbExclamation, “警告”Text7.SetFocus 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - -

25、- - - - - - 名师精心整理 - - - - - - - 第 10 页，共 14 页 - - - - - - - - - Exit Sub End If If Not Testtxt (Text8.Text) Then MsgBox “ 请输入家庭住址 ! ”, vbOKOnly + vbExclamation, “警告”Text8.SetFocus Exit Sub End If If Not Testtxt (Text9.Text) Then MsgBox “ 请输入备注信息 ! ”, vbOKOnly + vbExclamation, “警告”Text9.SetFocus Exi

26、t Sub End If If Not IsNumeric (Trim(Text1.Text) Then MsgBox “ 请输入数字 ! ”, vbOKOnly + vbExclamation, “警告”Text5.SetFocus Exit Sub End If sqlstr = “select from class_Info “student_ID =” & Trim(Text1.Text) & “”Set rst = QuerySQL(sqlstr, MsgText) If rst.EOF = False Then MsgBox “ 学号重复，请重新输入！ ”, vbOKOnly +

27、vbExclamation, “警告”rst.Close Text1.SetFocus Else rst.Close If Not IsDate(Text5.Text) Then MsgBox “ 此出生日期应输入格式（yyyy-mm-dd）! ”,vbOKOnly + vbExclamation, “警告”Text5.SetFocus Else Text5 = Format(Text5, “yyyy-mm-dd”)If Not IsDate(Text6.Text) Then MsgBox “ 入校时间应填日期格式（yyyy-mm-dd）! ”,vbOKOnly + vbExclamation

28、, “警告”Text6.SetFocus Else Text6 = Format(Text6, “yyyy-mm-dd”)sqlstr = “select * from student_Info”Set rst = QuerySQL(sqlstr, MsgText) rst.AddNew rst.Fields(0) = Trim(Text1.Text) rst.Fields(1) = Trim(Text2.Text) rst.Fields(2) = Trim(Combo1.Text) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - -

29、- 名师精心整理 - - - - - - - 第 11 页，共 14 页 - - - - - - - - - rst.Fields(3) = Trim(Text5.Text) rst.Fields(4) = Trim(Combo2.Text) rst.Fields(5) = Trim(Text7.Text) rst.Fields(6) = Trim(Text6.Text) rst.Fields(7) = Trim(Text8.Text) rst.Fields(8) = Trim(Text9.Text) MsgBox “ 添加学籍信息成功！ ”, vbOKOnly + vbExclamation

30、, “警告”rst.Close End If End If End If End Sub Private Sub Command2_Click() Unload Me End Sub 图 18 修改学生信息窗体图 19 查询学生信息窗体模块的创建调试：Public fMainForm As frmMain Public UserName As String Sub Main () Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.succ Then 登录失败，退出应用程序End End If Unload fLogin S

31、et fMainForm.Show End Sub Public Function QuerySQL(ByVal SQL_ 图 20 模块的创建与调试As String, Msg As String)_ As ADODB.Recordset Dim cn As ADODB.Connecrion Dim rS As ADODB.Recordset Dim ss () As String On Error GoTo QuerySQL_Error ss = Sqlit(SQL) Set cn = New ADODB.Connection ConnectString=“Driver=SQLServer

32、;Server=zcj;UID=sa;PWD=sa;Database=Student ” cn.Open ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(ss(0) Thencn.Execute SQL 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 14 页 - - - - - - - - - Msg = ss(0) & _ “查询成功 ”Else Set rS = NewADODB.Recordset rS.

33、Open Trim$(SQL), cn,adOpenKeyset, adLockOptimistic Set QuerySQL = rS Msg = “查询到 ” & rS.RecordCount & “ 条记录 ”End If QuerySQL_Exit: Set rS = Nothing Set cn = Nothing Exit Function QuerySQL_Error: Msg = “查询错误 : “ & Err.DescriptionResume QuerySQL_Exit End Function Public Function Testtxt(txt As String)

34、As Boolean If Trim(txt) = “” ThenTesttxt = False Else Testtxt = True End If End Function 六、总结及心得体会（感受、不足）短暂的一周数据库实训课程转眼间已经结束，通过此次的实训课程练习， 大大的提高了我的团队协作能力， 我们分工明确， 对本次的数据库设计内容进行了比较详细的规划。首先，实训前针对所需要的文件进行了提前准备，调试了有关的程序能够正常运行，确保了实训的正常操作。 对书本的实例进行了详细的了解，选取了其中的内容作为主要参考，确定了以学生信息管理系统为主要内容的数据库模拟系统，真正的模拟了学生用户的

35、操作体验。其次，我对于我们组主要负责系统布局设计的一个环节，我肩负了重要的责任，不仅对学生用户信息系统进行了比较综合的布局分析，同时完善了各个布局页面的页面信息设置， 与我事先设计好的学生信息管理主窗体完成了对接，以此完成了信息系统的调用操作。最后，遗憾的是在时间的催促下， 我们未能将此系统很好的与数据库数据进行对接操作，使我们的模拟操作系统不能完美的实现模拟数据的操作等其他功能，此后，我们会尽力将此系统进行改进，希望能够完美对接数据库并实现更多的操作功能。总接下来，此次的实训课程我收获颇丰，老师的悉心讲解， 使我们在迷惑中得以解惑， 这次的实训， 带给我的不仅是设计出系统的喜悦，更多的是体会到了名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 14 页 - - - - - - - - - 大家团结一起， 各尽其责的感觉， 这些都是值得我们去深深回味的，也是值得去珍惜的，也希望实训课程能够越来越丰富，不断的加强和鼓舞我们大家每个人的心理素质。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 14 页 - - - - - - - - -