vb学生成绩管理系统实验报告

合集下载

实训 VBSQL Server学生成绩管理系统

实训 VBSQL Server学生成绩管理系统

(综合应用)实训VB/SQL Server学生成绩管理系统用Vb实现的简单的学生成绩管理系统,使用可视ADODC控件和ADODB对象来访问后台数据库服务器的,系统功能包含学生信息的查询、学生信息的录入修改删除、学生成绩的录入修改。

下面分别说明各模块的具体实现。

学生成绩管理系统主界面如图1.1所示。

图1.1 学生成绩管理系统主界面系统主界面主要功能:系统功能的导航作用,单击各按钮后可进入相应的操作窗口。

项目1 VB连接SQL Server数据库1、用可视ADODC控件连接数据库(1)在VB选“工程”菜单—“部件”菜单项,系统打开“部件”对话框,如图1.2所示:图1.2 “部件”对话框选择2个ADO控件,它们是“Microsoft ADO Data Control 6.0”和“Microsoft DataGrid Control 6.0”。

最后单击“确定”按钮,VB6.0工具栏增加了上述2个控件的图标。

前者用于连接数据库,后者用于以表格形式显示数据库表的内容。

⑵在VB表单中加入“Microsoft ADO Data Control 6.0”控件,命名合适的名称,例如stuado。

⑶设置控件ADODC的ConnectionString属性。

选择该属性,如图1.3所示。

图1.3 设置ConnectionString属性图单击“…”按钮,系统打开对话框,如图1.4所示。

图1.4 生成连接字符串单击“Build…”按钮,系统显示“数据链接属性”对话框,如图1.5所示。

选择“连接”选项卡,进行设置,最后单击“确定”按钮。

图1.5“数据链接属性”对话框(4)设置ADODC的RecordSource属性,打开“属性页”,如图1.6所示。

图1.6 属性页2、系统主界面系统主界面表单主要代码:‘学生信息查询Private Sub Command1_Click() stusearch.ShowEnd Sub‘学生信息修改Private Sub Command2_Click() addstu.ShowEnd Sub‘学生成绩录入Private Sub Command3_Click() addstuscore.ShowEnd Sub项目2 学生信息查询程序界面:学生信息查询如图1.7所示:图1.7 学生信息查询界面主要功能:可以满足简单查询的需要,什么条件也不输入,则分页显示所有记录。

学生信息管理系统-vb实验报告

学生信息管理系统-vb实验报告

计算机软件技术基础综合作业学院班级学号姓名成绩一、题目:学生信息管理系统二、系统功能的描述登录本系统后,首先打开文件score.txt,对成绩进行分析和统计,可以分析平均分,最优成绩与最差成绩;根据姓名查询成绩;对平均分进行升序和降序排序三、软件设计1.系统结构学生信息管理系统文件分析查找按平均分排序说明打开文件清除数据退出升序排列降序排列平均成绩各科平均成绩/总平均成绩优秀生信息成绩最好与最差2.功能列表1).分析各科平均成绩和总平均成绩计算各科的平均分和总平均成绩,用textbox显示。

2).分析优秀学生信息查找优秀学生的基本信息,用textbox显示。

3).分析成绩最好的学生与成绩最差的学生的信息统计平均分最高的学生,平均分最低的学生,用textbox显示。

4).查询通过姓名查询成绩的信息。

5).排序以平均分的升序降序重新排列,显示在textbox中。

6).说明显示帮助信息。

7).登录打开系统首先看见登录模块,用户输入账号密码,满足预设账号密码,打开下一个窗体,在“登录”按钮的点击事件里写验证代码。

8).打开文件Commondialog对象,选择要打开的文件,将文件中的内容写到数组里,再循环写入textbox中显示出来。

9).清除数据清除textbox内容,清除数据。

10).退出关闭当前窗体。

退出程序。

11).分析平均分计算每个人的平均分,显示在textbox中。

