SQL学生成绩管理系统1

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

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

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

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

5、库关系表图4.1是以登录表信息为约束条件，又以各表的学号为主键形成的约束关系。学生基本信息管理系统登录信息管理学 生 信 息 添 加学 生 信 息 添 加基本信息管理学 生 信 息 修 改学 生 信 息 删 除学 分 信 息 添 加学分信息管理学 分 信 息 修 改学 分 信 息 删 除缴费信息管理缴缴学1学费费分分信信信信息息息息添訂修1统1统加改计计学 分 信 息 统 计图4.2系统功能模块图4.2是学生基本信息管理系统的几大功能模块以及其子模块五、数据库建立:图5.1图5.1诵爲L表徑本電息”，位置皇“学生営“匚三亘基本信息表包含了学生的学号，姓名等的基本结构。猶 设计義“学分信剪徒置星

6、"学生皆” 亘 亘 亘分片分学学 号名业学陰需 学姓专总已还长soO-OO-OJ1*alJ* M图5.2图5.2学分信息表包含了学生的总学分，已修学分等的基本结构。筋设计表，登录“.橙題 悻生昔理垂“ 亘亘卫列名数摇类型长厦*?nvearch-ar50char10nv ar ch ar50图5.3图5.3登录信息表包含了学生的学号，密码等的基本结构。榆设计表圳歸歙,鎚是"学生管理琢"中、-locair上图5.4缴费信息表包含了学生的总缴费，已缴费用等的基本结构。f畅表“基本信息"中的舷，包置星辔生苣理至鼎 中* "(local)-上专业年龄学号

7、=. 回 却男女女女女文女女女女男262T27272727272Txbl06etE01 Kbl0580202 xblO6SC2O3 jcblO&SOSOA xblO6SC2O5 xbl06S0206 xbl06S020T xbl06B020e ：bl06S0209 KblO&SD210 岭10680211堵虑諾玫唯贞薇解酢融辭颖 fe王白李汤陆赵黄江李周W通信工程 通信工程 通信工程 通信工程 通信工程 通信工程 通信工程 谨信工程 通信工程 通信工程 通信工程一| 亠亠一亠.一 一 一 一 F I- 一 I二二- 二亠一亠亠一亠 一 一 F 一图5.5图5.5基本信息表包含了

8、学生的学号，姓名基本内容冷表"学分信息"中倔臨位置是"学生苣理彩T中* "(local)"上学吕姓屯专业xbl06SD201 xbl0630202 sbl068D203 xbl0680204 xbl06e02U5Kbl06S0206 xbl06B020TKbl06S0205xbl068020S sb10680211通信工程12310通信工程123120通信工瑕123120通信工程123120淒信工程123120通信工程123120潼信工程123120通信工程123120通信工程1231211231230图5.6图5.6学分信息表包含了学生的总学

