学生成绩管理系统技术说明文档

1、学生成绩管理系统技术说明文档一需求分析1、分析用户活动系统管理 交给管理者 学生管理 交给管理者课程管理 交给教师 选课管理 交给教师 成绩查询 交给学生 接收申请用户及班级数据存档打印用户及班级信息接收申请学生数据存档打印学生数据信息接收申请课程数据存档打印课程信息接收申请选课信息存档打印选课信息接收申请查询信息打印成绩表 2、数据流图和数据词典 管理者管理者 管理员管理者 教师教师学生学生学生学生最初数据流图管理者管理者 班级 用户 系 用户数据流及文件说明：录入信息请求：用户名，密码，权限，班号，班级名，辅导员姓名，系号，系主任，班级：班级名，班号，系号，辅导员姓名用户：姓名，密码，权限

2、系：系号，系名，系主任，电话号码用户及班级信息数据：用户名，密码，权限，班号，班级名，系号信息清单：用户名，密码，权限，班号，班级名，系号管理者管理者 班级 学生 数据流及文件说明：录入学生信息请求：学号，班级，姓名，专业，性别，民族，籍贯，身份证号码，政治面貌，学生：学号，班级，姓名，专业，性别，民族，籍贯，身份证号码，政治面貌班级：班号，班级名，辅导员姓名，系号，系名，系主任，电话号码学生信息数据：学号，姓名，性别，专业，班名，系名学生信息单：学号，姓名，性别，专业，班名，系名教师教师 班级 教师 课程 课程表 数据流及文件说明：排课请求：班号，课号，教师号课程：课程编号，课程名，学时，学

3、分，备注课表：班号，课号，教师号，教室号，上课时间，开始时间，结束时间课表信息、课程表：班号，课号，教师号，教室号，上课时间，开始时间，结束时间学生学生 学生 选课程 教师 数据流及文件说明：查询请求：课程号，学号学生：学号，姓名，选课程：学号，选课名，类型，教师号，开课时间，结束时间选课信息、选课单：姓名，选课名，教师名，类型学生学生学生 课程 选课数据流及文件说明：成绩查询请求：学号，姓名课程：课程号，课程名，学号，姓名，教师号，成绩选课：课程号，课程名，学号，姓名，教师号，成绩成绩信息、成绩单：课程号，课程名，学号，姓名，类型，教师名，成绩3.数据字典数据流及文件描述： 录入信息请求=用

4、户名+密码+权限+班号+班级名+辅导员姓名+系号+系主任班级=班级名+班号+系号+辅导员姓名用户=姓名+密码+权限系=系号+系名+系主任+定+电话号码用户及班级信息数据=用户名+密码+权限+班号+班级名+系号信息清单=用户名+密码+权限+班号+班级名+系号录入学生信息请求=学号+班级+姓名+专业+性别+民族+籍贯+身份证号码+政治面貌学生=学号+班级+姓名+专业+性别+民族+籍贯+身份证号码+政治面貌班级=班号+班级名+辅导员姓名+系号+系名+系主任+电话号码学生信息数据=学号+姓名+性别+专业+班名+系名学生信息单=学号+姓名+性别+专业+班名+系名排课请求=班号+课号+教师号课程=课程编号

5、+课程名+学时+学分+备注课表=班号+课号+教师号+教室号+上课时间+开始时间+结束时间课表信息、课程表=班号+课号+教师号+教室号+上课时间+开始时间+结束时间 查询请求=课程号+学号学生=学号+姓名选课=学号+选课名+类型+教师号+开课时间+结束时间选课信息、选课单=姓名+选课名+教师名+类型 成绩查询请求=学号+姓名课程=课程号+课程名+学号+姓名+教师号+成绩选课=课程号+课程名+学号+姓名+教师号+成绩成绩信息、成绩单=课程号+课程名+学号+姓名+类型+教师名+成绩数据项描述：对班级的文件数据项的描述数据项名类型长度（字节）取值范围班号字符599999班级名字符50系字符50辅导员姓