四、程序源代码和注释1.登录:Dim times As Integer '定义登录次数Rem 关闭,退出程序Private Sub close_Click()Unload MeEnd SubPrivate Sub Command1_Click()Text1.Text = "151590"Text2.Text = "151590"End SubRem 登录按钮事件Private Sub login_Click()Rem 定义变量Dim id, psw As StringRem 获取用户输入的 id 和 pswid = Me.Text1.Textpsw = Me.Text2.TextIf id = "151590" And psw = "151590" Then '登陆成功,隐藏登录窗体,打开主窗体Form1.HideForm2.ShowElseIf times < 2 ThenMe.Text1.Text = ""Me.Text2.Text = ""times = times + 1MsgBox "账号或密码错误,还剩" & 3 - times & "次机会!请你重新输入"ElseMsgBox "禁止登录"Me.Text1.Enabled = False '使输入框和按钮不能使用Me.Text2.Enabled = FalseMe.login.Enabled = FalseEnd IfEnd IfEnd Sub2.帮助模块Private Sub helps_Click()MsgBox "排序前必须统计平均分", vbOKOnly, "帮助"End Sub3.文件操作Dim sname(40), math(40), english(40), vb(40), scorearg(40) '定义数组Rem 清除数据,菜单不使能Private Sub dataclear_Click()Text1.Text = ""selectaverage.Enabled = Falseselectaveragesum.Enabled = Falseselectgood.Enabled = Falseselectgoodbad.Enabled = Falselook.Enabled = Falseorderasc.Enabled = Falseorderdesc.Enabled = FalseEnd SubRem 退出当前窗口返回上一窗口Private Sub dataexit_Click()Form2.HideForm1.ShowEnd SubRem 读入数据Private Sub dataread_Click()CommonDialog1.InitDir = App.Path 'commondialog控件,打开对话框,选择文件CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1 '打开文件Text1.Text = Text1.Text & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5) & "vb程序设计" & vbCrLf '在文本框中显示For i = 1 To 40Input #1, sname(i), math(i), english(i), vb(i)Text1.Text = Text1.Text & sname(i) & Space(5) & math(i) & Space(7) & english(i) & Space(9) & vb(i) & vbCrLf '在文本框中显示Next iClose #1Rem 读入数据之后,菜单功能可用selectaverage.Enabled = Trueselectaveragesum.Enabled = Trueselectgood.Enabled = Trueselectgoodbad.Enabled = Truelook.Enabled = TrueEnd Sub4.分析Rem 计算平均分并显示Private Sub selectaverage_Click()orderasc.Enabled = Trueorderdesc.Enabled = TrueDim personaverageText1.Text = ""Text1.Text = Text1.Text & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5) & "vb程序设计" & Space(5) & "平均分" & vbCrLfFor i = 1 To 40personaverage = (math(i) + english(i) + vb(i)) / 3scorearg(i) = personaverageText1.Text = Text1.Text & sname(i) & Space(5) & math(i) & Space(7) & english(i)& Space(9) & vb(i) & Space(11) & VBA.Format(personaverage, "0.00") & vbCrLf Next iEnd SubRem 计算各科平均分和总平均分,并显示Private Sub selectaveragesum_Click()Dim mathaverage, englishaverage, vbaverage, sumaverageFor i = 1 To 40mathaverage = mathaverage + math(i)englishaverage = englishaverage + english(i)vbaverage = vbaverage + vb(i)Next imathaverage = mathaverage / 40englishaverage = englishaverage / 40vbaverage = vbaverage / 40sumaverage = (mathaverage + englishaverage + vbaverage) / 3Text2.Text = "数学平均成绩:" & mathaverage & vbCrLf & "英语平均成绩:" & englishaverage & vbCrLf & "vb程序设计平均成绩:" & vbaverage & vbCrLf & "总平均成绩:" & VBA.Format(sumaverage, "0.00")End SubPrivate Sub selectgood_Click()Dim mathaverage, englishaverage, vbaverage, sumaverage, personaverageDim good As StringDim count As IntegerFor i = 1 To 40mathaverage = mathaverage + math(i)englishaverage = englishaverage + english(i)vbaverage = vbaverage + vb(i)Next imathaverage = mathaverage / 40englishaverage = englishaverage / 40vbaverage = vbaverage / 40sumaverage = (mathaverage + englishaverage + vbaverage) / 3good = good & Space(1) & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5) & "vb程序设计" & Space(5) & "平均分" & vbCrLfFor i = 1 To 40personaverage = (math(i) + english(i) + vb(i)) / 3If personaverage >= sumaverage And math(i) >= mathaverage And english(i) >= englishaverage And vb(i) >= vbaverage Thencount = count + 1good = good & sname(i) & Space(5) & math(i) & Space(8) & english(i) & Space(11) & vb(i) & Space(8) & VBA.Format(personaverage, "0.00") & vbCrLfEnd IfNext igood = "优秀生人数为:" & count & vbCrLf & "信息如下:" & vbCrLf & good Text2.Text = goodEnd SubPrivate Sub selectgoodbad_Click()Dim personaverage, max, minDim good, bad As Stringmax = (math(1) + english(1) + vb(1)) / 3min = (math(1) + english(1) + vb(1)) / 3good = sname(1) & Space(5) & math(1) & Space(8) & english(1) & Space(11) & vb(1)& Space(8) & VBA.Format(max, "0.00") & vbCrLfbad = sname(1) & Space(5) & math(1) & Space(8) & english(1) & Space(11) & vb(1) & Space(8) & VBA.Format(min, "0.00") & vbCrLfFor i = 2 To 40personaverage = (math(i) + english(i) + vb(i)) / 3If personaverage > max Thengood = sname(i) & Space(5) & math(i) & Space(8) & english(i) & Space(11) & vb(i) & Space(8) & VBA.Format(personaverage, "0.00") & vbCrLfEnd IfIf personaverage < min Thenbad = sname(i) & Space(5) & math(i) & Space(8) & english(i) & Space(11) & vb(i) & Space(8) & VBA.Format(personaverage, "0.00") & vbCrLfEnd IfNext igood = Space(1) & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5) & "vb程序设计" & Space(5) & "平均分" & vbCrLf & goodbad = Space(1) & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5) & "vb程序设计" & Space(5) & "平均分" & vbCrLf & badText2.Text = "成绩最好的学生的信息:" & vbCrLf & good & vbCrLf & " 成绩最差的学生的信息: " & vbCrLf & badEnd Sub5.排序模块Private Sub orderasc_Click()For i = 1 To 39For j = i + 1 To 40If scorearg(i) > scorearg(j) Thent = scorearg(i)scorearg(i) = scorearg(j)scorearg(j) = ta = sname(i)sname(i) = sname(j)sname(j) = ab = math(i)math(i) = math(j)math(j) = bc = english(i)english(i) = english(j)english(j) = cd = vb(i)vb(i) = vb(j)vb(j) = dEnd IfNext jNext iText2.Text = ""Text2.Text = Text2.Text & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5) & "vb程序设计" & Space(5) & "平均分" & vbCrLfFor i = 1 To 40Text2.Text = Text2.Text & sname(i) & Space(5) & math(i) & Space(7) & english(i) & Space(9) & vb(i) & Space(11) & VBA.Format(scorearg(i), "0.00") & vbCrLf Next iEnd SubPrivate Sub orderdesc_Click()For i = 1 To 39For j = i + 1 To 40If scorearg(i) < scorearg(j) Thent = scorearg(i)scorearg(i) = scorearg(j)scorearg(j) = ta = sname(i)sname(i) = sname(j)sname(j) = ab = math(i)math(i) = math(j)math(j) = bc = english(i)english(i) = english(j)english(j) = cd = vb(i)vb(i) = vb(j)vb(j) = dEnd IfNext jNext iText2.Text = ""Text2.Text = Text2.Text & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5) & "vb程序设计" & Space(5) & "平均分" & vbCrLfFor i = 1 To 40Text2.Text = Text2.Text & sname(i) & Space(5) & math(i) & Space(7) & english(i) & Space(9) & vb(i) & Space(11) & VBA.Format(scorearg(i), "0.00") & vbCrLf Next iEnd Sub6.查询模块Private Sub look_Click()Dim personaverageDim name As StringDim person As Stringname = InputBox("请输入姓名查询", 查询)If name <> "" ThenFor i = 1 To 40If sname(i) = name Thenpersonaverage = (math(i) + english(i) + vb(i)) / 3person = person & sname(i) & Space(5) & math(i) & Space(8) & english(i) & Space(11)& vb(i) & Space(8) & VBA.Format(personaverage, "0.00") & vbCrLfEnd IfNext iperson = Space(1) & "姓名" & Space(5) & "数学" & Space(5) & "英语" & Space(5)& "vb程序设计" & Space(5) & "平均分" & vbCrLf & personText2.Text = "查询结果:" & vbCrLf & personEnd IfEnd Sub五、收获体会1、通过本次设计,我学会了commondialog控件和对象的使用,在查资料的过程中,也学到的其他控件的用法,打开文件,写入数组等操作。

VB学生成绩查询统计系统实验报告

VB学生成绩查询统计系统实验报告

学生成绩查询系统一、实习任务 (2)二、系统分析 (3)三、系统设计 (4)四、调试、排错、测试、试运行过程 (7)五、源程序完整或主要代码 (10)六、总结与体会 (17)七、参考文献 (18)一、实习任务1实习任务介绍:熟悉软件工程学的基本思想进行软件开发的原则和方法;结构化分析方法和步骤;结构化编程方法;面向对象的思想和程序设计方法。

按照软件开发的一般方法和步骤动手设计一个《学生成绩查询统计系统》。

2基本要求:①登录界面:密码最多尝试3次,连续3次均输入错误系统自动退出。

②具有录入成绩、添加记录、删除记录、修改记录功能。