9、分，已修学分基本内容r冷表口號諛据，垃晝B “学=E1S3学号xblD6802Ol0201Kbl063020202QExbl06302030203xbl06S02040204xllOBBOZOS0205xbl06B02050206xbioGaosor0207xbl06802030206品 06602090209nbl0630210021Qxbioeao2i10211xbl06302120212贱台 明民敏伟 小百玫唯贞薇晓智周志赖燥 王白李汤陆赵S江李周亶曹已缴妾用xbirea(J20&3：b 1068020?Lb10680208Kb10680209xbl0680210xb106802

10、01 xblO6atE0£vb1068Q203xB10600204xb10600205小百玫唯贞薇晓智周志 王白李汤陆赵黄工李周100000100000通信工程 通信工程 適信工程 通官工程 通信工程 通信工程 僅洁工程 通信工程 通信工程100000100000100000100000100W0100:00100000LOOQOO100000800008COOO800001600001EOOOD180000180000leoooo0<W±>921 ID<mnx>20000<NULL>20000200000<wx>0<N

11、ULL>0<W1±>0<ML>0<WULL>图5.7图5.7登录信息表包含了学生的总学分，已修学分基本内容竝表"匏M譴"中卷逛，检置星"学主苣理累府中、'(localr上学号图5.8图5.8登录信息表包含了学生的总缴费，已缴费用基本内容乂Jk1CL?.Tm岭我图5.9图5.9为各表间的关系图。六、数据库应用开发与运行：（程序代码、界面图、详细功能说明）6.1登录程序代码、界面图、详细功能说明a. 登录界面程序代码：(1) 登录键Private Sub Comma nd1_Click()Static cou

12、 nt As In teger '静态变量，其值会保留Dim sqlstr As Stri ng '创建一个字符串Adodc1.RecordSource = "select *from登录 where 学号=”'& Text1 & "”'示表登录上的所有字段Adodc1. Refresh ' 更新If Adodc1.Recordset.BOF The n '若没有找到用户MsgBox "用户名错误，请重新输入！Text1.Text =""Text1.SetFocus 'TE

13、XT1获得焦点Text2.Text =""ElseAdodc1.RecordSource = "select *from sqlstr = Adodc1.Recordset.Fields(" sqlstr = Trim(sqlstr)If Text2.Text = sqlstr The nLoad Form1: Form1.ShowUn load meElseMsgBox "密码错误，请重新输入!Text2.Text =""Text2.SetFocusEnd Ifcount = 0End Ifcount = count +

14、1If count = 3 ThenUn load MeEnd IfEnd Sub(2) 取消键Private Sub Comma nd2_Click()Hide MeEnd Sub", vbExclamati on,"敬+ H警告登录where密码='"& Text2 & "”'密码"）", vbExclamati on,"敬+ H警告b. 登录界面图:图6.1图6.1为登录界面图包含登录内容。C.登录界面详细功能说明登录界面退出键退出输入密码重输密码输入超过三次显示选择界面正确退出图6.2

15、图6.2为登录详细的功能实现流程，与实现的功能。6.2选择界面程序代码、界面图、详细功能说明a. 选择界面程序代码：(1) 退出键Private Sub Comma nd1_Click() den gluxit on g.ShowUn load MeEnd Sub(2) 学生基本信息键Private Sub 学生基本信息 _Click(lndex As Integer) jibe nxin xi.ShowUn load MeEnd Sub(3) 学分信息键Private Sub 学分信息 _Click(I ndex As In teger) xuefe nxin xi.ShowUn load

16、MeEnd Sub(4) 学生缴费信息键Private Sub 学生缴费信息 _Click(lndex As Integer) jiaofeix in xi.ShowUn load MeEnd Subb. 选择界面图：图6.3图6.3为选择界面图，包含多种功能选项。C.选择界面详细功能说明选择界面学生基本信息键学生缴费信息键学分信息键退出键学生基本信息界面学生缴费信息界面学分信息界面登录界面图6.4图6.4为选择界面的实现选择的详细流程及其包含的详细功能。6.3缴费信息界面程序代码、界面图、详细功能说明a.缴费信息界面程序代码(1) 添加键Private Sub Cmdadd1_Click()

17、Dim sqlstr As Stri ngAdodc1.RecordSource = "select *from缴费信息 where 学号='"& Text1 & "”'Adodc1.RefreshIf Adodc1.Recordset.EOF = False The n '判断学号是否重复MsgBox (" 学号重复错误!"), vbExclamation,"检查学号"Text1 =""Text1.SetFocusAdodc1.RefreshExit SubEls

18、eAdodc1 .RecordSource = "select *from登录 where 学号='"& Text1 & "”'Adodc1. RefreshIf Adodc1. Recordset.BOF The n '诺没有找到用户MsgBox " 学号错误，请重新输入！ ", vbExclamation,"检查学号"Text1.Text =""Text1.SetFocus 'TEXT1获得焦点、缴费信息"登录 where 姓名='&q

19、uot;& Text2 & "”' 姓名")Adodc1.RecordSource = "select *from Adodc1. RefreshExit SubEnd IfEnd IfAdodc1.RecordSource = "select *from sqlstr = Adodc1.Recordset.Fields(" sqlstr = Trim(sqlstr)If Text2.Text <> sqlstr Then警告MsgBox "姓名错误，请重新输入！”, vbExclamatio n,

20、"Text2.Text =""Text2.SetFocus 'TEXT2获得焦点Adodc1.RecordSource = "select *from缴费信息"Adodcl. RefreshExit SubElse缴费信息"Adodcl.RecordSource = "select *fromAdodcl.RefreshAdodcl.RecordSource = "select *fromAdodc1.Recordset.Fields("Adodc1.Recordset.Fields("

21、Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("AdodcI.Recordset.Update 学号")=Textl.Text 姓名")=Text2.Text 专业")=Text3.Text 总缴费")=Text4.Text 已缴费用")=Text5.Text 还需缴费")=Text6.Text缴费信息"Adodcl. RefreshM