6、名字符50 对系文件数据项的描述数据项名类型长度（字节）取值范围系号字符8系名字符13地址字符系主任字符8电话号码字符15对学生文件数据项的描述数据项名类型长度（字节）取值范围学号字符13姓名字符8班级字符20性别字符2“男”或“女”电话字符13专业字符10民族字符2政治面貌字符5身份证号码字符20对课程文件数据项的描述数据项名类型长度（字节）取值范围课程号字符40000199999课程名字符13教师号字符课程类型字符8学分字符2对管理者文件数据项的描述数据项名类型长度（字节）取值范围管理者号字符50000199999姓名字符8性别字符2“男”或“女”身份证号字符35电话字符13地址字符对教师

7、文件数据项的描述数据项目类型长度（字节）取值范围教师号字符11教师姓名字符8身份证号码字符20系号字符8 对选课程文件数据项的描述数据项类型长度（字节）取值范围选课号字符400019999选课名字符13教师号字符11学分字符2课程类型字符8二概念模型设计1.局部E-R图：班级管理者从属管理从属用户班级学生系1、用户及班级信息录入请求局部E-R图 2、学生信息录入局部E-R图学生结束时间课程选课成绩上课时间排课开始时间教师选课程教师班级教室 3、排课请求局部E-R图 4、选课查询局部E-R图学生查询成绩成绩选课课程 5、成绩查询局部E-R图2.总体E-R图：教室管理者管理教师排课班级用户从属从属

8、课程系选课程查询选课学生 成绩管理系统总E-R图三逻辑结构设计1.关系模式、关系之间的联系、关键字登录（用户名，密码，权限）课程（课程号，课程名称，授课老师，课程类型）学生信息（学号，名字，班级，专业，性别，出生日期，民族，籍贯，宿舍，政治面貌，电话号码，院系，专业，身份证号码）学生与课程（课程号，课程名称，学号，姓名，课程类型，学分，成绩，id）班级（班级名称，班级辅导员，所属系别）2、表格的名称、字段的属性、索引的名称和索引字段(1)、登录字段数据类型字段大小必填字段索引允许为空用户名varchar50是无否密码varchar50是无否权限varchar50是无否(2)、课程字段数据类型字

9、段大小必填字段允许为空约束课程号int4否是主键课程名称varchar50是否授课老师varchar50否否课程类型char10是否 (3)、学生信息字段数据类型字段大小必填字段允许为空约束学号char10否否主键名字varchar50是否班级varchar12是是性别char50是否出生日期datetime8否民族varchar50否否籍贯varchar50否否宿舍varchar255否否政治面貌varchar20否否电话号码varchar30否否院系varchar50否否专业varchar50否否身份证号varchar50否是(4)、学生与课程 字段数据类型字段大小必填字段允许为空约束课程

10、号int4是是课程名称varchar50否是学号char10是否姓名char10是否课程类型char10是否学分int4否是成绩int4否否idint4否否主键 (5)、班级字段数据类型字段大小必填字段索引允许为空班级名称varchar50是无否班级辅导员varchar50否唯一索引（班级辅导员_Index）否所属系别varchar50是无否四物理结构设计1.主要功能：（1）能够浏览学生成绩的所有信息（2）能够对学生的信息注册登记管理（3）学生成绩资料的数据库建立和管理（4）能够通过学生的一个信息找到个人成绩的相关信息（5）通过查询专业找到学生的信息（6）相关人员能对包含学生的成绩信息进行管理

11、（7）多用户数据安全管理，保证各部门的数据安全、完整，对每个使用本系统用户进行权限的设置（8）简易操作，不需要计算机专业人员。（9）学生成绩添加、删除和修改,包括学生的学号、姓名、课程名称、学分、成绩（10）成绩查询，查询条件为学生学号、姓名、课程名称等信息的综合查询（11）用户管理：设置两个级别用户：管理员和普通用户，管理员有权限使用所有的功能，普通用户只能使用查询功能，用户使用本系统之前必须先通过身份认证（用户名和密码）2.总体结构框图：主界面系统管理用户管理班级管理退出系统退出系统学生管理学生查询学生管理开课与选课学生选课选课查询课程管理课程查询课程管理学生成绩成绩管理成绩查询询3. 模

