VB学生信息管理系统课程设计报告
学生信息管理系统VB
河北联合大学《软件设计基础(VB)》课程设计报告设计名称:学生信息管理系统姓名:学号:专业班级:学院:设计时间:设计地点:学校机房目录1.课程设计目的 ···············································································2.课程设计任务与要求 ······································································3.课程设计说明书 ············································································4.课程设计成果 ···············································································5.程序调试过程 ···············································································6.设计问题的不足和改进方案 ·····························································7.课程设计心得 ···············································································8.附录 ···························································································9.参考文献 ·····················································································4.课程设计成果运行结果(可用屏幕抓图的方法说明)(五号,宋体)(多页)图1图2图3图41.登陆界面有账号和密码保护功能如图12.学生信息管理界面如图23.保存界面如图34.学生信息查询界面如图4。
VB学生信息管理系统课程设计报告
专业实践课程设计报告班级:08计科一班姓名:***学号:*************学生信息管理系统1.需求分析:随着学校的规模不断扩大,学生人数急剧增加,有关学生的各种信息也成倍增长。
面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。
通过这样的系统可以做到信息的标准管理,科学统计与快速查询,修改,增加,删除等,从而减少管理方面的工作量。
实现学生信息关系的系统化,标准化,自动化,用计算机对学生各种信息进展日常管理。
本系统主要包括学生信息查询与信息添加等功能,来初步实现学生信息的计算机化管理,更多相关功能有待以后慢慢完善。
2.系统功能:本学生信息管理系统采用的语言是Visual Basic,用SQL Sever 2000数据库完成,有以下功能:(1)有较好的权限管理;(2) 原始数据修改简单方便,支持多条件修改;(3)方便的数据查询,支持多条件查询.采用Visual Basic有以下特点:可视化编程Visual Basic提供了可视化设计工具,把Windows界面设计的复杂性“封装〞起来,开发人员不必为界面设计而编写大量程序代码。
只需要按设计要求的屏幕布局,用系统提供的工具,在屏幕上画出各种“部件〞,即图形对象,并设置这些图形对象的属性。
Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的那局部代码,从而可以大大提高程序设计的效率。
构造化程序设计语言Visual Basic是在BASIC语言的根底上开展起来的,具有高级程序设计语言的语句构造,接近于自然语言与人类的逻辑思维方式。
Visual Basic 语句简单易懂,其编辑器支持彩色代码,可自动进展语法错误检查,同时具有功能强大且使用灵活的调试器与编译器。
事件驱动编程机制Visual Basic通过事件来执行对象的操作。
一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应。
在用Visual Basic设计大型应用软件时,不必建立具有明显开场与完毕的程序,而是编写假设干个微小的子程序,即过程。
学生信息管理系统VB课程设计报告
学生信息管理系统课程设计报告院系:数学与信息管理系专业:信息管理与信息系统学号:201230060116姓名:张纪华时间:2013年12月04日一、课程设计题目:设计学生信息管理系统二、课程设计目的:1. 了解学生信息管理系统的内容。
2. 掌握学生信息管理系统的基本运行模式。
3. 掌握学生信息管理系统设计的基本源程序。
4. 熟练掌握如何使用“If……Then”语句。
5. 掌握界面之间的链接程序语句。
三、课程设计内容及详细设计及运行结果:(一)登陆界面1、界面:编写程序,在窗体上实现如图1.2所示的图形图1.2 “登录界面”的界面2、代码:(1)确定按钮:Private Sub Command1_Click()Form2.hideForm1.showIf Text2.Text = "201230060116" And Text1.Text = "张纪华" ThenMsgBox "欢迎" & Text1.Text & "进入学生信息查询系统!",64, "学生信息管理系统"Me.HideUnload 登陆界面基本信息.ShowElseMsgBox "密码或用户名有误!"m = m + 1Text2 = ""Text1 = ""Text1.SetFocusIf m > 2 ThenMsgBox "请核对密码重新登录!"End IfEnd IfEnd Sub(2)清空按钮:Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub(3)退出按钮:Private Sub Command3_Click()Unload 登陆界面End Sub(二)学生基本信息界面1、界面:编写程序,在窗体上实现如图1.3所示的图形图1.3 “学生基本信息”的界面(1)、删除界面(2)、查找界面2、代码:Private Sub Command1_Click()Dim ask As IntegerSelect Case IndexCase 0Adodc1.Recordset.AddNewEnd SelectEnd SubPrivate Sub Command2_Click()ask = MsgBox("删除否?", vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.CancelUpdateEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click()Dim mno As Stringmno = InputBox("请输入学号", "查找窗")Adodc1.Recordset.Find "学号= " & mno & " ", , , 1If Adodc1.Recordset.EOF Then MsgBox "无此学号!", , "提示"End Sub四、数据库信息五、系统设计小结通过这次课程设计,我收益颇丰,感受深刻。
学生信息管理系统-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学生信息管理系统实验报告
一、开发简介本系统主要包括信息录入、信息查询、关闭系统三部分。
其功能主要有:⒈有关学生信息的录入,包括录入学生基本信息、学生考试成绩等。
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设计的方法和一些小技巧,还有数据库的连接与实现,帮助等工具的操作与实现,都比以前更熟练了,理论与实践结合在一起,学到了许多新的东西。
VB语言第5章教案:学生管理系统设计
VB语言第5章教案:学生管理系统设计。
一、需求分析在设计任何一个软件系统之前,我们都必须首先明确其需求。
对于学生管理系统来说,其主要需求包括学生信息的管理、课程管理、成绩管理、考勤管理、教师管理和课表管理等。
在分析每个需求之后,我们可以很清晰地得出学生管理系统的总体结构和模块设计。
二、概要设计在总体设计方面,我们需要对系统中的各个模块进行一个整体规划和设计。
1.学生信息管理模块该模块主要是为了管理学生的基本信息,包括学号、姓名、性别、年龄、联系方式等。
并且可以根据学生的学号和姓名来查询、修改和删除学生的信息。
2.课程管理模块该模块主要是为了对课程进行管理,包括课程编号、名称、授课老师、教材和上课时间等。
并且可以根据课程的编号、名称和任课老师来查询、修改和删除课程信息。
3.成绩管理模块该模块主要是为了管理学生的成绩信息,包括学生的学号、课程编号、成绩等。
并且可以根据学生的学号和课程编号来查询、修改和删除成绩信息。
4.考勤管理模块该模块主要是为了管理学生的出勤情况,包括学生的学号、课程编号、出勤情况等。
并且可以根据学生的学号和课程编号来查询、修改和删除考勤信息。
5.教师管理模块该模块主要是为了管理教师的基本信息,包括教师编号、姓名、性别、年龄、职称、所授课程等。
并且可以根据教师的编号和姓名来查询、修改和删除教师的信息。
6.课表管理模块该模块主要是为了管理课表信息,包括课程编号、课程名称、上课地点、上课时间等。
并且可以根据课程的编号和名称来查询、修改和删除课表信息。
三、详细设计一旦完成了整体设计之后,我们就可以开始详细设计每个模块里面的具体功能了。
1.学生信息管理模块在该模块设计中,我们需要主要实现添加、修改、删除和查询学生的信息功能。
2.课程管理模块在该模块设计中,我们需要主要实现添加、修改、删除和查询课程信息的功能。
3.成绩管理模块在该模块设计中,我们需要主要实现添加、修改、删除和查询成绩信息的功能。
vb课程设计实践报告
vb课程设计实践报告一、教学目标本课程的教学目标是让学习者掌握Visual Basic编程语言的基本语法、编程技巧以及数据库访问技术。
通过本课程的学习,学生应能设计并实现简单的应用程序,为后续的软件开发学习打下坚实的基础。
具体来说,知识目标包括:1.理解Visual Basic编程语言的基本概念和语法。
2.掌握常用的数据类型、运算符和表达式。
3.学会使用Visual Basic的窗体和控件。
4.掌握事件驱动编程的基本概念。
5.理解并能够使用Visual Basic进行数据库访问。
技能目标则要求学生:1.能够使用Visual Basic编写简单的程序。
2.能够使用Visual Basic进行数据库的连接和操作。
3.能够对程序进行调试和优化。
情感态度价值观目标则在于培养学生的创新精神和团队合作意识,通过完成项目任务,使学生感受到编程的乐趣,增强对计算机科学的热爱。
二、教学内容本课程的教学内容主要包括Visual Basic的基本语法、数据类型、控制结构、窗体和控件、以及数据库访问技术。
具体的教学大纲安排如下:1.课程引言:介绍Visual Basic的发展历程和应用领域。
2.基本语法:变量、数据类型、运算符、表达式等。
3.控制结构:条件语句、循环语句等。
4.窗体和控件:窗体的基本属性、控件的属性和事件等。
5.数据库访问:使用ADO对象进行数据库的连接和操作。
三、教学方法为了提高教学效果,将采用多种教学方法相结合的方式进行教学。
包括:1.讲授法:用于讲解基本语法和概念。
2.案例分析法:通过分析具体的案例,使学生理解编程思想和方法。
3.实验法:安排上机实验,让学生亲手编写代码,提高实践能力。
四、教学资源为了支持教学,将准备以下教学资源:1.教材:《Visual Basic编程教程》。
2.参考书:提供相关的编程书籍,供学生课后自学。
3.多媒体资料:制作教学PPT,辅助讲解。
4.实验设备:提供计算机实验室,让学生进行上机实验。
vb课程设计报告
vb课程设计报告一、课程目标本vb课程设计旨在达成以下学习目标:1. 知识目标:学生掌握VB编程基础知识,理解面向对象编程思想,熟悉VB 开发环境及相关工具的使用。
具体包括:- 掌握VB基本语法和数据类型;- 学会使用VB控制结构,如循环、分支等;- 理解VB中事件驱动编程原理;- 了解VB中常用控件的使用方法和属性设置。
2. 技能目标:学生能够运用所学知识,独立设计并编写简单的VB程序,培养解决实际问题的能力。
具体包括:- 能够编写具有基本功能的VB程序,如计算器、文本编辑器等;- 能够运用面向对象编程思想,设计简单的类和对象;- 能够分析问题,运用VB编程解决实际问题。
3. 情感态度价值观目标:培养学生对编程的兴趣,提高逻辑思维能力和团队协作能力。
具体包括:- 增强学生对编程的热爱,激发学习动力;- 培养学生独立思考、解决问题的习惯;- 培养学生团队协作精神,学会与他人分享和交流。
课程性质:本课程为实践性较强的学科,注重培养学生的动手能力和实际应用能力。
学生特点:学生年级为初中或高中,具备一定的计算机操作基础,对编程有一定的好奇心和兴趣。
教学要求:结合学生特点和课程性质,采用任务驱动法,以实际项目为导向,让学生在实践中掌握VB编程知识,提高编程能力。
同时,注重培养学生的逻辑思维和团队协作能力,为后续学习打下坚实基础。
二、教学内容根据课程目标,本章节教学内容如下:1. VB基本语法和数据类型- 数据类型:整数型、浮点型、字符串型等;- 变量和常量的声明与使用;- 运算符和表达式。
2. VB控制结构- 条件语句:If...Then...Else和Select Case;- 循环语句:For...Next,While...Wend和Do...Loop。
3. VB事件驱动编程- 事件和事件过程的概念;- 鼠标和键盘事件;- 窗体和控件事件。
4. VB常用控件- 文本框、标签、按钮等基本控件的使用;- 列表框、组合框、图片框等高级控件的使用;- 控件属性的设置。
VB课程设计--学生信息管理系统
目录摘要 (5)前言 (6)第一章为什么要开发一个学生档案管理系统 (7)1.1 在教育中用计算机管理学生档案的意义 (7)1.2为将来学校上网做好准备 (7)1.3 学生档案的设计分析 (7)第二章编程环境的选择 (9)2.1开发工具的介绍 (9)2.3关系型数据库 (11)2.4 数据库的概念 (12)2.5新建一个数据库 (12)第三章需求分析 (14)3.1 可行性研究 (14)3.2 需求分析 (15)第四章系统总体规划 (17)4.1软件模块结构设计 (17)4.2数据库设计 (18)第五章系统具体实 (19)5.1 主界面 (19)5.2数据库的实现 (21)5.3 ACCESS与VB的连接 (22)第六章测试 (24)6.1程序运行界面如下图 (24)6.2输入用户名和密码界面 (26)16.3系统所具备的功能显示界面 (26)6.4系统管理功能 (27)6.5班级系统 (30)6.6 档案管理 (32)6.7课程管理 (33)6.8成绩管理 (34)结束语 (36)致谢 (37)参考文献 (38)摘要学生档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字:控件、窗体、域。
摘要:随着中国教育事业的迅速发展,学生的数量日益增加,学生的信息管理也变得日益繁重和复杂。
如果想要提高学生信息管理的效率和质量,以适应教育事业的发展,我们就必须对学校内部进行改革和加强学校管理。
学生学籍管理系统vb课程设计
学生学籍管理系统vb课程设计一、课程目标知识目标:1. 学生能够理解学生学籍管理系统的基本需求,掌握其数据库设计和功能模块划分。
2. 学生能够运用VB语言实现系统的登录、信息录入、查询、删除和修改等基本功能。
3. 学生能够理解并运用VB中与数据库操作相关的知识,如ADO技术、SQL 语句等。
技能目标:1. 学生能够独立进行需求分析,设计出符合实际需求的学生学籍管理系统功能模块。
2. 学生能够运用VB编程实现系统的各项功能,具备一定的程序调试和优化能力。
3. 学生能够通过课程学习,具备解决实际问题的能力,为今后的软件开发打下基础。
情感态度价值观目标:1. 学生通过课程学习,培养对计算机编程的兴趣和热情,提高信息素养。
2. 学生能够认识到团队协作的重要性,学会在项目开发过程中与他人沟通、合作。
3. 学生能够树立正确的价值观,认识到技术为社会带来的便利,同时关注技术在实际应用中可能存在的问题和挑战。
课程性质:本课程为实践性较强的课程,要求学生在掌握基本理论知识的基础上,能够动手实践,完成一个具有实际意义的学生学籍管理系统。
学生特点:学生已经具备一定的VB编程基础和数据库知识,但可能缺乏实际项目经验。
教学要求:结合学生特点和课程性质,注重实践操作,鼓励学生独立思考、团队协作,培养解决实际问题的能力。
在教学过程中,关注学生的个体差异,提供有针对性的指导,确保学生能够达到课程目标。
通过课程目标的分解和教学设计,使学生在完成课程学习后,能够具备实际开发学生学籍管理系统的能力。
二、教学内容本课程教学内容主要包括以下几部分:1. 学生学籍管理系统需求分析- 分析系统功能需求,明确系统目标- 确定系统的主要功能模块和数据库设计2. VB编程基础回顾- VB基本语法和数据类型- 控件的使用和事件处理- 简单的界面设计原则3. 数据库操作- ADO技术简介- SQL语句的编写和执行- 数据库连接、查询、更新和删除操作4. 学生学籍管理系统功能实现- 登录模块设计- 学生信息录入、查询、修改和删除模块设计- 系统界面设计和功能模块整合5. 系统调试与优化- 代码调试技巧- 性能优化方法- 用户体验改进6. 项目实践与团队协作- 学生分组进行项目实践- 团队协作和沟通能力的培养- 项目进度管理和评价教学内容安排和进度:第一周:需求分析和功能模块划分第二周:VB编程基础回顾和数据库操作第三周:学生学籍管理系统功能实现(登录模块、信息录入模块)第四周:学生学籍管理系统功能实现(查询、修改和删除模块)第五周:系统调试与优化、项目实践第六周:团队协作、项目总结和评价本课程教学内容与课本紧密关联,注重实践操作,旨在培养学生具备实际开发学生学籍管理系统的能力。
VB学生信息管理系统实验报告
目录一、实习任务……………………………….。
……。
.....。
...。
.....。
..。
.11。
实习任务简介…………………………………………………………..….。
1 2。
《学生成绩查询统计系统》实现的功能概论……………………………1.3.实习目的 (1)4。
实验的背景和意义 (1)5。
软件工具和需要掌握的知识 (1)二、系统分析 (2)1。
系统功能模块的划分 (2)2.初步对此程序的描述………………………………………………………。
2三、系统设计………………………………….。
.。
..。
.。
.。
.。
.....。
.。
.。
.。
..。
....。
.。
.。
21.登陆界面实现的细节…………………………………………………。
…。
22.其他界面实现的细节 (3)四、调试、排错、测试、试运行过程...........................。
.........。
(3)1.调试、排错、测试、试运行解析……………………………….………。
.4五、完整源程序…………………………………………….。
………………。
61.完整源程序代码.............................................................。
...。
.。
(6)六、总结体会...................................................。
(13)1。
心得体会 (13)七、参考文献……………………………………………….……。
......。
.。
..。
.。
..。
.14一、实习任务1.习任务简介:在课程进行时听老师介绍软件工程学的基本思想进行软件开发的原则和方法;结构化分析的思路和步骤以及结构化编程的方法和面向对象的思想和程序设计方法给了我编辑此程序的能力.在查阅部分资料和咨询同学后按照软件开发的一般方法和步骤就手动完成了《学生信息查询统计系统》。
2.《学生成绩查询统计系统》要实现的功能概论①登录界面:密码最多尝试3次,连续3次均输入错误系统自动退出。
vb实习-学生管理系统
石家庄铁道大学课程设计VB语言课程设计报告——小型学生信息管理系统学院:工程力学系专业:因材机电班级:试1104班姓名:崔佳南学号: 20110750 组员:赵会青崔佳南指导教师:王学军2012年8月摘要21世纪是科技腾飞的时代,计算机的发展是一个重大的科技成果。
随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步走向成熟.任何一个单位要生存要发展,要高效的把内部组织管理好,就必须建立与自身特点相符合的管理系统。
学生信息管理系统牵涉到学生基本信息管理包括学生姓名、性别、班级、学号及年龄等,和学生成绩管理以及统计等内容。
随着学校规模的不断扩大,学生数量急剧增加,有关学生的信息量也成倍增加。
面对庞大的信息量,需要有一个完善的学生信息管理系统来提高对学生信息的管理效率.小型学生信息管理系统就在各方面做了改善,实现了对学生信息准确而高效的记载,使得学生能清晰流畅地浏览和查询自己的信息,同时又方便了管理人员的管理工作,大大提高了工作效率。
总之,这次的课程设计让我学会了很多,让我拥有一个平台对自己的所学进行应用,并在解决问题的时候加强了对知识的熟练掌握.关键词:小型学生信息管理系统,数据库,ado控件,data控件,控件与数据库的绑定……目录一.选题的意义 (1)二.系统功能简介 (1)2。
1系统概述 (1)2。
2系统的组成及各模块的功能 (1)2.3系统的运行环境 (2)三.系统设计 (2)3。
1总体结构设计 (2)3.2数据库设计 (3)四.系统实现 (3)4。
2学生登录模块的设计与实现 (3)4.3管理员登录模块的设计与实现 (6)4.4注册新用户模块的设计与实现 (7)4。
5修改密码模块的设计与实现 (9)4.6添加管理员模块的设计与实现 (10)4。
7学生学籍信息查询模块的设计与实现 (11)4。
8学生成绩查询模块的设计与实现 (12)4。
9学生信息浏览模块的设计与实现 (14)4。
vb课程设计学籍管理系统
vb课程设计学籍管理系统一、课程目标知识目标:1. 学生能理解学籍管理系统的基础知识,掌握使用Visual Basic(VB)进行程序设计的基本方法。
2. 学生能运用VB的相关知识,实现学籍管理系统的基本功能,如学生信息的增加、删除、修改和查询。
3. 学生了解数据库连接的基本原理,学会使用VB访问数据库,实现数据的存储和读取。
技能目标:1. 学生通过本课程的学习,培养编程思维和解决问题的能力,具备使用VB进行简单应用程序开发的能力。
2. 学生能够运用所学的VB知识,独立完成一个学籍管理系统的设计和实现,提高实际操作能力。
3. 学生通过团队协作,培养沟通与协作能力,提高项目完成的效率和质量。
情感态度价值观目标:1. 学生在学习过程中,培养对计算机编程的兴趣和热情,树立编程解决问题的信心。
2. 学生通过课程学习,认识到编程在现实生活中的应用价值,增强社会责任感。
3. 学生在团队协作中,学会尊重他人,培养良好的合作精神和团队意识。
本课程针对学生年级特点,注重培养实际操作能力和团队协作能力,使学生在掌握知识的同时,提高自身的综合素质。
课程目标明确、具体,可衡量性强,为后续的教学设计和评估提供依据。
二、教学内容1. VB程序设计基础:变量、数据类型、运算符、控制结构(顺序、选择、循环)。
2. VB界面设计:窗体、控件的使用和布局,事件处理。
3. 数据库基础:数据库概念,数据表设计,SQL语言基础。
4. VB访问数据库:ADO对象的使用,连接数据库,执行SQL语句。
5. 学籍管理系统功能实现:设计学生信息表,实现增加、删除、修改和查询功能。
6. 项目实践:团队协作,完成一个完整的学籍管理系统的设计与实现。
教学内容依据课程目标,结合教材章节进行组织。
首先,让学生掌握VB编程基础,为后续开发打下基础;其次,学习界面设计,使系统具有良好的用户交互体验;接着,介绍数据库基础知识,为学籍管理系统提供数据支持;然后,学习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 的发布,许多原有的局限性被消除,变成了功能强大的开发工具。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
End If
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
MsgBox "当前记录是最后一条记录,无下一条记录!", vbOKOnly + vbCritical, "警告"
Exit Sub
本系统主要包括学生信息查询和信息添加等功能,来初步实现学生信息的计算机化管理,更多相关功能有待以后慢慢完善。
2.系统功能:
本学生信息管理系统采用的语言是Visual Basic,用SQL Sever 2000数据库完成,有以下功能:
(1)有较好的权限管理;
(2)原始数据修改简单方便,支持多条件修改;
Me.Hide
信息查询.Show
End Sub
Private Sub e_Click()
Me.Hide
SQL查询.Show
End Sub
Private Sub g_Click()
End
End Sub
Private Sub h_Click()
Me.Hide
登录.Show
End Sub
Private Sub k_Click()
Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应。在用Visual Basic设计大型应用软件时,不必建立具有明显开始和结束的程序,而是编写若干个微小的子程序,即过程。这些过程分别面向不同的对象,由用户操作引发某个事件来驱动完成某种特定的功能,或者由事件驱动程序调用通用过程来执行指定的操作,这样可以方便编程人员,提高效率。
2.1.4访问数据库
Visual Basic具有强大的数据库管理功能,利用数据控件和数据库管理窗口,并提供了强大的数据存储和检索功能。Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的方式使用并操作后台大型网络数据库,如SQL Server,Oracle等。
3.模块组成
Adodc1.Recordset.MoveFirst
MsgBox "当前记录是第一条记录,无上一条记录!", vbOKOnly + vbCritical, "警告"
Exit Sub
End If
End Sub
Private Sub Command4_Click()
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command3_Click()
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MovePrevious
End If
If Adodc1.Recordset.BOF = True Then
Else
Adodc1.RecordSource = Text1.Text
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
专业实践
课
程
设
计
报
告
班级:08计科一班
姓名:***
学号:*************
学生信息管理系统
1.需求分析:
随着学校的规模不断扩大,学生人数急剧增加,有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理,科学统计和快速查询,修改,增加,删除等,从而减少管理方面的工作量。实现学生信息关系的系统化,规范化,自动化,用计算机对学生各种信息进行日常管理。
End If
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.MoveLast
End Sub
4.4 SQL查询窗口设计
代码:Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入SQL语句", vbOKOnly + vbCritical, "警告"
Me.Hide
成绩添加.Show
End Sub
Private Sub l_Click()
Me.Hide
信息添加.Show
End Sub
4.3信息查询窗口设计
代码:Private Sub Command1_Click()
Me.Hide
菜单窗口.Show
End Sub
Private Sub Command2_Click()
2.1.2结构化程序设计语言
Visual Basic是在BASIC语言的基础上发展起来的,具有高级程序设计语言的语句结构,接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的调试器和编译器。
2.1.3事件驱动编程机制
(3)方便的数据查询,支持多条件查询.
2.1采用Visual Basic有以下特点:
2.1.1可视化编程
Visual Basic提供了可视化设计工具,把Windows界面设计的复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局,用系统提供的工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的属性。Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的那部分代码,从而可以大大提高程序设计的效率。
即系统结构图:登录、查询、添加、修改、删除。
4.程序设计
4.1 主界面及登录界面的设计:
代码:Private Sub cmdok_Click()
If txtname.Text = "" And txtpassword.Text = "" Then
菜单窗口.Show
txtpassword.Text = ""
Me.Hide
Else
MsgBox "用户名或密码不正确", vbOKOnly + vbCritical, "登录信息"
End If
End Sub
Private Sub cmdquit_Click()
Me.Hide
码:Private Sub class_Click(Index As Integer)