22、sgBox ("添加成功!")End IfEnd Sub(2) 还需缴费键Private Sub Comma nd3_Click()If Val(Text4.Text) < Val(Text5.Text) ThenText6.Text = 0a = Abs(Val(Text4.Text) - Val(Text5.Text) MsgBox ("该学生还有退款"& a & "元!") End IfIf Val(Text4.Text) = Val(Text5.Text) Then a = Val(Text4.Text)

23、 - Val(Text5.Text) Text6.Text = aEnd IfIf Val(Text4.Text) > Val(Text5.Text) The na = Val(Text4.Text) - Val(Text5.Text)Text6.Text = aMsgBox ("该学生还需缴费"& a & "元!")End IfEnd Sub(3) 删除键Private Sub Cmddelete_Click()Dim myval As Stri ngmyval = MsgBox("是否要删除该记录？", vb

24、YesNo)If myval = vbYes ThenMsgBox (" 删除成功!")End IfEnd Sub(4) 修改键Private Sub Cmdmodify_Click()jiaofeix in xixiugai.ShowEnd Sub(5) 刷新键Private Sub Comma nd1_Click()Adodc1.RecordSource = "select * from 缴费信息" Adodcl.RefreshEnd Sub(5) 返回选择界面键Private Sub Cmdexit_Click()Forml.ShowUn load

25、 MeEnd Sub(6) 重新登录键Private Sub Comma nd2_Click()den gluxit on g.ShowUn load MeEnd Sub(7) 统计键Private Sub Comma nd5_Click()Sum = 0For i = 0 To Adodcl .Recordset.RecordCount - 1DataGridl.Row = iIf Trim(Adodc1.Recordset.Fields("suml = suml + 1Elsesuml = suml + 0End IfIf Trim(Adodc1.Recordset.Fields

26、("sum2 = sum2 + 1Elsesum2 = sum2 + 0End IfIf Trim(Adodc1.Recordset.Fields("sum3 = sum3 + 1Elsesum3 = sum3 + 0End IfNext i还需缴费")<> 0 Then已缴费用")>=100000 Then已缴费用")> 100000 Then登录 where 学号='"& Text7 & "”，诺没有找到用户", vbExclamatio n," 警告&

27、quot;缴费信息"缴费信息where学号='"& Text7 &Text8.Text = sumlText9.Text = sum2TextIO.Text = sum3End Sub(8) 查询键Private Sub Comma nd4_Click()AdodcI.RecordSource = "select *fromAdodc1. RefreshIf Adodc1.Recordset.BOF The n 'MsgBox "学号错误，请重新输入！Text7.Text =""Text7.SetFoc

28、us 'TEXT1 获得焦点Adodc1.RecordSource = "select * fromAdodcl. RefreshExit SubElseAdodcI.RecordSource = "select * fromIHHAdodcl.RefreshEnd IfEnd Subb.缴费信息界面图：图6.5图6.5为缴费信息的界面图，以及其包含的选项C.缴费信息界面详细功能说明(1)总布局图缴费信息界面1 1 1删除键修改键重新登录键J统计键添加键计算键返回选择界面键查询键图6.6图6.6为缴费信息界面的各个将实现的详细功能，其中有些功能实现简单，像删除键，返

29、回键等等。但有些功能实现较为复杂。将复杂的过程简单，将以图6.7，图6.8，图6.9简单明了的介绍其流程。(2)计算键流程图计算键总缴费 <已缴费总缴费=已缴费总缴费 > 已缴费显示需缴费情况或需退款情款图6.7图6.7为计算键流程图，有这样的流程图，思路清晰，会使编程过程简单化(3) 添加键流程图添加键学号重复学号无重复没有找到用户找到用户重新输入学号，直至找到用户输入姓名姓名正确姓名错误重新输入姓名直至正确图6.8为添加键流程图，添加的过程十分的复杂。但画出流程图之后会是编程的过程少走 很多弯路。(4) 统计键流程图统计键I判断还需缴费与总缴费的大小显示结果图6.9图6.9为统

30、计键流程图，统计键的流程看似简单，但其中包含了许多知识，但我们主要围绕判断大小而展开分析。6.4缴费信息修改界面程序代码、界面图、详细功能说明a.缴费信息修改界面程序代码(1)修改键Private Sub Comma nd2_Click()Dim a As Stri ngDim b As Stri ngDim c As Stri ngDim d As Stri ngDim e As Stri nga = Text1.Textb = Text2.Textc = Text3.Textd = Text4.Texte = Text6.Text(”(”Adodc1.Recordset.Fields(&q

31、uot;Adodc1.Recordset.Fields("Adodc1.Recordset.Fields("专业")=a总缴费")=b已缴费用")=c 还需缴费")=d 还需退款")=eAdodc1.RefreshEnd Sub(2)显示键Private Sub Comma nd1_Click()Adodc1.RecordSource = "select *from缴费信息where学号='"& Text5 & "”'Adodc1. RefreshIf Adodc

32、1.Recordset.BOF Then '诺没有找到用户MsgBox "学号错误，请重新输入!II,vbExclamati on,"警告IIText5.Text =""Text5.SetFocus 'TEXT1获得焦点Adodc1.RecordSource = "select * from缴费信息IIAdodcl. RefreshExit SubElse专业")Textl.Text = Adodc1.Recordset.Fields("Text2.Text = (”总缴费")Text3.Text

33、= Adodc1.Recordset.Fields("已缴费用")Text4.Text = Adodc1.Recordset.Fields("还需缴费")End IfEnd Sub(3)其他键与缴费信息界面里也要实现的控件的大致相同,详情见6.3ab.缴费信息修改界面图图 6.10图6.10为缴费信息修改图，其中包含了它的信息，及要实现功能的控件c. 缴费信息修改界面详细功能说明(1)总流程图r1缴费信息修改界面I显示该学生原始信息键0_J修改键LJF1退出键L计算键图 6.11图6.11为缴费信息修改的详细流程图，及其将要实现的详细功能6.5学分信息界面程序代码、界面图、详细功能说明a. 学分信息界面程序代码代码详情可见6.3a里的缴费信息代码，各个键将要实现的功能大致相同b. 学分信息界面图图 6.12图