12、块的流程图（1）登录流程图登陆主界面 Y验证用户名 N Y验证密码 N 进入主界面（2）主界面操作图主界面系统管理用户管理班级管理退出系统退出系统学生管理学生查询学生管理开课与选课学生选课选课查询课程管理课程查询课程管理学生成绩成绩管理成绩查询询（3）所有学生与增加学生数据图增加学生所有学生数据初始化数据初始化读取数据字段读取数据行数按显示数据初始化表格等待输入数据（4）课程与成绩数据处理图增加成绩数据初始化读取数据字段初始化表格等待输入数据所有成绩数据初始化读取数据行数为所有数据分页按分页显示数据 所有成绩E-R图 增加成绩E-R图（5）数据保存流程图执行保存保存状态载入表名学生信息学生与课

13、程数据完整性是否有重复插入数据退出 N N Y（6）各信息管理处理图*管理增加保存修改删除退出（7）查询查 询增加退出4.详细程序代码（1）连接数据库的模块代码Public mdbconn As New ADODB.ConnectionPublic mdbrs As New ADODB.RecordsetPublic mdbrs1 As New ADODB.RecordsetPublic mdbrs2 As New ADODB.RecordsetPublic admin As BooleanPublic hang As IntegerPublic user1 As StringPublic m

14、di As BooleanPublic sup As StringSub Main()mdi = Trueadmin = Falsemdbconn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=StudentMIS;Data Source=.mdbconn.CommandTimeout = 30mdbconn.OpenForm1.ShowEnd Sub（2）用户登录代码Private Sub XPButton1_Click()

15、On Error GoTo finishuser = Text1.TextSet mdbrs = mdbconn.Execute(select * from 登录 where 用户名= & Text1.Text & and 密码= & Text2.Text & )If mdbrs.EOF = True Then Text1.Text = Text2.Text = Text1.SetFocus MsgBox 用户名或密码不正确！Elseuser1 = mdbrs.Fields(0)sup = mdbrs.Fields(2)If mdbrs.Fields(2) = 超级管理员 Then admin

16、 = True Else admin = False End If Unload Me MDIForm1.ShowEnd IfExit Subfinish:MsgBox Err.DescriptionEnd SubPrivate Sub XPButton2_Click()EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall XPButton1_ClickEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If Key

17、Ascii = 13 ThenCall XPButton1_ClickEnd IfEnd Sub（3）主窗体代码Private Sub abou_Click()frmAbout.ShowEnd SubPrivate Sub classma_Click()If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End IfIf mdi = True ThenForm5.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfEnd SubPrivate S

18、ub cmai_Click()If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End IfIf mdi = True ThenForm10.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfEnd SubPrivate Sub cs_Click()If mdi = True ThenForm11.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfEnd S

19、ubPrivate Sub exit_Click()If mdi = False ThenMsgBox 请保存数据！, vbInformation, 不允许当前操作！ElseEndEnd IfEnd SubPrivate Sub kecheng_Click()If mdi = True ThenForm7.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfEnd SubPrivate Sub MDIForm_Load()StatusBar1.SimpleText = 今天是 & Year(Date) & 年

20、& Month(Date) & 月 & Day(Date) & 日 , 欢迎您使用学生成绩管理系统 ! & 当前操作者: & user111 & 权限: & supEnd SubPrivate Sub relog_Click()If mdi = False ThenMsgBox 请关闭打开的窗口！, vbInformation, 不允许当前操作！ElseUnload MeForm1.ShowEnd IfEnd SubPrivate Sub sturea_Click()If mdi = True ThenForm4.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, v

21、bInformation, 不允许当前操作！End IfEnd SubPrivate Sub stureg_Click()If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End IfIf mdi = True ThenForm3.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfEnd SubPrivate Sub stuxuan_Click()If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系

