SQL学生成绩管理系统1

1、指导教师：霍戌文、郭奕亿应用软件实践课程设计（2012/2013-2分散）班级：* 学号：*姓名：*浙江理工大学科技与艺术学院2013年3月应用软件实践课程设计报告目 录1. 题目.32.目的与要求.33.需求分析.34.数据建模与分析.45.数据库建立.56.数据库应用开发与运行.8 6.1 登录程序代码、界面图、详细功能说明.86.2 选择界面程序代码、界面图、详细功能说明.106.3 缴费信息界面程序代码、界面图、详细功能说明.11 6.4缴费信息修改界面程序代码、界面图、详细功能说明.176.5学分信息界面程序代码、界面图、详细功能说明.196.6学分信息修改界面程序代码、界面图、详细

2、功能说明.20 6.7基本信息界面程序代码、界面图、详细功能说明.21 6.8基本信息修改界面程序代码、界面图、详细功能说明.227.结果分析、结论与体会.238.参考文献及资料.241、 题目： 学生基本信息管理系统2、 目的和要求： 1.设计目的：1让学生按照软件工程的规范掌握一般应用软件开发的基本过程、基本技术，为以后的毕业设计奠定基础。2掌握关系型数据库管理系统的编程技术，并能独立完成一般小系统的程序设计、调试运行等工作。3培养把所学知识运用到具体对象，理解面向对象编程理论，并能求出解决方案的能力。2.任务要求 1、学生基本信息设置：包括专业、班级、姓名、学号等； 2、学生学分信息及缴

3、费信息录入：包括已获学分、还需选修学分，缴费信息等； 3、学生基本信息和学分、缴费信息的查询及增删改； 4、学分及缴费信息的统计（此项可选）。3、 需求分析：SQL是一种结构化数据库查询语言，其发音为“sequel”或“S-Q-L”。尽管MICROSOFT以其特有的方式加入了所有权声明，但它在大多数据库应用中近乎成为一种标准。简言之，它是一种使用你选择的标准从数据库记录中选择某些记录的方法。就象SQL的名字一样，我们可以通过容易理解的查询语言，来和数据库打交道，从数据库中得到我们想要的数据。对于SQL语言，有两个组成部分：DML（data manipulation language）：它们是S

4、ELECT、UPDATE、INSERT、DELETE，就象它的名字一样，这4条命令是用来对数据库里的数据进行操作的语言。（1）登录管理：实现系统加密功能 (2) 学籍管理：主要功能用来对学生的学籍进行管理和记录。(3) 收费管理：对学生收费进行管理。包括总费用，已缴费用，还需退款，缴费统计等修改。（4）修改管理：管路员对学生的基本信息，学分信息，缴费信息的修改，删除，添加等功能。（5）学分管理：对学生的学分进行管理，包括学分标准，学分统计，已修学分等学分信息修改。（6）查询管理：学生对自己基本信息，学分信息，缴费信息的查询。四：数据分析与建模 缴费信息表 学分信息表 登录表 学生基本信息表 图

5、 4.1数据库关系表图 4.1是以登录表信息为约束条件，又以各表的学号为主键形成的约束关系。 学生基本信息管理系统 基本信息管理 缴费信息管理 学分信息管理登录信息管理学分信息删除学分信息统计缴费信息添加学分信息统计缴费信息修改学分信息修改学分信息添加学生信息删除学生信息修改学生信息添加学分信息统计学生信息添加 图 4.2系统功能模块 图 4.2是学生基本信息管理系统的几大功能模块以及其子模块五、数据库建立： 图5.1图5.1 基本信息表包含了学生的学号，姓名等的基本结构。 图5.2图5.2 学分信息表包含了学生的总学分，已修学分等的基本结构。 图5.3图5.3 登录信息表包含了学生的学号，密

6、码等的基本结构。 图5.4图5.4缴费信息表包含了学生的总缴费，已缴费用等的基本结构。 图5.5图5.5基本信息表包含了学生的学号，姓名基本内容。 图5.6图5.6学分信息表包含了学生的总学分，已修学分基本内容。 图5.7图5.7登录信息表包含了学生的总学分，已修学分基本内容。 图5.8 图5.8登录信息表包含了学生的总缴费，已缴费用基本内容。 图5.9图5.9为各表间的关系图。6、 数据库应用开发与运行：（程序代码、界面图、详细功能说明）6.1 登录程序代码、界面图、详细功能说明a. 登录界面程序代码:（1）登录键Private Sub Command1_Click() Static cou

7、nt As Integer 静态变量，其值会保留 Dim sqlstr As String 创建一个字符串 Adodc1.RecordSource = select *from 登录 where 学号= & Text1 & 显示表登录上的所有字段 Adodc1.Refresh 更新If Adodc1.Recordset.BOF Then 若没有找到用户 MsgBox 用户名错误，请重新输入！, vbExclamation, 警告 Text1.Text = Text1.SetFocus TEXT1获得焦点 Text2.Text = Else Adodc1.RecordSource = selec