③具有成绩查询功能,可以按照学号、课程号、课程名、分数段进行查询。

为便于查询,所有的学号和课程号可考虑以下拉列表的形式给出。

④具有全部成绩浏览功能,且能与数据库表最新数据同步。

⑤具有统计功能,能以直方图、饼图、折线图、散点图、立体直方图直观表示各成绩段的分布情况。

⑥具有打印学生成绩报表的功能。

⑦具有菜单和工具条的双重操作功能。

3 实习目的:掌握常用控件的使用,学会使用通用对话框控件进行编程,掌握创建多重窗体程序的有关技术,了解鼠标和键盘事件及事件过程的编写,综合应用了所学知识,加深对VB的理解。

4 选题的背景及意义:VB是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。

它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。

在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数据连接(ODBC)等技术,可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

VB学生成绩管理系统课程设计报告

VB学生成绩管理系统课程设计报告

VB程序设计课程设计报告班级:资工10902 班姓名:何睦序号:05指导老师:少华邵燕林王庆君华朱小龙目录1、课设的目的 (3)2、界面设计和功能设计 (3)3、系统功能实施 (12)4、系统功能设计 (19)5、总结和体会 (28)一、课设的目的1.通过本次课程设计,提高实践动手能力;2.通过本次课程设计,进一步理解计算机程序设计的思路与方法;3.通过本次课程设计,进一步熟练运用VB的语言元素和流程控制语句;4.通过本次课程设计,达到能熟练使用各种常见的VB控件,理解面向对象的思想;5.通过本次课程设计,熟悉用户界面的设计;6.通过本次课程设计,熟悉数据访问控件ADO及相关对象的使用,能基于ADO控件实现Access的数据访问与操纵;二、界面设计和功能设计1、下面的界面为用户登陆界面:用户名和密码均已设定,用户名为zg,密码为10902,只有输入正确,然后点击“登陆“按钮才能进入主界面。

如果用户名或密码三次输入错误,则系统自动退出。

当你点击“退出“按钮时,弹出一个对话窗,界面如下:在对话框上点击“是”按钮,则退出系统,如果点击“否”,则该界面不变。

2、当用户名和密码均输入正确,点击“登陆”按钮,进入主界面——“学生成绩管理系统”界面,该界面是其他子界面的入口,界面如下:3、进入主界面后,点击“学生管理(删除\添加)”,进入学生管理界面,界面如下:该界面上有一个ADO控件,用于连接数据库,当用户在六个文本框中输入数据时,点击“添加“按钮,可以将数据录入到数据库中,如果此时点击”删除“按钮,则刚才输入的数据就会被删除,点击”保存“按钮时,输入的数据就会自动保存在数据库里,点击”返回主窗体“按钮,该窗体消失,主窗体出现。

4、在主界面点击“各科成绩查询“按钮,出现如下界面:该界面有一个ADO控件,用来连接数据库,还有一个DataGrid控件,用来显示学生成绩的查询结果,当用户选择了要查询的科目和条件后,点击“查询“按钮,在DataGrid控件上就会显示出所查询的结果。

基于vb的学生成绩管理系统设计与实现

基于vb的学生成绩管理系统设计与实现

基于VB的学生成绩管理系统设计与实现【1】简介学生成绩管理系统是一种能够帮助学校和老师管理学生成绩信息的工具。

通过该系统,可以方便地录入、查询、统计学生成绩,为学校和老师提供了高效便捷的管理方式。

本文将重点讨论基于VB的学生成绩管理系统的设计与实现。

【2】系统需求分析(1)功能需求学生成绩管理系统需要包括学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。

系统需要具有数据安全性和稳定性,能够保证学生成绩信息的准确性和完整性。

(2)性能需求系统需要能够实现快速的数据录入和查询,响应速度要较快。

系统需要支持大量数据的存储和处理,能够满足学校成绩管理的实际需求。

(3)界面需求系统的界面设计应简洁美观,操作要简单易懂,能够方便老师和管理员进行使用。

【3】系统设计(1)数据库设计设计学生成绩管理系统的数据库结构,包括学生信息表、成绩信息表和其他相关信息表。

需要考虑数据表的关联性和索引,以提高数据检索和统计的效率。

(2)界面设计通过VB的界面设计工具,设计系统的用户界面。

采用直观的界面布局和人性化的操作方式,使用户能够方便地进行各项操作。

(3)功能模块设计根据系统需求,划分出学生信息管理模块、成绩信息管理模块、成绩查询模块、成绩统计模块和报表打印模块。

设计各个功能模块的具体实现方式,并确保模块之间的协调和配合。

【4】系统实现(1)数据库连接与操作在VB中使用ADO技术,进行与数据库的连接和操作。

通过VB代码编写,实现对学生成绩数据库的增删改查等操作,确保数据的准确性和完整性。

(2)界面实现利用VB的窗体和控件设计,实现系统的用户界面。

包括各个功能模块的窗体设计和按钮控件的添加,使用户能够方便地进行各项操作。

(3)功能实现通过VB的编程语言,实现学生信息录入、成绩录入、成绩查询、成绩统计和报表打印等功能。

确保系统的稳定性和高效性,满足学校成绩管理的实际需求。

【5】个人观点与总结基于VB的学生成绩管理系统的设计与实现是一个综合性的工作,需要考虑到功能、性能和界面等多方面的需求。

VB程序设计实验-学生成绩管理系统

VB程序设计实验-学生成绩管理系统

河南工业大学计算机上机实习报告**:***序号:11学号:************班级:食工 1004班指导老师: 任老师张老师日期:2011-03-05目录一:系统名称:学生成绩管理系统的设计与实现二:设计目的三:程序摘要四:系统设计流程五:相关数据列表六:小结七:程序代码(1)模块代码(2)窗体代码一.系统名称:学生成绩管理系统的设计与实现二.设计目的1. 熟悉VB 6.0的开发环境,掌握基本的编程方法,熟悉用VB语言完成一个应用程序的设计过程,掌握有关编辑和调试程序的方法和技巧;2. 主要掌握VB语言中的结构体﹑指针及文件操作等内容3. 了解开发简单应用程序的全过程,包括:分析﹑设计﹑编程﹑调试和编写报告.三.程序摘要先在记事本中创建2个文本文档,分别输入本班24名学生在本学期的5门考试课的成绩和课程名及其学分.在主函数中读入两个原始数据文件的内容,保存在对应的结构体数组中,计算出每个学生5门课的加权平均分,并按平均分排列名次.然后显示菜单,调用各个函数,完成以下功能:1.用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放班级的成绩表.2.分别统计全班每门课的平均分和标准差,并计算各分数段(90分以上;80~90;70~79;60~69;60分以下)的学生数3.用VB语言创建一个数据文件,文件名为:“VB课程设计”,用来存放编号,课程名称,课程平均分,标准差,优秀,良好,中等,及格,不及格.4.打印每名学生成绩条,结果存放到用VB语言创建的一个数据文件中,成绩条格式为名次,学号,姓名,英语,数学,VB语言,物理,化学5.屏幕显示所有存在不及格课程的学生的名单(含学号,不及格课程名称,课程的学分及成绩)6.屏幕显示优等生名单(含学号,N门课成绩,平均分,名次),优等生条件:a) 平均分>=90分b) 名次在本班位于前三名c) 平均分>=85分,并且至少有一门课的成绩>=95四、系统设计流程五.相关数据列表1、原始成绩表2、课程及学分3、计算加权平均分4、按平均分排名次5、打印每位同学的成绩条6、打印不及格的人7、打印优等生情况8、每门课的平均分9、各分数段人数六.小结在这次上机实习过程中,我了解了程序在Visual VB 6.0中调试并运的方法,并上机实践解决了一些平时没有机会解决和一些曾经被自己忽视的问题,如程序的排序对结果显示影响,标点符号对程序结果的影响,并养成了仔细检查程序的好习惯,加强了自己动手的能力。

VB学生信息管理系统测试分析报告

VB学生信息管理系统测试分析报告

l i d e h u i ****学院学生信息管理系统测试分析报告1.引言............................................................................................................................................... 21.1编写目的............................................................................................................................. 21.2项目背景............................................................................................................................. 21.3参考资料............................................................................................................................. 22.任务概述........................................................................................................................................ 22.1目标..................................................................................................................................... 22.2运行环境............................................................................................................................. 23.计划............................................................................................................................................... 33.1测试方案............................................................................................................................. 33.2测试人员............................................................................................................................. 34.测试项目说明................................................................................................................................ 34.1测试内容............................................................................................................................. 34.2测试用例............................................................................................................................. 34.2.1登陆模块测试用例.................................................................................................. 34.2.2查询模块测试用例.................................................................................................. 44.2.3注册模块测试用例 .. (4)l i d e h u i 1.引言1.1编写目的把编写该系统的目的是为了尽可能地发现和排除系统中潜藏的错误,最终把一个高质量的软件系统交给用户使用。

vb程序设计实验报告

vb程序设计实验报告

vb程序设计实验报告VB程序设计实验报告实验目的:通过VB程序设计,掌握基本的程序设计方法和技巧,提高编程能力。

实验内容:本次实验主要是通过VB程序设计,实现一个简单的学生成绩管理系统。

该系统可以实现学生信息的录入、查询、修改和删除功能,同时还能够计算学生的平均成绩并进行排名。

实验步骤:1. 设计界面:首先,我们需要设计一个简洁易用的界面,包括学生信息的录入、查询、修改和删除功能。

通过VB的窗体设计工具,我们可以轻松地实现界面的布局和美化。

2. 编写代码:接下来,我们需要编写VB程序代码,实现学生成绩管理系统的各项功能。

通过VB的编程语言,我们可以实现学生信息的录入、查询、修改和删除功能,以及成绩的计算和排名功能。

3. 调试程序:完成代码编写后,我们需要对程序进行调试,确保程序的各项功能能够正常运行。

通过调试,我们可以及时发现和解决程序中的bug,提高程序的稳定性和可靠性。

4. 测试程序:最后,我们需要对程序进行测试,验证程序的各项功能是否能够满足实际需求。

通过测试,我们可以发现程序中可能存在的问题,并及时进行修复和优化。

实验结果:经过一段时间的努力,我们成功地实现了一个简单的学生成绩管理系统。

该系统能够实现学生信息的录入、查询、修改和删除功能,同时还能够计算学生的平均成绩并进行排名。

通过本次实验,我们不仅掌握了基本的程序设计方法和技巧,还提高了自己的编程能力。

结论:通过本次实验,我们深刻认识到了程序设计的重要性,以及通过VB程序设计可以实现复杂功能的能力。

同时,我们也意识到了编程过程中需要细心和耐心,以及对程序进行不断地调试和测试,才能确保程序的质量和稳定性。

希望通过不断地实践和学习,我们能够不断提高自己的编程能力,为实现更多复杂功能的程序做好准备。

用VB制作学生成绩管理系统

用VB制作学生成绩管理系统

摘要该学生成绩管理系统是用Visual Basic 制作的,该系统可以实现教师进行对学生的成绩管理,添加学生用户以及可以查询学生的成绩;还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码;还有的是教师用户和学生用户可以退出系统。

该系统采用了对窗体、基本控件的应用,选择结构的if语句,循环结构的循环语句fo r…next结构,菜单设计,过程,数据文件来构建整个程序。

在此报告中重点叙述了学生成绩系统的各个功能,特别是学生的成绩查询和密码修改以及教师和学生的登录。

整个系统会以系统结构图、程序流程图、功能模块,让大家能知晓该系统的功能.摘要 (1)第一章任务概述 (3)1.1、目标 (3)1.2、需求分析 (3)1.2。

1、鼠标操作 (3)1.2。

2、键盘操作 (3)第二章总体设计 (4)2.1、系统结构图 (4)第三章详细设计 (5)3。

1、程序运行后的界面 (5)3.2、教师的登录界面 (5)3。

3、教师对学生的成绩管理的界面 (6)3.4、教师对学生添加用户的界面 (8)3。

5、学生的登录界面 (10)3.6、学生查询成绩的界面 (12)3.7、学生修改密码的界面 (13)小结 (15)第一章任务概述1.1、目标本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。

该系统可以帮助我们更方便的管理学生的成绩,替代了以前的手工操作管理学生的成绩,节约我们珍贵的时间。

1。

2、需求分析根据该系统的需求分析,系统的需求可以分为以下的几个方面:1.2。

1、鼠标操作你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作.1.2.2、键盘操作你可以利用键盘对该系统的某些操作。

第二章总体设计2。

1、系统结构图图2-1 系统结构图第三章详细设计3。