22、! Exit Sub End IfIf mdi = True ThenForm8.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1 If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End If If mdi = True Then

23、Form2.Show Else MsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！ End IfCase 2If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End IfIf mdi = True ThenForm5.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfCase 3If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit

24、 Sub End IfIf mdi = True ThenForm3.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfCase 4If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End IfIf mdi = True ThenForm6.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfCase 5If admin = False Then MsgBox

25、 你没有管理本功能的权限,请与管理员联系! Exit Sub End IfIf mdi = True ThenForm10.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfCase 6If mdi = True ThenForm4.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfCase 7If mdi = False ThenMsgBox 请保存数据！, vbInformation, 不允许当前操作！ElseEndEn

26、d IfEnd SelectEnd SubPrivate Sub user_Click() If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End If If mdi = True Then Form2.Show Else MsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！ End IfEnd SubPrivate Sub xuankecha_Click()If mdi = True Then Form9.Show Else MsgBox 每次只能打开一个窗口，请关闭

27、正在打开的窗口！, vbInformation, 不允许当前操作！ End IfEnd SubPrivate Sub zhuxiu_Click()If admin = False Then MsgBox 你没有管理本功能的权限,请与管理员联系! Exit Sub End IfIf mdi = True ThenForm6.ShowElseMsgBox 每次只能打开一个窗口，请关闭正在打开的窗口！, vbInformation, 不允许当前操作！End IfEnd Sub（4）用户管理代码Dim gridsave As BooleanDim gridedit As BooleanDim grid

28、delete As BooleanPrivate Sub Form_Load()Me.Left = (MDIForm1.Width - Me.Width) / 2Me.Top = (MDIForm1.Height - Me.Height) / 20Me.Left = (MDIForm1.Width - Me.Width) / 2Me.Top = (MDIForm1.Height - Me.Height) / 20On Error GoTo finishGrid1.SetRegisterInformation CNwinndy, WvyY-nonvk-unty-Zbl_e-hmsWith Gri

29、d1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .DefaultFont.Name = Tahoma .DefaultFont.Size = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 2

30、11) .BackColorScrollBar = RGB(150, 170, 210) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .GridColor = RGB

31、(148, 190, 231) .DefaultFont.Name = Tahoma .DefaultFont.Size = 8 .Column(0).Width = 0 .Column(1).Width = 100 .Column(2).Width = 100 .Column(3).Width = 100 .Column(3).CellType = cellComboBox .ComboBox(3).Clear .ComboBox(3).AddItem 超级管理员 .ComboBox(3).AddItem 一般用户End WithCall callmainGrid1.Column(1).Lo

32、cked = Truegridsave = Falsegridedit = Truegriddelete = Truemdi = FalseExit Subfinish:MsgBox Err.DescriptionEnd SubPrivate Sub callmain()On Error GoTo finishgridsave = Falsegridedit = Truegriddelete = TrueSet mdbrs = mdbconn.Execute(select * from 登录)Grid1.Rows = 1i = 3Grid1.Cols = i + 1For i = 0 To 2

33、Grid1.Cell(0, i + 1).Text = mdbrs.Fields(i).NameNexti = 1Do While Not mdbrs.EOF Grid1.Rows = Grid1.Rows + 1 For j = 1 To 3 If mdbrs.Fields(j - 1) = Null Then Grid1.Cell(i, j).Text = Else Grid1.Cell(i, j).Text = mdbrs.Fields(j - 1) End If Next i = i + 1 mdbrs.MoveNextLoopGrid1.Column(1).Locked = True

34、Exit Subfinish:MsgBox Err.DescriptionEnd SubPrivate Sub Form_LostFocus()Form2.ShowEnd SubPrivate Sub Form_Unload(Cancel As Integer)mdi = TrueEnd SubPrivate Sub XPButton1_Click()On Error GoTo finishgridsave = Truegridedit = Falsegriddelete = FalseSet mdbrs = mdbconn.Execute(select * from 登录)Grid1.Row