8、t *from 登录 where 密码= & Text2 & sqlstr = Adodc1.Recordset.Fields(密码) sqlstr = Trim(sqlstr) If Text2.Text = sqlstr Then Load Form1: Form1.Show Unload me Else MsgBox 密码错误，请重新输入！, vbExclamation, 警告 Text2.Text = Text2.SetFocus End If count = 0 End If count = count + 1 If count = 3 Then Unload Me End IfEn

9、d Sub（2）取消键Private Sub Command2_Click()Hide MeEnd Sub b.登录界面图: 图6.1图6.1为登录界面图包含登录内容。c.登录界面详细功能说明登录界面 退出键登录键退出输入学号找到用户未找到用户重新输入直至正确输入密码重输密码 不正确 输入超过三次 正确 退出显示选择界面 正确 图6.2图6.2为登录详细的功能实现流程，与实现的功能。6.2 选择界面程序代码、界面图、详细功能说明a. 选择界面程序代码:（1）退出键Private Sub Command1_Click()dengluxitong.Show Unload Me End Sub（2）

10、学生基本信息键Private Sub 学生基本信息_Click(Index As Integer)jibenxinxi.Show Unload MeEnd Sub（3）学分信息键Private Sub 学分信息_Click(Index As Integer)xuefenxinxi.Show Unload MeEnd Sub（4）学生缴费信息键Private Sub 学生缴费信息_Click(Index As Integer)jiaofeixinxi.ShowUnload MeEnd Subb.选择界面图: 图6.3 图6.3为选择界面图，包含多种功能选项。C.选择界面详细功能说明选择界面 学生

11、缴费信息键学生基本信息键退出键学分信息键登录界面学分信息界面学生缴费信息界面学生基本信息界面 图6.4图6.4为选择界面的实现选择的详细流程及其包含的详细功能。6.3 缴费信息界面程序代码、界面图、详细功能说明a. 缴费信息界面程序代码: （1）添加键Private Sub Cmdadd1_Click()Dim sqlstr As String Adodc1.RecordSource = select *from 缴费信息 where 学号= & Text1 & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then 判断学号是否重复 MsgBox

12、 (学号重复错误!), vbExclamation, 检查学号 Text1 = Text1.SetFocus Adodc1.Refresh Exit Sub Else Adodc1.RecordSource = select *from 登录 where 学号= & Text1 & Adodc1.Refresh If Adodc1.Recordset.BOF Then 诺没有找到用户 MsgBox 学号错误，请重新输入！, vbExclamation, 检查学号 Text1.Text = Text1.SetFocus TEXT1获得焦点、 Adodc1.RecordSource = selec

13、t *from 缴费信息 Adodc1.Refresh Exit Sub End IfEnd If Adodc1.RecordSource = select *from 登录 where 姓名= & Text2 & sqlstr = Adodc1.Recordset.Fields(姓名) sqlstr = Trim(sqlstr) If Text2.Text sqlstr Then MsgBox 姓名错误，请重新输入！, vbExclamation, 警告 Text2.Text = Text2.SetFocus TEXT2获得焦点 Adodc1.RecordSource = select *f

14、rom 缴费信息 Adodc1.Refresh Exit Sub Else Adodc1.RecordSource = select *from 缴费信息 Adodc1.Refresh Adodc1.Recordset.Fields(学号) = Text1.Text Adodc1.Recordset.Fields(姓名) = Text2.Text Adodc1.Recordset.Fields(专业) = Text3.Text Adodc1.Recordset.Fields(总缴费) = Text4.Text Adodc1.Recordset.Fields(已缴费用) = Text5.Text

15、 Adodc1.Recordset.Fields(还需缴费) = Text6.Text Adodc1.RecordSource = select *from 缴费信息 Adodc1.Refresh MsgBox (添加成功!) End IfEnd Sub（2） 还需缴费键Private Sub Command3_Click()If Val(Text4.Text) Val(Text5.Text) Then a = Val(Text4.Text) - Val(Text5.Text)Text6.Text = aMsgBox (该学生还需缴费 & a & 元!)End IfEnd Sub（3）删除键P

16、rivate Sub Cmddelete_Click()Dim myval As String myval = MsgBox(是否要删除该记录?, vbYesNo) If myval = vbYes Then MsgBox (删除成功!)End IfEnd Sub（4）修改键Private Sub Cmdmodify_Click()jiaofeixinxixiugai.ShowEnd Sub（5）刷新键Private Sub Command1_Click() Adodc1.RecordSource = select * from 缴费信息 Adodc1.RefreshEnd Sub（5）返回选