1、程序运行后的界面图3—1 系统界面3.2、教师的登录界面图3-2 教师登录界面代码:Private Sub Command1_Click()Dim usename As String,pwd As String’定义用户名和用户密码usename = LCase(Trim(T1。

vb实验报告代码

vb实验报告代码

vb实验报告代码VB实验报告代码一、引言Visual Basic(VB)是一种广泛应用于Windows平台上的编程语言,它具有简单易学、功能强大的特点。

在本次实验中,我们将通过编写VB代码来实现一个简单的学生成绩管理系统。

本文将详细介绍实验所用到的代码,并对其实现原理进行解析。

二、代码实现1. 数据库连接首先,我们需要建立与数据库的连接,以便后续对学生成绩进行增删改查的操作。

通过VB的ADO(ActiveX Data Objects)技术,我们可以方便地与数据库进行交互。

以下是连接数据库的代码片段:```Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生成绩表.mdb" rs.Open "SELECT * FROM 学生成绩", conn, adOpenDynamic, adLockOptimistic ```2. 添加学生成绩接下来,我们需要实现添加学生成绩的功能。

通过VB的窗体设计工具,我们可以方便地创建一个表单,用于输入学生的姓名和成绩。

以下是添加学生成绩的代码片段:```rs.AddNewrs.Fields("姓名").Value = TextBox1.Textrs.Fields("成绩").Value = TextBox2.Textrs.Update```3. 删除学生成绩在学生成绩管理系统中,我们也需要提供删除学生成绩的功能。

以下是删除学生成绩的代码片段:```rs.Find "姓名='" & TextBox1.Text & "'"If Not rs.EOF Thenrs.DeleteMsgBox "删除成功!"ElseMsgBox "未找到该学生!"End If```4. 修改学生成绩为了使学生成绩管理系统更加完善,我们还需要提供修改学生成绩的功能。

VB设计报告(学生管理系统)

VB设计报告(学生管理系统)

一、系统的开发工具及编程环境1.1 开发工具的选择基于系统的需求分析以及系统的应用,系统将简体中文版进行开发,所选择的语言是和Access 2003。

简介BASIC是Beginner’s All-purpose Symbolic Instruction Code(初学者通用符号指令代码)的编写,是国际上广泛使用的一种计算机高级语言。

BASIC 简易、易学,目前仍是计算机入门的主要学习语言之一。

BASIC语言自其问世经历了一下五个阶段:第一阶段(1964年-70年代初):1964年BASIC语言问世。

第二阶段(20世纪70年代初-80年代中):微机上固化了BASIC。

第三阶段(20世纪80年代初-90年代初):推出了结构化BASIC语言。

第四阶段(1991年-2002年):推出了Visual Basic。

第五阶段(2002年以后):推出了Visual 。

1991年以后,Microsoft推出了Visual Basic 1.0版,在当时引起了很大的轰动。

许多专家把Visual Basic的出现当作软件开发史的一个具有时代意义的事件。

其实,以现在的眼光来看,Visual Basic1.0的功能实在是太弱了,但它是第一个“可视”的编程软件,因此很多程序员都尝试在Visual Basic的平台上进行软件创作。

此后Microsoft在四年内连续推出Visual Basic2.0、Visual Basic3.0、Visual Basic4.0等3个版本。

从Visual Basic3.0开始,Microsoft 将Access中的数据库驱动集成到了Visual Basic中,这使Visual Basic的数据库编程能力大大提高;从Visual Basic4.0开始引入了面向对象的程序设计思想;Visual Basic还引入了“控件”的概念,使大量已经编好的Visual Basic 程序可以被直接重用,Visual Basic5.0版本引入了ActiveX的概念,允许开发人员创建自己的ActiveX控件;Visual Basic6.0集成了ActiveX Data Objects(ADO),提供了一种访问数据库的全新方法;2002年2月,随着Visual 的发布,许多原有的局限性被消除,变成了功能强大的开发工具。

VB课程设计--学生成绩管理系统

VB课程设计--学生成绩管理系统

VB课程设计--学生成绩管理系统课程设计说明书 NO。

1学生课程成绩管理系统1。

1课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后,进行的一次全面的综合训练,其目的在于加深对可视化编程技术基本知识的理解,掌握运用VB开发应用程序的基本方法及基本技巧。

1。

2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统.软件:Microsoft Visual Basic 6.0Microsoft Access 20031。

3 课程设计的预备知识熟悉Visual Basic 6。

0程序设计的基本语法知识及常用技巧。

沈阳大学课程设计说明书 NO。

2 2。

1系统功能设计2。

1.1 系统功能分析本学生课程管理系统可以说是一个综合性的学校学生管理系统,这它集成了学生班级管理、学生成绩管理、学生的课程安排、成绩管理、用户等多种功能,因而具有较强的实用性和先进性。

系统主要可以实现以下的管理功能:班级管理、学生课程管理、学生成绩管理、用户管理等等.2.1。

2 系统功能模块设计学生课程成绩管理系统课成系程绩统管管维理理护课课课班成学班用退程程程级绩生级户出库安安课库成成管系管排排表管绩绩理统理查理查分登询询析录图2。

1系统功能模块图沈阳大学课程设计说明书 NO。

3 2。

2系统详细设计2。

2.1 登录模块设计1。

界面设计本界面的主要功能是为了对系统进行安全性管理,本系统的用户名和密码保存在USER表中,用户可以选择不同的登录编号及密码.图2.2 登录模块2.属性设计名称 Text Passwordchar 用户编号输入框 txtUserName Admin 密码输入框txtPassword Admin *3。

代码设计Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()EndEnd SubPrivate Sub cmdOK_Click()Dim Conn As ADODB。

VB实训报告,学生成绩管理系统

VB实训报告,学生成绩管理系统

附录:一、设计的系统界面示意图二、涉及的代码清单简易计算器代码:Dim v As BooleanDim s As StringDim x As DoubleDim y As DoublePrivate Sub Command1_Click(Index As Integer) If Form.Tag = "T" ThenIf Index = 10 ThenText1.Text = "0."ElseText1.Text = command1(Index).CaptionEnd IfForm1.Tag = ""Elsea = Text1.TextText1.Text = a & Command1(Index).Caption End IfEnd SubPrivate Sub Command2_Click(Index As Integer) Form1.Tag = "T"If v Thenx = Text1.Text: v = Not vElsey = Text1.TextSelect Case sCase 0Text1.Text = x + yCase 1Text1.Text = x - yCase 2Text1.Text = x * yCase 3If y <> 0 ThenText1.Text = x / yElseMsgBox ("不能以0为除数") Text1.Text = xv = FalseEnd IfEnd Selectx = Text1.TextEnd Ifs = IndexEnd SubPrivate Sub Command3_Click() Form1.Tag = "t": y = Text1.Text Select Case sCase 0Text1.Text = x + yCase 1Text1.Text = x - yCase 2Text1.Text = x * yCase 3If y <> 0 ThenText1.Text = x / yElseMsgBox ("不能以0为除数")Text1.Text = xEnd IfEnd Selectx = Text1.Text: y = 0: v = False: s = 5End Sub学生成绩查询代码:Private Sub Form_Load() '初始化开的课程,在这里所有的班级都开设了这九门课程!Combo1.AddItem "数学"Combo1.AddItem "语文"Combo1.AddItem "英语"Combo1.AddItem "生物"Combo1.AddItem "化学"Combo1.AddItem "物理"Combo1.AddItem "政治"Combo1.AddItem "历史"Combo1.AddItem "地理"End SubPrivate Sub command4_Click()Dim a As SingleDim b As IntegerDim c As StringIf Combo1.Text = "数学" ThenAdodc1.Recordset("数学成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "语文" ThenAdodc1.Recordset("语文成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "英语" ThenAdodc1.Recordset("英语成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "生物" ThenAdodc1.Recordset("生物成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "化学" ThenAdodc1.Recordset("化学成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "物理" ThenAdodc1.Recordset("物理成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "政治" ThenAdodc1.Recordset("政治成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "历史" ThenAdodc1.Recordset("历史成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "地理" ThenAdodc1.Recordset("地理成绩") = Text3.TextAdodc1.Recordset.UpdateEnd IfAdodc1.Recordset("学生总分") = Val(Adodc1.Recordset("数学成绩")) + Val(Adodc1.Recordset("语文成绩")) + Val(Adodc1.Recordset("英语成绩")) + Val(Adodc1.Recordset("化学成绩")) + Val(Adodc1.Recordset("生物成绩")) +Val(Adodc1.Recordset("物理成绩")) + Val(Adodc1.Recordset("政治成绩")) + Val(Adodc1.Recordset("历史成绩")) + Val(Adodc1.Recordset("地理成绩"))a = CSng(Val(Adodc1.Recordset("学生总分")) / 9)b = InStr(Trim(Str(a)), ".")If b <> 0 ThenIf Val(Mid(Str(a), b + 3, 1)) >= 5 Thenc = Str(Val(Mid(Trim(Str(a)), 1, b + 2)) + 0.01)Elsec = Str(Val(Mid(Trim(Str(a)), 1, b + 2)))End IfAdodc1.Recordset("学生平均分") = Trim(c)ElseAdodc1.Recordset("学生平均分") = Trim(Str(a) & ".00")End IfAdodc1.Recordset.UpdateMsgBox "修改完毕!"End SubPrivate Sub Command2_Click()If Combo1.Text = "" ThenMsgBox "请选课程名!"Exit SubEnd IfAdodc1.RefreshAdodc1.Recordset.Find ("studentname like '" & Text4.Text & "' ")If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenMsgBox "123"ElseIf Combo1.Text = "数学" ThenText3.Text = Adodc1.Recordset("数学成绩")End IfIf Combo1.Text = "语文" ThenText3.Text = Adodc1.Recordset("语文成绩")End IfIf Combo1.Text = "英语" ThenText3.Text = Adodc1.Recordset("英语成绩")End IfIf Combo1.Text = "生物" ThenText3.Text = Adodc1.Recordset("生物成绩")End IfIf Combo1.Text = "化学" ThenText3.Text = Adodc1.Recordset("化学成绩")End IfIf Combo1.Text = "物理" ThenText3.Text = Adodc1.Recordset("物理成绩")End IfIf Combo1.Text = "政治" ThenText3.Text = Adodc1.Recordset("政治成绩")End IfIf Combo1.Text = "历史" ThenText3.Text = Adodc1.Recordset("历史成绩")End IfIf Combo1.Text = "地理" ThenText3.Text = Adodc1.Recordset("地理成绩")End IfEnd IfEnd SubPrivate Sub Command1_Click()Dim a As SingleDim b As IntegerDim c As StringIf Combo1.Text = "" ThenMsgBox "请选课程名!"Exit SubEnd IfAdodc1.RefreshAdodc1.Recordset.Find ("studentname like '" & Text4.Text & "' ") If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenMsgBox "123"ElseIf Combo1.Text = "数学" ThenAdodc1.Recordset("数学成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "语文" ThenAdodc1.Recordset("语文成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "英语" ThenAdodc1.Recordset("英语成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "生物" ThenAdodc1.Recordset("生物成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "化学" ThenAdodc1.Recordset("化学成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "物理" ThenAdodc1.Recordset("物理成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "政治" ThenAdodc1.Recordset("政治成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "历史" ThenAdodc1.Recordset("历史成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfIf Combo1.Text = "地理" ThenAdodc1.Recordset("地理成绩") = Text2.TextAdodc1.Recordset.UpdateEnd IfAdodc1.Recordset("学生总分") = Val(Adodc1.Recordset("数学成绩")) + Val(Adodc1.Recordset("语文成绩")) + Val(Adodc1.Recordset("英语成绩")) + Val(Adodc1.Recordset("化学成绩")) + Val(Adodc1.Recordset("生物成绩")) + Val(Adodc1.Recordset("物理成绩")) + Val(Adodc1.Recordset("政治成绩")) + Val(Adodc1.Recordset("历史成绩")) + Val(Adodc1.Recordset("地理成绩"))a = CSng(Val(Adodc1.Recordset("学生总分")) / 9)b = InStr(Trim(Str(a)), ".")If b <> 0 ThenIf Val(Mid(Str(a), b + 3, 1)) >= 5 Thenc = Str(Val(Mid(Trim(Str(a)), 1, b + 2)) + 0.01)Elsec = Str(Val(Mid(Trim(Str(a)), 1, b + 2)))End IfAdodc1.Recordset("学生平均分") = Trim(c)ElseAdodc1.Recordset("学生平均分") = Trim(Str(a) & ".00")End IfAdodc1.Recordset.UpdateMsgBox "录入完毕!"End IfEnd SubPrivate Sub Command3_Click()Dim i As IntegerDim a(1 To 9) As SingleDim b(1 To 9) As StringAdodc1.RefreshAdodc1.Recordset.Find (" class like '" & Text1.Text & "' ")If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenMsgBox "123"ElseFor i = 1 To 9a(i) = Val(DataGrid1.Columns(DataGrid1.Col + i + 1))Next ij = 1End IfEnd Sub。

[练习]vb学生成绩管理系统实验报告

[练习]vb学生成绩管理系统实验报告

综合性实验实验名称:学生成绩管理系统实验报告专业班级:金融1202学生姓名:于淇学号:2012180227指导教师:刘素华一、系统的理论与技术基础1.1管理信息系统基础管理信息系统就是我们常说的MIS (Management Information System),是集成了计算机网络技术、信息处理技术,对信息进行收集处理、传输及存储,进行事务管理的一种人机交互的智能化计算机系统。

1.2软件工程理论对本系统的指导学生成绩管理系统的设计和开发是一个较为庞大的系统工程,应以软件工程的思想和方法为指导,进行设计和开发。

软件工程理论对本系统的指导,主要表现在:帮助我们理清思路,建立较为科学的结构和开发制作流程方面。

上述的各种理论,对我们设计和开发学生成绩管理系统提供了重要的理论基础,同时也为我们如何进行具体的设计和开发工作,提供了必要的思路和方法。

二、系统的分析2.1背景分析当今时代是飞速发展的信息时代,在各行各业中离不开信息管理处理,这正是计算机被广泛应用于管理系统的原因。

计算机的最大好处在于利用它能够进行信息管理。

使用计算机进行管理控制,不仅提高了工作效率,而且大大的提高了其安全性,尤其对于复杂的管理,计算机能够充分发挥它的优越性。

管理系统是进行信息的采集、存储、加工、维护和使用的系统,它是随着管理科学和技术科学的发展而形成的。

学生成绩管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生成绩管理系统能为用户提供充足的管理手段,对学生来说可以轻松的查阅自己在校的成绩及排名。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对学生成绩信息进行管理,有着手工管理所无法比拟的优点。

例如:查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高学生成绩管理的效率,也是企业的科学化、正规化管理并与世界接轨的重要条件。

VB学生信息管理系统实验报告

VB学生信息管理系统实验报告

一、开发简介本系统主要包括信息录入、信息查询、关闭系统三部分。

其功能主要有:⒈有关学生信息的录入,包括录入学生基本信息、学生考试成绩等。

2.学生信息的查询,包括查询学生的个人基本信息、科目考试成绩。

二、开发流程学生信息管理系统由用户登陆、学生信息管理系统菜单、学生信息录入、查询、学生基本信息修改和删除这几个功能模块组成,其结构如图:三、需求分析1、本系统主要实现对学生的基本信息管理、考试成绩管理功能。

(1)学生信息管理:管理员管理学生的信息并同时提供学生的信息。

学生的基本信息包括:学号、姓名、性别、、院系、班级、专业、成绩。

(2)需求实现的功能:学生基本信息和考试成绩维护、录入学生基本信息和考试成绩、查询统计考生基本信息和考试成绩。

2、其他需求:为体现数据库相关概念,在系统实现中要尽量创建数据库、创建表、维护表、以及安全管理的等功能。

四、数据库结构设计设立两个数据库,分别为:密码表学生信息表五、软件设计1、解决方案和软件特色(1)本系统具有很强的可靠性,可以对录入的学生信息进行效验,对数据进行修改、删除,可以方便管理员的修改与维护。

(2)本系统操作方便、灵活、简单。

操作人员只需录入学生的基本信息和考试成绩的数据。

(3)本系统可高效、快速的查询到学生的基本信息和考试成绩,便于管理员管理工作的开展。

(4)本系统主要用于学校学生信息管理,总体任务是实现学生信息关系的系统化、规范化和自动化,其主要任务是用计算机对学生各种信息进行日常管理,如查询、修改、添加,另外还考虑到学生考试成绩,针对这些要求设计了学生信息管理系统。

2、具体设计登录界面及程序代码如下:Private Sub Command1_Click()Adodc1.RecordSource = "密码表"Adodc1.RefreshAdodc1.Recordset.Find "学号='" & Text1.Text & "'" If Adodc1.Recordset.EOF ThenMsgBox "用户名不存在", , "警告"Text1.Text = ""Text2.Text = ""ElseIf Adodc1.Recordset.Fields("密码") Then Form1.HideForm2.ShowElseMsgBox "密码错误", , "警告"Text2.Text = ""End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub主界面窗体及代码如下:Private Sub 个人信息查询_Click() Form2.HideForm4.ShowEnd SubPrivate Sub 个人信息录入_Click() Form2.HideForm3.ShowEnd SubPrivate Sub 关闭系统_Click() EndEnd Sub个人信息录入界面及代码如下:Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Adodc1.Recordset.MoveFirstCase 1Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstEnd IfCase 2Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfCase 3Adodc1.Recordset.MoveLastCase 4Adodc1.Recordset.AddNewCase 5Adodc1.Recordset.Update End SelectEnd SubPrivate Sub Command2_Click()Form3.HideForm2.ShowEnd Sub个人信息查询界面及代码如下:Private Sub Command1_Click()ch$ = InputBox("请输入要查询的学号", "输入框") Adodc1.Recordset.Find "学号Like '" & ch & "*" & "'", , , 1 End SubPrivate Sub Command2_Click()ch$ = InputBox("请输入要查询的姓名", "输入框") Adodc1.Recordset.Find "姓名Like '" & ch & "*" & "'", , , 1 End SubPrivate Sub Command3_Click()Form4.HideForm2.ShowEnd Sub六、经验总结通过本实验的学生信息系统的设计,我对VB有了更深刻的了解和认识,比以前强了许多,进一步了解对VB设计的方法和一些小技巧,还有数据库的连接与实现,帮助等工具的操作与实现,都比以前更熟练了,理论与实践结合在一起,学到了许多新的东西。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

(此文档为word格式,下载后您可任意编辑修改!) 综合性实验实验名称:学生成绩管理系统实验报告专业班级:金融1202学生姓名:于淇学号:指导教师:刘素华一、系统的理论与技术基础1.1管理信息系统基础管理信息系统就是我们常说的MIS (Management Information System),是集成了计算机网络技术、信息处理技术,对信息进行收集处理、传输及存储,进行事务管理的一种人机交互的智能化计算机系统。

1.2软件工程理论对本系统的指导学生成绩管理系统的设计和开发是一个较为庞大的系统工程,应以软件工程的思想和方法为指导,进行设计和开发。

软件工程理论对本系统的指导,主要表现在:帮助我们理清思路,建立较为科学的结构和开发制作流程方面。

上述的各种理论,对我们设计和开发学生成绩管理系统提供了重要的理论基础,同时也为我们如何进行具体的设计和开发工作,提供了必要的思路和方法。

二、系统的分析2.1背景分析当今时代是飞速发展的信息时代,在各行各业中离不开信息管理处理,这正是计算机被广泛应用于管理系统的原因。

计算机的最大好处在于利用它能够进行信息管理。

使用计算机进行管理控制,不仅提高了工作效率,而且大大的提高了其安全性,尤其对于复杂的管理,计算机能够充分发挥它的优越性。

管理系统是进行信息的采集、存储、加工、维护和使用的系统,它是随着管理科学和技术科学的发展而形成的。

学生成绩管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生成绩管理系统能为用户提供充足的管理手段,对学生来说可以轻松的查阅自己在校的成绩及排名。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对学生成绩信息进行管理,有着手工管理所无法比拟的优点。

例如:查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高学生成绩管理的效率,也是企业的科学化、正规化管理并与世界接轨的重要条件。

因此,开发这样一套成绩管理系统成为很有必要的事情。

学生成绩管理系统提供了强大的学生成绩管理功能,方便系统管理员对学生成绩等信息的添加、修改、删除、查询等操作。

2.2 系统主要业务逻辑系统表业务逻辑如下图:业务流程如下图所示:系统用例如下图所示:每个用例都包括,科目,名次,班级属性。

对于科目这个用例,他又包括分数这个属性。

下面对系统的参与者进行更具体的分析:1. 如果最终分析的候选参与者没有用例,那么他根本不是一个参与者。

2. 如果他和用例之间没有通信,没有任何联系,那么他也可能不是一个参与者。

3. 如果候选用户并不作任何事情,但是他包含了一些特殊信息,那么他可能不是一个参与者,但他可以作为参与者的一个附属品。

4. 如果参与者的名字过于细化,比如,张三,那么,我们应该根据他的角色来创建参与者。

5. 如果一个参与者的名字过于泛化,比如“用户”,那么我们可以根据他的角色来细化他的参与者(如上图所示)描述参与者和用例之间的关系是我们构建用例图的最后一步。

系统的每个参与者都触发一个或多个用例,当然如果他没有触发任何用例,他将不能成为参与者,而每个用例都由一个或多个参与者触发。

三、系统的开发工具及编程环境3.1 开发工具的选择基于系统的需求分析以及系统的应用,系统将采用微软的Visual Studio6.0简体中文版进行开发,所选择的语言是Visual Basci6.0,下面将介绍Visual Basic6.0的特点。

3.2 Visual Basic 语言的特点及常用名词Visual Basic 语言用其设计应用程序时具有两个基本特点,可视化设计WYSIWYG (what you see is what you get)和事件驱动编程。

Visual Basic 系统除了一般高级语言所具有的一些名词术语外,还有几个系统常用的名词。

其基本含义如下:视窗(Form)、对象(Object) 、属性(Properties)、事件 (Events) 、方法 (Method)、过程 (Procedure) 和模块 (Module)。

1.视窗(Form)视窗是进行人机交互的界面或接口,也叫窗体。

VB系统的人机交互界面或接口,无论是在设计时或是在运行时,都是Windows 系统的标准视窗。

2.对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。

本程序所应用到的对象类型有标签框 (Label Box),文本框 (Text Box),命令按扭(Command Button),网格 (Data Grid)等。

当把这些工具放置到用户界面对应的窗体上时,被称为对象或控件。

用户可以通过设置对象的“属性”和“方法”,便于对象适应自己所设计应用程序的输入输出内容,对象的生成过程及结构都被封装起来。

正确使用对象可以减少程序和开发时间,提高程序设计者的工作效率。

3.属性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。

用户通过适当的设置或改变对象的属性来确定对象的外观及性能特征,从而有效地使用系统提供的对象。

比如,对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。

4.事件 (Events)事件是指用户或操作者对计算机进行的某一操作(如击键、单击或移动鼠标等)的行为或系统状态发生的变化。

VB系统常用事件来引导计算机执行一段程序。

程序所用的键盘事件有KeyPress(按键)事件,KeyDown事件和KeyUp事件;鼠标事件有Click(单击鼠标)事件,DbDlicd(双击鼠标)。

5.方法 (Method)方法主要是指对一个对象使用某种作用的过程。

它是在程序执行的过程中要计算机执行的某种操作。

其程序的方法有Show(显示)方法,Hide(隐藏)方法,Refresh(刷新)方法。

6.过程 (Procedure)过程是指经过定义或说明的,或基于某一对象对应的事件所引发的程序段。

7.模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。

系统程序大体可分成四个模块:数据输入、根据查询、数据打印和通讯。

3.3编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具,使目前最为广泛的、易学易用的面向对象的开发工具。

Visual Basic提供了大量的控件,这些控件可用于设计界面和实现各种功能,减少了编程人员的工作量,也简化了界面设计过程,从而有效的提高了应用程序的运行效率和可靠性。

故而,实现本系统Visual Basic 6.0是一个相对较好的选择。

3.4 Windows下的Visual Basic 面对对象的编程面对对象的编程;面向对象的设计方法 (OOP, Objected Programming) 从应用领域内的问题着手,以直观自然的方式描述客观世界的实体。

Visual Basic 作为一种面向对象的编程方法,把程序和数据封装起来作为一个对象,并为每个对象赋予相应的属性。

在设计对象时,不必编写建立和描述每个对象的程序代码,而是用工具画在界面上,由 Visual Basic 自动生成对象的程序代码并封装起来。

Visual Basic 应用程序基本的构建块是用户所创建的对象,每一个对象都具有一些特性和行为(属性、事件和方法)。

开发人员可以最有效利用所创建的每一个对象。

使用应用程序具有可通用性可说扩展性和强有力的功能。

Visual Basic 应用由一系列对象组成,包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等,对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。

首先是进入登陆界面,如图3.4所示,本窗体显示系统名称,密码校验等信息,本系统的用户分为三类:管理员,教师,学生。

使用者可以在组合框中选择所要登录的用户的类型,并输入相应的用户名和密码,单击“确定”就会将输入提交给系统以验证用户、密码及身份。

如果用户类型及密码正确,则会进入系统的MDI主窗体(MDIMain.frm).本模块的流程图如下:图3-4流程图3.5 Visual Basic 系统实现菜单选项实现菜单选项:菜单是程序最重要的特性之一,大多数程序都依赖一个定义良好的菜单使程序易于使用和维护,Visual Basic 也提供了强大的创建菜单功能,使程序更加标准。

3.5 Visual Basic 系统实现菜单选项实现菜单选项:菜单是程序最重要的特性之一,大多数程序都依赖一个定义良好的菜单使程序易于使用和维护,Visual Basic 也提供了强大的创建菜单功能,使程序更加标准。

四、系统数据库的使用4.1 系统数据库的选择本系统并没有选择流行的数据库管理系统作为后台数据库而是选择了以系统自己建立的文件系统作为数据库后台,这主要是考虑了系统的通用性和系统的实用性,在使用系统时,你并不需要额外的软件支持。

同时,我们也参考了Access2000即关系数据库开发工具,利用数据库能汇集各种信和Access的优点,将使用数据表示图或自定义窗体收集信息。

数据表示图提供了一种类似于Excel的电子表格,可以使数据库一目了然。

另外,Access允许创建自定义报表用于打印或输出数据库中的信息。

它也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他用户共享数据库。

它是一种关系数据库工具,关系数据库是已开发的最通用的数据库之一。

如上所述,参考Access的优点作为关系数据库开发,的确具备了许多优点,可以在一个数据包同时拥有桌面数据库的便利和关系数据库的强大功能。

4.2 数据的保存和读取系统采用自己定义的数据库格式,以文本文件保存用户录入的信息,数据的格式转换主要通过模块函数实现,保存时,系统将网格的数据读入RecordSet中,然后转换为可以写入文本文件的数据格式,当需要从文件加载数据时,执行相反过程,再将文件内容转换成内存的RecordSet的格式,并将RecordSet绑定到网格显示数据。

执行这两者转换的数据模块式系统中的Moudel1,Moudel2两个模块。

4.3 数据库文件的易用性前面已经说明了,系统的数据存储是文本文件格式的文件,这对数据库文件的建立和转移,备份都是非常方便的,如果你愿意,完全可以在没有系统的时候更改录入资料,而不用关心系统是否崩溃了。

如果要备份数据库,只需要备份系统下面的文本文件格式的数据库。

这对系统的通用性是一个不错的选择。

4.4 数据库文件格式数据库文件格式如下所示Private Sub CmdOk_Click()Dim Conn As New ADODB.ConnectionDim mlink As Stringmlink = "provider=microsoft.jet.oledb.3.51;data source=score.mdb;"Conn.Open mlink'当用户名密码为空时给出提示If Text1.Text = "" ThenMsgBox "在frmlogin窗体中如果用户登录成功,将会出现如图4-3所示的MDI主窗体。

相关文档
最新文档