35、s = 1Grid1.Rows = 2Grid1.Column(1).Locked = FalseGrid1.Cell(1, 1).SetFocusExit Subfinish:MsgBox Err.DescriptionEnd SubPrivate Sub XPButton2_Click()On Error GoTo finishIf gridsave = False ThenMsgBox 不支持保存操作！, vbInformation, 当前不支持Exit SubEnd IfIf Grid1.Cell(1, 1).Text And Grid1.Cell(1, 2).Text ThenSet

36、 mdbrs = mdbconn.Execute(select * from 登录 where 用户名= & Grid1.Cell(1, 1).Text & ) If mdbrs.EOF = True Then Set mdbrs = mdbconn.Execute(insert into 登录 values( & Grid1.Cell(1, 1).Text & , & Grid1.Cell(1, 2).Text & , & Grid1.Cell(1, 3).Text & ) MsgBox 提交成功！, vbInformation, Call callmain Else MsgBox 该管理员

37、己存在！, vbInformation, 不可重名 Exit Sub End IfElseMsgBox 用户名和密码都不可以是空格！, vbInformation, 错误提示End IfExit Subfinish:MsgBox Err.DescriptionEnd SubPrivate Sub XPButton3_Click()On Error GoTo finishIf gridedit = False ThenMsgBox 当前修改操作不被允许!, vbInformation, 非使用对象Exit SubEnd IfFor i = 1 To Grid1.Rows - 1 Set mdbr

38、s = mdbconn.Execute(update 登录 set 密码= & Grid1.Cell(i, 2).Text & ,权限= & Grid1.Cell(i, 3).Text & where 用户名= & Grid1.Cell(i, 1).Text & ) Next MsgBox 修改的数据己经完成, vbInformation, 完成操作 Call callmainExit Subfinish:MsgBox Err.DescriptionEnd SubPrivate Sub XPButton4_Click()On Error GoTo finishDim i As IntegerI

39、f griddelete = False ThenMsgBox 当前删除操作不被允许!, vbInformation, 非使用对象Exit SubEnd IfIf hang = 0 ThenMsgBox 没有选择用户或者没有用户可以删除!, vbInformation, 非使用对象 Exit SubEnd Ifi = MsgBox(确认删除此记录吗？, 4, 删除学生)If i = 6 ThenSet mdbrs = mdbconn.Execute(delete from 登录 where 用户名= & Grid1.Cell(hang, 1).Text & )MsgBox 目标己删除,请刷新数

40、据!, vbInformation, 删除成功Call callmainElseMsgBox 目标没有删除!, vbInformation, 删除失败End IfExit Subfinish:MsgBox Err.DescriptionEnd SubPrivate Sub XPButton5_Click()Unload MeEnd SubPrivate Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long)hang = RowEnd Sub（5）学生管理代码Dim gridedit1 As BooleanDim gridsave

41、1 As BooleanDim griddelete1 As BooleanPrivate Sub Form_Load()Me.Left = (MDIForm1.Width - Me.Width) / 2Me.Top = (MDIForm1.Height - Me.Height) / 20On Error GoTo finishmdi = FalseGrid1.SetRegisterInformation CNwinndy, WvyY-nonvk-unty-Zbl_e-hmsSet mdbrs1 = mdbconn.Execute(select 班级名称 from 班级)Grid1.Cols

42、= 14Grid1.Column(1).Width = 120Grid1.Column(2).Width = 80Grid1.Column(3).Width = 100Grid1.Column(4).Width = 40Grid1.Column(5).Width = 80Grid1.Column(6).Width = 30Grid1.Column(7).Width = 70Grid1.Column(8).Width = 80Grid1.Column(9).Width = 60Grid1.Column(10).Width = 80Grid1.Column(11).Width = 100Grid1

43、.Column(12).Width = 100Grid1.Column(13).Width = 100With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .DefaultFont.Name = Tahoma .DefaultFont.Size = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixe