VB程序设计课程设计3篇(vb程序设计网课)
下面是范文网小编收集的VB程序设计课程设计3篇(vb程序设计网课)，以供借鉴。
课程设计
学 院 班 级
指导老师
姓 名 学 号 成 绩
2013年 月 10
日
一．课程设计题目
学生管理系统
二．功能描述
按设定的用户名密码进行登录后，可按需求进行对数据库中已有的学生信息及成绩进行查询，添加，删除，修改等操作。
三．概要设计
登录界面功能：让用户进行登录。主界面功能：让用户选择进行哪项操作。
查询学生信息菜单功能：输入学生学号，对该学生的个人信息以
及成绩进行查询，若直接点击查询按钮，则显示全部学生个人信息及成绩。
编辑学生信息菜单功能：可对数据库中已有的学生信息进行查
询，添加，删除，修改等操作。
学生信息维护菜单功能：可对数据库中已有的学生成绩进行查
询，添加，删除，修改等操作。
四．详细设计
五．效果以及存在问题
说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解决办法。
登录界面
登录学生管理系统
按查询条件查询
打开修改学生信息子窗口
学生成绩维护子窗口
垂直窗口排列
关于窗口
不足：1.没有实现用户登录界面中的注册功能
2.没有实现主界面中文件下的新建和保存功能。
六．心得体会
经过几天的苦战，终于把课程设计粗略的做完了。刚开始做的时候，毫无头绪，一片茫然。好在书本上有类似的实验，可以供参考。尽管如此，真正做起项目来，还是有着这样那样的困难，有时一个空格少打都会出错，导致我检查了半天才发现问题所在。由于VB语法还运用不熟练，很多代码都是模仿书本上的敲的，许多代码往往能编译通过，但很多都会抛出各种异常，让人头疼。有时系统就给出个有个参数没有被指定值，就可以让人搞的焦头烂额。因此，写程序真的也很需要强大的耐心，只要熬下去了，当你做出程序时，也会倍有成就感。目前，程序是基本写完了，平常学的理论都得到了运用，感觉自己的能力也增强了。一句话，实践才是硬道理。
七．附录代码
（附上各模块代码）
1.登录界面
Public Class Form1
Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles
Static n As Integer
If = “abc” And = “123” Then
Dim form2 As New Form2()
()
()
Else
n = n + 1
If n < 5 Then
MsgBox(“请输入正确的用户名和密码！”, )
Else
MsgBox(“请输入正确的用户名和密码！”, )
= False
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub Button3_Click(ByVal sender As , ByVal e As )Handles
Dim form3 As New Form3()
()
()
End Sub
Private Sub Form1_Load(ByVal sender As , ByVal e As )Handles
End Sub End Class
2.查询学生菜单代码
Public Class Form6
Private Sub Form6_Load(ByVal sender As , ByVal e As )Handles
Dim objConn As New
Dim objDaXS_KC As New
Dim objDaXS As New
Dim objCommXS_KC As New
Dim objCommXS As New
Dim objDsXS_KC As New DataSet
Dim objDsXS As New DataSet
= “Provider = ;data source = 'D:'”
= “ Select * From XS ”
objCommXS_ = “ Select * From XS_KC ”
objCommXS_ = objConn
objDaXS_ = objCommXS_KC
= objConn
= objCommXS
()
objDaXS_(objDsXS_KC, “XS_KC”)
(objDsXS, “XS”)
()
= objDsXS_(“XS_KC”)
= (“XS”)
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles
Dim objConn As New
Dim objDaXS_KC As New
Dim objDaXS As New
Dim objCommXS_KC As New
Dim objCommXS As New
Dim objDsXS_KC As New DataSet
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = “"
If Trim()<> ”“ Then
WhereStr = ” 学号like “ + Trim()
End If
= ”Provider = ;data source = 'D:'“
= ” Select * From XS “
objCommXS_ = ” Select * From XS_KC “
If WhereStr <> ”“ Then
= & ”where“ & WhereStr
objCommXS_ = objCommXS_ & ”where“ & WhereStr
End If
objCommXS_ = objConn
objDaXS_ = objCommXS_KC
= objConn
= objCommXS
()
objDaXS_(objDsXS_KC, ”XS_KC“)
(objDsXS, ”XS“)
()
= objDsXS_(”XS_KC“)
= (”XS“)
End Sub End Class
3编辑学生信息菜单
Public Class Form7
Dim objDs As New DataSet
Dim objxstable As DataTable
Dim objda As New
Dim wherestr As String
Public Sub refreshdata()
(objDs, ”XS“)
()
bindgridview(wherestr)
End Sub
Public Sub bindgridview(ByVal strXH As String)
Dim objConn As New
Dim objComm As New
WhereStr = ”“
If Trim()<> ”“ Then
Wherestr = ” 学号like“ + Trim()
End If
= ”Provider=;Data Source='D:'“
= ” Select * From XS “
If WhereStr <> ”“ Then
= & ”where“ & WhereStr
End If
'把objConn设置为objConn的数据连接
= objConn
= objComm
'创建INSERT Command
Dim InsCommand As New (”INSERT INTO XS(学号,姓名,专业名,性别,出生日期,总学分,备注)VALUES(?,?,?,?,?,?,?)“, objConn)
(”学号“, , 6, ”学号“)
(”姓名“, , 8, ”姓名“)
(”专业名“, , 10, ”专业名“)
(”性别“, , 2, ”性别“)
(”出生日期“, , Nothing, ”出生日期“)
(”总学分“, , Nothing, ”总学分“)
(”备注“, , Nothing, ”备注“)
= InsCommand
'创建Delte Command
Dim delcommand As New (”DELETE * from XS where 学号=?“, objConn)
(”学号“, , 6, ”学号“)
= delcommand
'创建Update Command
Dim updCommand As New (”UPDATE XS SET 学号=?,姓名=?,专业名=?,性别=?,出生日期=?,总学分=?,备注=? WHERE 学号=?“, objConn)
(”学号“, , 6, ”学号“)
(”姓名“, , 8, ”姓名“)
(”专业名“, , 10, ”专业名“)
(”性别“, , 2, ”性别“)
(”出生日期“, , Nothing, ”出生日期“)
(”总学分“, , Nothing, ”总学分“)
(”备注“, , Nothing, ”备注“)
(”学号“, , 6, ”学号“)
= updCommand
()
'打开数据库连接
(objDs, ”XS“)'填充数据
objxstable = (”XS“)
()
'关闭数据集
'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了
= (”XS“)
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As , ByVal e As )Handles
= (0). '显示学号
= (1). '显示姓名
= (2). '显示专业
= (3). '显示性别
= (4). '显示出生日期
= (5). '显示总学分
= (6). '显示备注
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles
Dim objConn As New
Dim objDaXS As New
Dim objCommXS As New
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = ”“
If Trim()<> ”“ Then
WhereStr = ” 学号like “ + Trim()
End If
= ”Provider = ;data source = 'D:'“
= ” Select * From XS “
If WhereStr <> ”“ Then
= & ”where“ & WhereStr
End If
= objConn
= objCommXS
()
(objDsXS, ”XS“)
()
= (”XS“)
End Sub
Private Sub Form7_Load(ByVal sender As , ByVal e As )Handles
Wherestr = ”“
bindgridview(wherestr)
End Sub
Private Sub butAdd_Click(ByVal sender As , ByVal e As )Handles
Dim response As MsgBoxResult
response = MsgBox(”确定要添加记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = Then
Dim myRow As DataRow = ()
MyRow(”学号“)=
MyRow(”姓名“)=
MyRow(”专业名“)=
MyRow(”性别“)=
MyRow(”出生日期“)=
MyRow(”总学分“)=
MyRow(”备注“)=
(myRow)
refreshdata()
End If
End Sub
Private Sub butEdit_Click(ByVal sender As , ByVal e As )Handles
Dim response As MsgBoxResult
response = MsgBox(”确定要修改记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = Then '用户选择“确定”
'修改学号
().Item(0)=
'修改姓名
().Item(1)=
'修改专业
().Item(2)=
'修改性别
().Item(3)=
'修改出生日期
().Item(4)=
'修改总学分
().Item(5)=
'修改备注
().Item(6)=
refreshdata()'更新并刷新显示
End If
End Sub
Private Sub butDelete_Click(ByVal sender As , ByVal e As )Handles
Dim response As MsgBoxResult
response = MsgBox(”确定要删除记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = Then '用户选择“确定”
'除学生成绩表当前记录
().Delete()
refreshdata()'更新并刷新显示
End If
End Sub End Class
4.学生成绩维护菜单
Public Class Form4
Dim objDs As New DataSet
Dim objXSTable As DataTable
Dim objDa As New
Dim WhereStr As String
Public Sub refreshdata()
(objDs, ”XS_KC“)
()
bindgridview(WhereStr)
End Sub
Public Sub bindgridview(ByVal strXH As String)
Dim objConn As New
Dim objComm As New
WhereStr = ”“
If Trim()<> ”“ Then
WhereStr = ” 学号like“ + Trim()
End If
= ”Provider=;Data Source='D:'“
= ” Select * From XS_KC “
If WhereStr <> ”“ Then
= & ”where“ & WhereStr
End If
'把objConn设置为objConn的数据连接
= objConn
= objComm
'创建INSERT Command
Dim InsCommand As New (”INSERT INTO XS_KC(学号,课程号,成绩,学分)VALUES(?,?,?,?)“, objConn)
(”学号“, , 6, ”学号“)
(”课程号“, , 4, ”课程号“)
(”成绩“, , Nothing, ”成绩“)
(”学分“, , Nothing, ”学分“)
= InsCommand
'创建Delte Command
Dim delcommand As New (”DELETE * from XS_KC where 序号=?“, objConn)
(”序号“, , 6, ”序号“)
= delcommand
'创建Update Command
Dim updCommand As New (”UPDATE XS_KC set 学号=?,课程号=?,成绩=?,学分=? where 序号=?“, objConn)
(”学号“, , 6, ”学号“)
(”课程号“, , 4, ”课程号“)
(”成绩“, , Nothing, ”成绩“)
(”学分“, , Nothing, ”学分“)
(”序号“, , Nothing, ”序号“)
= updCommand
()
'打开数据库连接
(objDs, ”XS_KC“)'填充数据
objXSTable = (”XS_KC“)
()
'关闭数据集
'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了
= (”XS_KC“)
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As , ByVal e As )Handles
= (0). '显示ID
= (1). '显示学号
= (2). '显示课程号
= (3). '显示成绩
= (4). '显示学分
End Sub
Private Sub btnDdd_Click(ByVal sender As , ByVal e As )Handles
Dim response As MsgBoxResult
response = MsgBox(”确定要添加记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = Then
Dim myRow As DataRow = ()
MyRow(”学号“)=
MyRow(”课程号“)=
MyRow(”成绩“)=
MyRow(”学分“)=
(myRow)
refreshdata()
End If
End Sub
Private Sub btnEdit_Click(ByVal sender As , ByVal e As )Handles
Dim response As MsgBoxResult
response = MsgBox(”确定要修改记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = Then '用户选择“确定”
'修改学号
().Item(1)=
'修改课程号
().Item(2)=
' 修改成绩
().Item(3)=
'修改学分
().Item(4)=
refreshdata()'更新并刷新显示
End If
End Sub
Private Sub btnDelete_Click(ByVal sender As , ByVal e As )Handles
Dim response As MsgBoxResult
response = MsgBox(”确定要删除记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)
If response = Then '用户选择“确定”
'除学生成绩表当前记录
().Delete()
refreshdata()'更新并刷新显示
End If
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As )Handles
Dim objConn As New
Dim objDaXS As New
Dim objCommXS As New
Dim objDsXS As New DataSet
Dim WhereStr As String
WhereStr = ”“
If Trim()<> ”“ Then
WhereStr = ” 学号like “ + Trim()
End If
= ”Provider = ;data source = 'D:'“
= ” Select * From XS_KC “
If WhereStr <> ”“ Then
= & ”where“ & WhereStr
End If
= objConn
= objCommXS
()
(objDsXS, ”XS_KC“)
()
= (”XS_KC“)
End Sub
Private Sub Form4_Load(ByVal sender As , ByVal e As )Handles
WhereStr = ”"
bindgridview(WhereStr)
End Sub End Class
5.主菜单界面代码
Public Class Form2
Private Sub quitMenuItem_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub importscoreMenuItem_Click(ByVal sender As , ByVal e As )Handles
Dim form4 As New Form4
= Me
=
()
End Sub
Private Sub updateinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles
Dim form7 As New Form7
= Me
=
()
End Sub
Private Sub selectinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles
Dim form6 As New Form6
= Me
=
()
End Sub
Private Sub cascadeMenuItem_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub horizonMenuItem_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub verticalMenuItem_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub aboutMenuItem_Click(ByVal sender As , ByVal e As )Handles
Dim form5 As New Form5
= Me
=
()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As , ByVal e As )Handles
()
End Sub
Private Sub ToolStripStatusLabel1_Click(ByVal sender As , ByVal e As )Handles
()
End Sub End Class
八．参考文库
百度文库，百度知道
VB程序设计课程设计
一．题目：
1．记事本的设计与实现 2．学生成绩管理系统 3．弹球游戏
4．图书馆管理系统 5.打字练习程序 6.超市销售管理 7.小型测试系统 8.仓库管理系统 9.猜数字游戏 10.工资管理系统 二．要求和说明：
1．自己独立完成，最终提交课程设计报告和实验成果
2.对各个系统实现功能进行分析并设计好系统界面，要求界面设计美观方便
3．课程设计报告格式：封面、题目、时间地点、要求、内容、详细步骤和过程、总结 1）功能描述
对系统要实现的功能进行确切的描述。
2)概要设计
根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系
3)详细设计
详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。
4)效果及存在问题
说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法。
5)心得 ：谈谈在课程设计过程中的心得体会。4．指定时间必须在实验机房上机
5．最终成绩包括平时成绩（30％）和最终考核成绩（70％）
6．实验设计内容必须以老师指定的题目为准，老师指定的题目为最终检查的依据 三．内容：
1． 仿照windows记事本应用程序，要求实现新建，打开，保存文件，对文本进行字体颜色编辑，对文本实现查找，能够复制粘贴功能。
2． 学生成绩管理系统要求实现用户登陆管理，浏览、添加、删除和修改学生的成绩信息，提供多种成绩的查询方式。1)登陆模块
每个用户只有三次登陆机会，三次均未能输入正确的用户名和密码，系统将强行推出。参考界面如下所示
2）主控模块
进入系统主界面后，自动打开学生成绩数据库，“学号”，“姓名”，“班级”，“英语”，“VB”，“数据库”6个字段分别绑定相应文本框，“总分”和“平均分”的内容根据“英
语”，“VB”，“数据库”文本框内容的改变而改变。
单击“首记录”，“尾记录”，“上一条”，“下一条”按钮可以浏览数据库，但不能修改记录。通过选择相关菜单命令可以执行相应的操作。其中执行“输入”和“修改”命令后，“首记录”和“尾记录”按钮隐藏，“上一条”，“下一条”按钮变为“确定”和“取消”按钮，参考界面如下：
3）查询模块
可以通过选择不同的菜单命令进入查询模块后，根据用户输入不同的查询条件在查询窗体中显示查询菜单，参考图如下所示：
根据不同的查询所得查询界面参考下图：
3.弹球游戏要求理解游戏玩法，正确设计游戏规则，合理设计实现算法，参照演示程序实现功能。
4．图书馆管理系统要求实现功能有：用户登陆，图书的借阅和归回，图书信息的添加，修改，查询和删除操作。
5.打字练习程序要求自行设计程序界面，能够实现打字测试和打字练习功能，对打字正确率和速度进行测试，并给出测试结果。
6． 超市销售管理系统要求实现登陆管理，超市销售商品管理（销售商品的添加、删除和修改）查看超市的全部销售记录，可按销售记录号、销售商品名称查询相关销售记录、销售统计等功能。
7.小型测试系统的设计与实现要求能够随机生成20道数学计算题（要求有加，减，乘，除运算，规定操作数的个数），对用户结果进行判断，并能最终计算总成绩，要求用户在规定的时间内做完试题，超时自动终止并给出成绩。
8.仓库管理系统要求实现注册登陆功能，对仓库信息的添加、删除和修改，入库和出库的登记和查询操作等。
9.猜数字游戏要求：游戏开始电脑随机产生一个数字不重复的四位数；将猜的数填在框内按回车或者确定按钮提交；电脑会将提交的数与它自动产生的数进行比较，结果显示成“*A*B”。A代表位置正确数字也正确，B代表数字正确但位置不正确，比如：“2A2B”表示有2个数字的位置正确且数值也正确，除此以外，还猜对了2个数字，但位置不对；共有10次机会，在10次内，如果结果为“4A0B”，游戏成功。如果10次里都没有猜对游戏失败。
10.工资管理系统：建立职工数据库表，能够存储每个职工当月的工资信息，包括：编号、部门、姓名、基本工资、岗位工资、职务补贴、奖金、房租、水电费、实发工资等数据。系统应具有增加人员、删除人员、查询数据、修改数据、统计实发工资、报表输出、退出系统等功能。
学生成绩管理系统一、功能描述
首先简单地阐述本人所要实现系统的目的，然后应较详细的叙述本系统所要实现的功能。
************ *******
二、概要设计
1、系统功能模块框图设计
根据功能描述，建立系统的体系结构，即将整个系统分解成若干子功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能。
程序流程框图如图所示：（仅供参考）
图1 程序流程图
2、数据库设计
包括数据库的组成说明，数据库中各表的结构说明（包括字段名、字段类型等），可以包含图片例如下表：
表1 学生信息表
三、详细设计
详细说明主要窗体的实现过程，包括窗体的设计图片及其上所包含的控件名和属性设置；
详细说明主要操作的代码实现过程，包括过程间的调用关系（注：在此给出不完全代码）。如下所示：
1、账号登录
帐号登录模块中登录与注册两按钮，单击注册会进入注册模块中，单击登录会进入系统进行下一步的操作，帐号文本框与数据库相连接，当在帐号文本框输入帐号后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该帐号，且该帐号的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该账号或密码与帐号不相匹配，则会提示“帐号或密码错误”，帐号文本框会得到焦点，让重新输入。
（1）窗体截图（如图2）
图2 注册窗体
（2）功能实现
2、学生信息查询窗体
图3 查询窗体
四、调试中存在的问题及解决方法
包括调试过程中遇到的主要问题及采取的解决方法。例如：
1、注册账号出现的错误
数据库中帐号被设为主键，当注册时的帐号与数局库中的帐号有相同时就会出错。
2、解决方法：在写入数据库前先进行查询数据库
五、心得体会
本人在本次实习中取得的收获、遇到的困难、如何面对和克服各种困难、本系统的不足之处，将要改进的思想等。
六、参考文献
[1] 罗朝盛.Visual Basic 程序设计教程(第3版).人民邮电出版社，2009年2月
[2] [3]
七、附录
包括全部源程序清单(程序中应有足够的注释)。