17、择界面键Private Sub Cmdexit_Click()Form1.Show Unload MeEnd Sub（6） 重新登录键Private Sub Command2_Click()dengluxitong.ShowUnload MeEnd Sub（7）统计键Private Sub Command5_Click()Sum = 0For i = 0 To Adodc1.Recordset.RecordCount - 1DataGrid1.Row = i If Trim(Adodc1.Recordset.Fields(还需缴费) 0 Then sum1 = sum1 + 1 Else su

18、m1 = sum1 + 0 End If If Trim(Adodc1.Recordset.Fields(已缴费用) = 100000 Then sum2 = sum2 + 1 Else sum2 = sum2 + 0 End If If Trim(Adodc1.Recordset.Fields(已缴费用) 100000 Then sum3 = sum3 + 1 Else sum3 = sum3 + 0 End If Next i Text8.Text = sum1 Text9.Text = sum2 Text10.Text = sum3End Sub（8）查询键Private Sub Com

19、mand4_Click()Adodc1.RecordSource = select *from 登录 where 学号= & Text7 & Adodc1.Refresh If Adodc1.Recordset.BOF Then 诺没有找到用户 MsgBox 学号错误，请重新输入！, vbExclamation, 警告 Text7.Text = Text7.SetFocus TEXT1获得焦点 Adodc1.RecordSource = select * from 缴费信息 Adodc1.Refresh Exit Sub Else Adodc1.RecordSource = select *

20、from 缴费信息 where 学号= & Text7 & Adodc1.Refresh End IfEnd Subb.缴费信息界面图: 图6.5 图6.5为缴费信息的界面图，以及其包含的选项。c.缴费信息界面详细功能说明(1)总布局图缴费信息界面删除键统计键重新登录键修改键添加键返回选择界面键查询键计算键 图6.6图6.6为缴费信息界面的各个将实现的详细功能，其中有些功能实现简单，像删除键，返回键等等。但有些功能实现较为复杂。将复杂的过程简单，将以图6.7，图6.8，图6.9简单明了的介绍其流程。计算键（2） 计算键流程图总缴费=已缴费总缴费已缴费总缴费已缴费 显示需缴费情况或需退款情款 图

21、6.7图6.7为计算键流程图，有这样的流程图，思路清晰，会使编程过程简单化。（3）添加键流程图添加键学号无重复学号重复没有找到用户找到用户 重新输入学号，直至找到用户输入姓名 姓名正确姓名错误重新输入姓名直至正确添加其他信息 按添加键 添加成功 图6.8图6.8为添加键流程图，添加的过程十分的复杂。但画出流程图之后会是编程的过程少走很多弯路。统计键（4）统计键流程图判断还需缴费与总缴费的大小显示结果 图6.9图6.9为统计键流程图， 统计键的流程看似简单，但其中包含了许多知识，但我们主要围绕判断大小而展开分析。6.4缴费信息修改界面程序代码、界面图、详细功能说明a.缴费信息修改界面程序代码(1

22、)修改键Private Sub Command2_Click()Dim a As StringDim b As StringDim c As StringDim d As StringDim e As String a = Text1.Text b = Text2.Text c = Text3.Text d = Text4.Text e = Text6.Text Adodc1.Recordset.Fields(专业) = a Adodc1.Recordset.Fields(总缴费) = b Adodc1.Recordset.Fields(已缴费用) = c Adodc1.Recordset.F

23、ields(还需缴费) = d Adodc1.Recordset.Fields(还需退款) = e Adodc1.Recordset.Update Adodc1.RefreshEnd Sub（2） 显示键Private Sub Command1_Click()Adodc1.RecordSource = select *from 缴费信息 where 学号= & Text5 & Adodc1.Refresh If Adodc1.Recordset.BOF Then 诺没有找到用户 MsgBox 学号错误，请重新输入！, vbExclamation, 警告 Text5.Text = Text5.S

24、etFocus TEXT1获得焦点 Adodc1.RecordSource = select * from 缴费信息 Adodc1.Refresh Exit Sub Else Text1.Text = Adodc1.Recordset.Fields(专业) Text2.Text = Adodc1.Recordset.Fields(总缴费) Text3.Text = Adodc1.Recordset.Fields(已缴费用) Text4.Text = Adodc1.Recordset.Fields(还需缴费) End IfEnd Sub（3） 其他键与缴费信息界面里也要实现的控件的大致相同,详情

25、见6.3a。b.缴费信息修改界面图: 图6.10 图6.10为缴费信息修改图，其中包含了它的信息，及要实现功能的控件。 c.缴费信息修改界面详细功能说明（1） 总流程图缴费信息修改界面修改键显示该学生原始信息键计算键退出键 图6.11图6.11为缴费信息修改的详细流程图，及其将要实现的详细功能。6.5学分信息界面程序代码、界面图、详细功能说明a. 学分信息界面程序代码 代码详情可见6.3a里的缴费信息代码，各个键将要实现的功能大致相同。b.学分信息界面图 图6.12图6.12为学分信息功能的界面图，与缴费信息不管是布局还是功能的实现大致相同。c.学分信息界面详细功能说明详情见6.3c描述，学分信息江实现功能于缴费信息大致相同。6.6学分信息修改界面程序代码、界面图、详细功能说明a.学分信息修改界面程序代码 代码可见6.4a里的缴费信息修改代码，各个键功能的实现与之大致相同。b.学分信息修改界面图 图6.13图6.13为学分信息修改的界面图，将要实现的功能以及布局与缴费信息大致一直。c.学分信息界面详细功能说明详情见6.4c描述，学分信息修改功能与缴费信息修改