vb程序设计课程设计题目（五篇材料）

第一篇：vb程序设计课程设计题目

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.工资管理系统：建立职工数据库表，能够存储每个职工当月的工资信息，包括：编号、部门、姓名、基本工资、岗位工资、职务补贴、奖金、房租、水电费、实发工资等数据。系统应具有增加人员、删除人员、查询数据、修改数据、统计实发工资、报表输出、退出系统等功能。

第二篇：VB程序设计课程设计

VB程序设计课程设计

1、目的

VB程序设计课程设计是考察学生对VB程序设计课程相关知识点掌握情况的重要环节，也是激励学生进一步学习VB、提高运用VB开发实际计算机程序的能力。课程设计的重点在于学生利用VB开发程序的能力。

2、课程设计题目

学生信息管理系统

3、程序功能

该程序具有建立数据库，建立数据库表，添加数据，删除数据，查询学生每学期成绩、不及格情况、积点情况等相关信息的功能。

4、实现要求

每个学生建立一个数据库（名字自拟），数据库中建立学生基本信息表（学号、姓名、性别、出生年、出生月、出生日、联系电话、年级、班级、住址等）、学生成绩表（学号、课程号、成绩、学期等）、课程信息表（课程号、课程名称、出版社、出版日期、版次、页码、价格、课程类型（基础课、专业基础课、选修课等）、开课学院等）。

把课程信息、每一学期的成绩等分别输入相应的表中，其中学生基本信息表记录不少于5个学生的信息。

在以上数据的基础上，实现相关的程序功能（不仅仅第3条指定的功能）。

设计多界面程序，相关查询结果应由不同的界面显示，每个同学显示结果的形式应尽量不同。

5、考核

根据学生实现程序功能多少（40分）、界面设计情况（20分）、课程设计报告撰写情况（20）、答辩情况（20分）进行考核。雷同者应重做。

6、课程设计报告内容

1）课程设计题目

2）课程设计的目的3）程序功能介绍

4）程序界面设计与控件属性设置

5）程序代码编写

6）程序演示（将运行过程用截图方式截下来，并对输入数据、输出的结果进行适当说明）

7）课程学习与课程设计心得体会

7、上交材料

本次课程设计以小班为单位上交如下资料：

1）光盘：每一小班建立一个目录（专业年级班级），在此目录下建立每个同学的目录（学号姓名），在每个同学的目录下保存该同学的电子版的课程设计报告、打包的程序。

2）纸制版的课程设计报告

第三篇：程序设计与算法语言课程设计题目

程序设计与算法语言课程设计大纲

理学院数学系所开设的程序设计与算法语言课程设计是教学实践环节中一项重要内容，进行此课程设计的旨在：

1．提高和加强学生的计算机应用与软件开发能力，使学生由初学者向专业的程序员过渡。

2．培养学生独立分析问题、解决问题、查阅资料以及自学能力，以适应计算机产业日新月异发展的形势。

3．学习和掌握C或C++程序设计方法以及上机调试技巧，为今后学习其它专业课程打好基础。

本次课程设计是以学生独立思考解决问题为主，教师指导为辅，结合上机操作，完成指定的任务，作出设计报告。

具体安排如下：

采用C或C++进行程序设计，设计以下系统，任意选一个题目。1．职工信息管理

职工信息包括职工号、姓名、性别、年龄、学历、工资、住址、电话等（职工号不重复）。试设计一职工信息管理系统，系统以菜单方式工作，使之能提供以下功能：  职工信息录入功能(职工信息用文件保存) 职工信息浏览功能

 查询和排序功能：按工资查询和按学历查询或按年龄等查询  职工信息删除、修改功能  统计功能 2．图书管理

图书信息包括：登录号、书名、作者名、分类号、出版单位、出版时间、价格等。试设计一图书信息管理系统，系统以菜单方式工作，使之能提供以下功能：  图书信息录入功能(图书信息用文件保存) 图书信息浏览功能

 查询和排序功能，按书名查询和按作者名查询或价格等查询  图书信息的删除与修改  统计功能 3．学生成绩管理

 数据输入：如果没有数据文件，从键盘输入学生数据（包括学生的学号、姓名、性别、年龄及五门功课的成绩），并保存到磁盘文件“*.txt”。如果有数据文件，则可向该文件写数据。

 数据查询：根据姓名或学号，查找相应学生的信息并在屏幕上显示。 修改数据：修改某名学生的某门课的成绩（注意修改的权限）。 统计数据：按学号升序显示全部学生的信息；

 按平均分降序打印全部学生的信息，并保存到磁盘文件“.txt”；  统计不及格课程学生的信息。 对上题的学生数据原型为：

99101

李强

男

99102

王丽

女

...........................4．作一个背单词的小程序

设计一背单词的小程序，程序以菜单方式工作，字典使用文本文件存放就可以了。使之能提供以下功能：  添加新词

 支持顺序测验和随即测验  记录没背过的词

 查找单词的汉语或英语意思（输入中文查对应的英语意思，输入英文查对应汉语意思）

5．宾馆客房管理

宾馆的客房信息包括客房号、客房类型、客房价格、空闲情况、客人姓名、客人身份证号、入住时间、退房时间，预付费用等信息。试设计一宾馆客房管理系统统，系统以菜单方式工作，使之能提供以下功能：  客房信息的录入功能  客人入住登记  客人退房结算

 客房信息浏览功能，浏览全部客房的信息

 客房信息查询：查询空房间情况、按姓名或房间号查询  客房信息的删除、修改功能 6．电脑报价

电脑各部件的信息包括：部件名、价格、分类号、型号，厂商、报价时间等。试设计一电脑报价系统，系统以菜单方式工作，使之能提供以下功能：  添加电脑各部件的信息功能(用文件保存) 查询功能，按类型、价格等查询  生成报价单

 电脑各部件的信息的删除与修改 7．工资管理

一高校有五类职工：教师，实验员，行政人员，教师兼职实验员，行政人员兼职教师。现要求编写程序来完成如下功能：

 职工工资的输入

 职工工资的删除和修改  查询和统计功能  输出显示。

其中工资的基本构成如下：

教师:基本工资（1000）+课时费（月工作量—24）X30； 实验员:基本工资（800）+实验室补助（150）； 行政人员：基本工资（900）+行政补贴（250）； 教师兼职实验员：基本工资（1000）+课时费[（月工作量—12）X30]+实验室补助（150）； 行政人员兼职教师：基本工资（900）+行政补贴（210）+课时费（月工作量X30）； 8．学生通讯系统

学生通信录信息包括：姓名、学号、年龄、性别、家庭住址、联系电话、寝室号等信息。现要求编写程序来完成如下功能：

 学生通信录信息的输入

 学生的通信录信息删除和修改  学生的通信录信息查询和统计功能  学生的通信录信息输出显示。9.模拟物体的自由落体

内容：模拟一个物体的自由落体过程。从“高空”释放一个物体，它在下降的过程中速度会越来越快，落地反弹后在上升的过程中它的速度会越来越慢。要求：联系判断和循环语句的使用，延迟函数的使用。

10.大整数阶乘新思路

内容：实现一个计算大整数阶乘的程序。通常使用递归来计算一个整数的阶乘。但是，应为计算本身能够表示的最大整数是有限的。所以能够计算的阶乘整数要受到限制。本程序用数组来存储足够大的数组就能计算任意大的整数。要求：巧用算数运算符和数组实现大整数的阶乘计算。

11.多样的立方体

在DOS环境下用C语言中的图像函数制作一系列立方体图，从一系列变化的立方体中抽选出几个，并且立方体的大小和位置在不断的变化，然后做了一系列正面不同填充的变化。要求：使用循环语句和制图函数。

12.简易时钟 内容：在DOS环境下用C语言中的图形函数制作一个简易时钟，这个时钟由圆和直线构成，时钟所取时间为系统的当前时间，并且每个1秒刷新一次图像。要求：使用宏定义、循环语句和制图函数。13.用柱状图表示学生成几个分段比率

内容：随机生成N个学生的成绩，并且计算每个分数段学生的人数，然后使用柱状图在屏幕上显示学生成绩的分布情况。要求：使用循环语句和制图函数。

14、简单图形处理系统

设某图形处理程序只考虑点、直线、圆三种基本图形。对于点，给出点的横纵坐标；对于直线，给出直线方程ax+by+c＝0的三个系数a，b，c；对于圆，给出圆心坐标和半径。试说明图形的几何形状类型，并编写输入和输出图形数据、求两点矩离、求两直线交点、已知点和半径形成圆、已知两点形成直线等函数。

15、模拟时钟转动程序

要求： 能模拟机械钟表行走，还要准确地利用数字显示日期和时间，在屏幕上显示一个活动时钟，按任意键时程序退出。

16、皇后问题

在国际象棋中，能否在空棋盘上摆放八个皇后，并使其中任意两个皇后不能在同一行或同一列或同一对角线上，并编写完整的摆放八皇后问题的程序。要求：第一个皇后的起始位置由键盘输入，国际象棋的棋盘为8*8的方格。

17.红旗图案的制作

内容：在DOS环境下用C语言中的图形函数制作一个红旗。关键点是模拟出红旗的波浪形状。

要求：使用宏定义、循环语句和制图函数。

18、双向链表的排序

要求：输入一个双向链表，显示些双向链表并对此双向链表排序

19、学生籍贯信息记录簿

编制一个学生籍贯信息记录簿，每个学生信息包括：学号、姓名、籍贯。具体功能：

（1）创建信息链表并以磁盘文件保存；

（2）读取磁盘文件并显示输出所有学生的籍贯信息；

（3）按学号或姓名查询其籍贯；

（4）按籍贯查询并输出该籍贯的所有学生；（5）能添加、删除和修改学生的籍贯信息；

（6）显示输出四川籍和非四川籍学生的信息并可分别存盘。20、学生选修课程系统设计

假定有n门课程，每门课程有课程编号，课程名称，课程性质，总学时，授课学时，实验或上机学时，学分，开课学期等信息，学生可按要求（如总学分不得少于60）自由选课。试设计一选修课程系统，使之能提供以下功能： 系统以菜单方式工作? 课程信息录入功能(课程信息用文件保存)－－输入? 课程信息浏览功能－－输出? 查询功能：(至少一种查询方式)－－算法? 按学分查询? 按课程性质查询? 学生选修课程(可选项)? 21.设计一个简单计算器

要求: 在功能上功能尽量模拟windows操作系统中的计算器，系统界面不做强制要求。

22、编写一万年历系统

要求: 模仿现实生活中的挂历.当前页以系统当前日期的月份为准显示当前月的每一天(显示出日及对应的星期几).当系统日期变到下一月时,系统自动翻页到下一月

23、成绩排序

假设某年级有4个班，每班有45名同学。本学期有5门课程考试，每门课程成绩是百分制。假定每个同学的成绩记录包含：学号、姓名各门课程的成绩共7项，其中学号是一个10位的字符串，每个学生都有唯一的学号，并且这4个班的成绩分别放在4个数组中，完成以下操作要求：

⑴ 编写一个成绩生成函数，使用随机数方法，利用随机函数生成学生的各门课程的成绩（每门课程的成绩都是0∽100之间的整数），通过调用该函数生成全部学生的成绩；

⑵ 编写一个平均成绩计算函数，计算每个同学的平均成绩并保存在成绩数组中； ⑶ 用冒泡排序法对4个班的成绩按每个同学的平均成绩的以非递增方式 进行班内排序；

⑷ 用选择排序法对4个班的成绩按每个同学的平均成绩的以非递增方式进行班内排序；

⑸ 对已按平均成绩排好序的4个班的同学的构造一个所有按平均成绩的以非递增方式排列的新的单链表；

⑹ 设计一个菜单，至少具有上述操作要求的基本功能。

24、航班信息管理 问题描述：

飞机航班系统的数据包括两部分：

① 航班信息：航班号、最大载客数、起飞地点、起飞时间、降落地点、降落时间，单价；

② 乘客信息：航班号、身份证号码、姓名、性别、出生年月、座位号。乘客订票的主要方式是：乘客提出航班号、起飞地点、起飞时间、降落地点、订票数等订票要求，根据事先保存的航班数据决定乘客能否订票？只有全部满足了乘客的订票要求并且所订航班有足够的未订座位之后才能完成订票处理，并且修改该航班的未订座位数（每个航班的未订座位数的初始值就是该航班的最大载客数）；否则，订票失败，并且给出不能订票的原因。

要求将航班数据保存在数据文件中，在处理时按航班的起飞地点建立不同的链表。

功能要求 ：

⑴ 增加航班记录。将新的航班记录增加到原有的航班数据文件中。在进行处理时必须检查所要增加的航班记录是否存在，如果已经存在，应给出提示信息后停止增加；

⑵ 航班取消。如果某次航班的乘客数太少（已订票的少于本次航班最大载客数的10%），将取消该航班，但该航班的记录仍然保存在原有的航班数据文件中； ⑶ 航班查询。应该有以下几种基本的查询方式：按航班号、按起飞地点和起飞时间、按降落地点，按起飞地点和降落地点；

⑷ 航班订票。按上述问题描述中的乘客订票方式完成航班订票处理。⑸ 设计一个菜单，至少具有上述操作要求的基本功能。

25、猴子摘桃子 问题描述：

五只猴子一起摘了一堆桃子，因为太累，五只猴子决定先睡一觉再分。不久，其中一只猴子醒来了，它见别的猴子没有醒来，便将一堆桃子平均分成 5 份，结果多了一个，就将多的这个吃了，拿走其中的一份并离开。又不久，第二只猴子醒来了，它不知道有一个同伴已经拿走过桃子，便又将剩下的桃子平均分成 5 份，发现也多了一个，同样吃了这一个，拿走其中的一份。如此类推第3只，第4只，第5 只猴子都是这样分、吃、拿走。问这5只猴子至少摘了多少个桃子？ 根据上述描述，编制程序解决问题。

26、运动会管理系统 问题描述：

校际运动会管理系统。设有n个学校参加校际运动会，共有男子竞赛项目数m，女子竞赛项目数w。每个学校可以参加所有竞赛项目，也可以只参加部分竞赛项目，每个学校对每个项目的参赛运动员不能超过4人，每个运动员最多只能参加3项单项比赛，团体赛不受限制。

各项目名次取法有如下几种：用户自定义：（各名次权值由用户指定）

① 参赛人数超过6人，取前5名：第1名得分 7，第2名得分 5，第3名得分3，第4名得分2，第5名得分 1；

②参赛人数不超过6人，取前3名：第1名得分 5，第2名得分 3，第3名得分2；

③ 团体项目的名次取法和上面相同，但分数加倍。功能要求 ：

⑴ 运动员报名登记，以学校为单位进行运动员报名登记，登记的限制要求按问题描述的要求；

⑵ 参赛信息查询，查看参赛学校信息和比赛项目信息； ⑶ 竞赛检录，每项比赛开始前完成参赛运动员的检录； ⑷ 竞赛成绩登记，填写比赛名次，然后根据竞赛检录的运动员人数和上述的记分方式自动完成各学校的成绩登记并实时生成各学校的团体总分；

⑸ 比赛成绩查询，可以按竞赛项目、参赛学校、参赛运动员查看比赛成绩； ⑹ 竞赛成绩排序，以学校为单位，按总成绩的高低，分别排序输出每个学校的总成绩、男子总成绩、女子总成绩；

⑺ 设计一个菜单，至少具有上述操作要求的基本功能。

27、集合运算

设有两个用单链表表示的集合A、B，其元素类型是int且以非递减方式存储，其头结点分别为a、b。要求下面各问题中的结果集合同样以非递减方式存储，结果集合不影响原集合。实现要求：

⑴ 编写集合元素测试函数IN_SET，如果元素已经在集合中返回0，否则返回1； ⑵ 编写集合元素输入并插入到单链表中的函数INSERT_SET，保证所输入的集合中的元素是唯一且以非递减方式存储在单链表中；

⑶ 编写集合元素输出函数，对建立的集合链表按非递增方式输出； ⑷ 编写求集合A、B的交C=A∩B的函数，并输出集合C的元素； ⑸ 编写求集合A、B的并D=A∪B的函数，并输出集合D的元素；

⑹ 求集合A与B的对称差E=(A-B)∪(B-A)的函数，并输出集合D的元素； ⑺ 设计一个菜单，具有输入集合元素、求集合A、B的交C、求集合A、B的并D、求集合A与B的对称差E、退出等基本的功能。

测试数据：由读者自定，但集合A、B的元素个数不得少于16个。

第四篇：VB 课程设计

学生成绩管理系统一、功能描述

首先简单地阐述本人所要实现系统的目的，然后应较详细的叙述本系统所要实现的功能。

************ *******

二、概要设计

1、系统功能模块框图设计

根据功能描述，建立系统的体系结构，即将整个系统分解成若干子功能模块，并用框图表示各功能模块之间的衔接关系，并简要说明各模块的功能。

程序流程框图如图所示：（仅供参考）

图1 程序流程图

2、数据库设计

包括数据库的组成说明，数据库中各表的结构说明（包括字段名、字段类型等），可以包含图片例如下表：

表1 学生信息表

三、详细设计

详细说明主要窗体的实现过程，包括窗体的设计图片及其上所包含的控件名和属性设置；

详细说明主要操作的代码实现过程，包括过程间的调用关系（注：在此给出不完全代码）。如下所示：

1、账号登录

帐号登录模块中登录与注册两按钮，单击注册会进入注册模块中，单击登录会进入系统进行下一步的操作，帐号文本框与数据库相连接，当在帐号文本框输入帐号后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该帐号，且该帐号的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该账号或密码与帐号不相匹配，则会提示“帐号或密码错误”，帐号文本框会得到焦点，让重新输入。

（1）窗体截图（如图2）

图2 注册窗体

（2）功能实现

2、学生信息查询窗体

图3 查询窗体

四、调试中存在的问题及解决方法

包括调试过程中遇到的主要问题及采取的解决方法。例如：

1、注册账号出现的错误

数据库中帐号被设为主键，当注册时的帐号与数局库中的帐号有相同时就会出错。

2、解决方法：在写入数据库前先进行查询数据库

五、心得体会

本人在本次实习中取得的收获、遇到的困难、如何面对和克服各种困难、本系统的不足之处，将要改进的思想等。

六、参考文献

[1] 罗朝盛.Visual Basic 6.0程序设计教程(第3版).人民邮电出版社，2009年2月

[2] [3]

七、附录

包括全部源程序清单(程序中应有足够的注释)。

第五篇：VB课程设计

课程设计

学 院 班 级

指导老师

姓 名 学 号 成 绩

2013年 月 10

日

一．课程设计题目

学生管理系统

二．功能描述

按设定的用户名密码进行登录后，可按需求进行对数据库中已有的学生信息及成绩进行查询，添加，删除，修改等操作。

三．概要设计

登录界面功能：让用户进行登录。主界面功能：让用户选择进行哪项操作。

查询学生信息菜单功能：输入学生学号，对该学生的个人信息以

及成绩进行查询，若直接点击查询按钮，则显示全部学生个人信息及成绩。

编辑学生信息菜单功能：可对数据库中已有的学生信息进行查

询，添加，删除，修改等操作。

学生信息维护菜单功能：可对数据库中已有的学生成绩进行查

询，添加，删除，修改等操作。

四．详细设计

五．效果以及存在问题

说明系统的运行效果（附上运行界面图片）、存在哪些不足以及预期的解决办法。

登录界面

登录学生管理系统

按查询条件查询

打开修改学生信息子窗口

学生成绩维护子窗口

垂直窗口排列

关于窗口

不足：1.没有实现用户登录界面中的注册功能

2.没有实现主界面中文件下的新建和保存功能。

六．心得体会

经过几天的苦战，终于把课程设计粗略的做完了。刚开始做的时候，毫无头绪，一片茫然。好在书本上有类似的实验，可以供参考。尽管如此，真正做起项目来，还是有着这样那样的困难，有时一个空格少打都会出错，导致我检查了半天才发现问题所在。由于VB语法还运用不熟练，很多代码都是模仿书本上的敲的，许多代码往往能编译通过，但很多都会抛出各种异常，让人头疼。有时系统就给出个有个参数没有被指定值，就可以让人搞的焦头烂额。因此，写程序真的也很需要强大的耐心，只要熬下去了，当你做出程序时，也会倍有成就感。目前，程序是基本写完了，平常学的理论都得到了运用，感觉自己的能力也增强了。一句话，实践才是硬道理。

七．附录代码

（附上各模块代码）

1.登录界面

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Static n As Integer

If txtName.Text = “abc” And txtPassWord.Text = “123” Then

Dim form2 As New Form2()

form2.Show()

Me.Close()

Else

n = n + 1

If n < 5 Then

MsgBox(“请输入正确的用户名和密码！”, MsgBoxStyle.Critical)

Else

MsgBox(“请输入正确的用户名和密码！”, MsgBoxStyle.Critical)

Button1.Enabled = False

End If

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click

Me.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click

Dim form3 As New Form3()

form3.Show()

Me.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

End Sub End Class

2.查询学生菜单代码

Public Class Form6

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS_KC As New OleDb.OleDbDataAdapter

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS_KC As New OleDb.OleDbCommand

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS_KC As New DataSet

Dim objDsXS As New DataSet

objConn.ConnectionString = “Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'”

objCommXS.CommandText = “ Select * From XS ”

objCommXS_KC.CommandText = “ Select * From XS_KC ”

objCommXS_KC.Connection = objConn

objDaXS_KC.SelectCommand = objCommXS_KC

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS_KC.Fill(objDsXS_KC, “XS_KC”)

objDaXS.Fill(objDsXS, “XS”)

objConn.Close()

DataGridView1.DataSource = objDsXS_KC.Tables(“XS_KC”)

DataGridView2.DataSource = objDsXS.Tables(“XS”)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS_KC As New OleDb.OleDbDataAdapter

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS_KC As New OleDb.OleDbCommand

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS_KC As New DataSet

Dim objDsXS As New DataSet

Dim WhereStr As String

WhereStr = “"

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 学号like “ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“

objCommXS.CommandText = ” Select * From XS “

objCommXS_KC.CommandText = ” Select * From XS_KC “

If WhereStr <> ”“ Then

objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr

objCommXS_KC.CommandText = objCommXS_KC.CommandText & ”where“ & WhereStr

End If

objCommXS_KC.Connection = objConn

objDaXS_KC.SelectCommand = objCommXS_KC

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS_KC.Fill(objDsXS_KC, ”XS_KC“)

objDaXS.Fill(objDsXS, ”XS“)

objConn.Close()

DataGridView1.DataSource = objDsXS_KC.Tables(”XS_KC“)

DataGridView2.DataSource = objDsXS.Tables(”XS“)

End Sub End Class

3编辑学生信息菜单

Public Class Form7

Dim objDs As New DataSet

Dim objxstable As DataTable

Dim objda As New OleDb.OleDbDataAdapter

Dim wherestr As String

Public Sub refreshdata()

objda.Update(objDs, ”XS“)

objxstable.Clear()

bindgridview(wherestr)

End Sub

Public Sub bindgridview(ByVal strXH As String)

Dim objConn As New OleDb.OleDbConnection

Dim objComm As New OleDb.OleDbCommand

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

wherestr = ” 学号like“ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:XSCJ.mdb'“

objComm.CommandText = ” Select * From XS “

If WhereStr <> ”“ Then

objComm.CommandText = objComm.CommandText & ”where“ & WhereStr

End If

'把objConn设置为objConn的数据连接

objComm.Connection = objConn

objda.SelectCommand = objComm

'创建INSERT Command

Dim InsCommand As New OleDb.OleDbCommand(”INSERT INTO XS(学号,姓名,专业名,性别,出生日期,总学分,备注)VALUES(?,?,?,?,?,?,?)“, objConn)

InsCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)

InsCommand.Parameters.Add(”姓名“, OleDb.OleDbType.VarChar, 8, ”姓名“)

InsCommand.Parameters.Add(”专业名“, OleDb.OleDbType.VarChar, 10, ”专业名“)

InsCommand.Parameters.Add(”性别“, OleDb.OleDbType.VarChar, 2, ”性别“)

InsCommand.Parameters.Add(”出生日期“, OleDb.OleDbType.Date, Nothing, ”出生日期“)

InsCommand.Parameters.Add(”总学分“, OleDb.OleDbType.Integer, Nothing, ”总学分“)

InsCommand.Parameters.Add(”备注“, OleDb.OleDbType.VarChar, Nothing, ”备注“)

objda.InsertCommand = InsCommand

'创建Delte Command

Dim delcommand As New OleDb.OleDbCommand(”DELETE * from XS where 学号=?“, objConn)

delcommand.Parameters.Add(”学号“, OleDb.OleDbType.Char, 6, ”学号“)

objda.DeleteCommand = delcommand

'创建Update Command

Dim updCommand As New OleDb.OleDbCommand(”UPDATE XS SET 学号=?,姓名=?,专业名=?,性别=?,出生日期=?,总学分=?,备注=? WHERE 学号=?“, objConn)

updCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)

updCommand.Parameters.Add(”姓名“, OleDb.OleDbType.VarChar, 8, ”姓名“)

updCommand.Parameters.Add(”专业名“, OleDb.OleDbType.VarChar, 10, ”专业名“)

updCommand.Parameters.Add(”性别“, OleDb.OleDbType.VarChar, 2, ”性别“)

updCommand.Parameters.Add(”出生日期“, OleDb.OleDbType.Date, Nothing, ”出生日期“)

updCommand.Parameters.Add(”总学分“, OleDb.OleDbType.Integer, Nothing, ”总学分“)

updCommand.Parameters.Add(”备注“, OleDb.OleDbType.VarChar, Nothing, ”备注“)

updCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)

objda.UpdateCommand = updCommand

objConn.Open()

'打开数据库连接

objda.Fill(objDs, ”XS“)'填充数据

objxstable = objDs.Tables(”XS“)

objConn.Close()

'关闭数据集

'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了

DataGridView1.DataSource = objDs.Tables(”XS“)

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellContentClick

TxtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString '显示学号

TxtStuXM.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString '显示姓名

TxtZY.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString '显示专业

TxtXB.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString '显示性别

TxtCSRQ.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString '显示出生日期

TxtStuZXF.Text = DataGridView1.CurrentRow.Cells.Item(5).Value.ToString '显示总学分

TxtBZ.Text = DataGridView1.CurrentRow.Cells.Item(6).Value.ToString '显示备注

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS As New DataSet

Dim WhereStr As String

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 学号like “ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“

objCommXS.CommandText = ” Select * From XS “

If WhereStr <> ”“ Then

objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr

End If

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS.Fill(objDsXS, ”XS“)

objConn.Close()

DataGridView1.DataSource = objDsXS.Tables(”XS“)

End Sub

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

wherestr = ”“

bindgridview(wherestr)

End Sub

Private Sub butAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butAdd.Click

Dim response As MsgBoxResult

response = MsgBox(”确定要添加记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)

If response = MsgBoxResult.Ok Then

Dim myRow As DataRow = objxstable.NewRow()

myRow(”学号“)= TxtStuXH.Text

myRow(”姓名“)= TxtStuXM.Text

myRow(”专业名“)= TxtZY.Text

myRow(”性别“)= TxtXB.Text

myRow(”出生日期“)= TxtCSRQ.Text

myRow(”总学分“)= TxtStuZXF.Text

myRow(”备注“)= TxtBZ.Text

objxstable.Rows.Add(myRow)

refreshdata()

End If

End Sub

Private Sub butEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butEdit.Click

Dim response As MsgBoxResult

response = MsgBox(”确定要修改记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)

If response = MsgBoxResult.Ok Then '用户选择“确定”

'修改学号

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(0)= TxtStuXH.Text

'修改姓名

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1)= TxtStuXM.Text

'修改专业

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2)= TxtZY.Text

'修改性别

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3)= TxtXB.Text

'修改出生日期

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4)= TxtCSRQ.Text

'修改总学分

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(5)= TxtStuZXF.Text

'修改备注

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(6)= TxtBZ.Text

refreshdata()'更新并刷新显示

End If

End Sub

Private Sub butDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butDelete.Click

Dim response As MsgBoxResult

response = MsgBox(”确定要删除记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)

If response = MsgBoxResult.Ok Then '用户选择“确定”

'除学生成绩表当前记录

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).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 OleDb.OleDbDataAdapter

Dim WhereStr As String

Public Sub refreshdata()

objDa.Update(objDs, ”XS_KC“)

objXSTable.Clear()

bindgridview(WhereStr)

End Sub

Public Sub bindgridview(ByVal strXH As String)

Dim objConn As New OleDb.OleDbConnection

Dim objComm As New OleDb.OleDbCommand

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 学号like“ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:XSCJ.mdb'“

objComm.CommandText = ” Select * From XS_KC “

If WhereStr <> ”“ Then

objComm.CommandText = objComm.CommandText & ”where“ & WhereStr

End If

'把objConn设置为objConn的数据连接

objComm.Connection = objConn

objDa.SelectCommand = objComm

'创建INSERT Command

Dim InsCommand As New OleDb.OleDbCommand(”INSERT INTO XS_KC(学号,课程号,成绩,学分)VALUES(?,?,?,?)“, objConn)

InsCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)

InsCommand.Parameters.Add(”课程号“, OleDb.OleDbType.VarChar, 4, ”课程号“)

InsCommand.Parameters.Add(”成绩“, OleDb.OleDbType.Integer, Nothing, ”成绩“)

InsCommand.Parameters.Add(”学分“, OleDb.OleDbType.Integer, Nothing, ”学分“)

objDa.InsertCommand = InsCommand

'创建Delte Command

Dim delcommand As New OleDb.OleDbCommand(”DELETE * from XS_KC where 序号=?“, objConn)

delcommand.Parameters.Add(”序号“, OleDb.OleDbType.Char, 6, ”序号“)

objDa.DeleteCommand = delcommand

'创建Update Command

Dim updCommand As New OleDb.OleDbCommand(”UPDATE XS_KC set 学号=?,课程号=?,成绩=?,学分=? where 序号=?“, objConn)

updCommand.Parameters.Add(”学号“, OleDb.OleDbType.VarChar, 6, ”学号“)

updCommand.Parameters.Add(”课程号“, OleDb.OleDbType.VarChar, 4, ”课程号“)

updCommand.Parameters.Add(”成绩“, OleDb.OleDbType.Integer, Nothing, ”成绩“)

updCommand.Parameters.Add(”学分“, OleDb.OleDbType.Integer, Nothing, ”学分“)

updCommand.Parameters.Add(”序号“, OleDb.OleDbType.Integer, Nothing, ”序号“)

objDa.UpdateCommand = updCommand

objConn.Open()

'打开数据库连接

objDa.Fill(objDs, ”XS_KC“)'填充数据

objXSTable = objDs.Tables(”XS_KC“)

objConn.Close()

'关闭数据集

'把DataGrid1的DataSource属性设置为刚刚取到的数据表，这样就可以显示数据了

DataGridView1.DataSource = objDs.Tables(”XS_KC“)

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellContentClick

txtStuXKID.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString '显示ID

txtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString '显示学号

txtStuKCH.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString '显示课程号

txtStuCJ.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString '显示成绩

txtStuXF.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString '显示学分

End Sub

Private Sub btnDdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butAdd.Click

Dim response As MsgBoxResult

response = MsgBox(”确定要添加记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)

If response = MsgBoxResult.Ok Then

Dim myRow As DataRow = objXSTable.NewRow()

myRow(”学号“)= txtStuXH.Text

myRow(”课程号“)= txtStuKCH.Text

myRow(”成绩“)= txtStuCJ.Text

myRow(”学分“)= txtStuXF.Text

objXSTable.Rows.Add(myRow)

refreshdata()

End If

End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butEdit.Click

Dim response As MsgBoxResult

response = MsgBox(”确定要修改记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)

If response = MsgBoxResult.Ok Then '用户选择“确定”

'修改学号

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1)= txtStuXH.Text

'修改课程号

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2)= txtStuKCH.Text

' 修改成绩

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3)= txtStuCJ.Text

'修改学分

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4)= txtStuXF.Text

refreshdata()'更新并刷新显示

End If

End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butDelete.Click

Dim response As MsgBoxResult

response = MsgBox(”确定要删除记录吗？“, vbOKCancel + vbQuestion, ”系统提示“)

If response = MsgBoxResult.Ok Then '用户选择“确定”

'除学生成绩表当前记录

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Delete()

refreshdata()'更新并刷新显示

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS As New DataSet

Dim WhereStr As String

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 学号like “ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“

objCommXS.CommandText = ” Select * From XS_KC “

If WhereStr <> ”“ Then

objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr

End If

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS.Fill(objDsXS, ”XS_KC“)

objConn.Close()

DataGridView1.DataSource = objDsXS.Tables(”XS_KC“)

End Sub

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

WhereStr = ”"

bindgridview(WhereStr)

End Sub End Class

5.主菜单界面代码

Public Class Form2

Private Sub quitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles quitMenuItem.Click

Me.Close()

End Sub

Private Sub importscoreMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles importscoreMenuItem.Click

Dim form4 As New Form4

form4.MdiParent = Me

form4.WindowState = FormWindowState.Normal

form4.Show()

End Sub

Private Sub updateinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles updateinfoMenuItem.Click

Dim form7 As New Form7

form7.MdiParent = Me

form7.WindowState = FormWindowState.Normal

form7.Show()

End Sub

Private Sub selectinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles selectinfoMenuItem.Click

Dim form6 As New Form6

Form6.MdiParent = Me

form6.WindowState = FormWindowState.Normal

form6.Show()

End Sub

Private Sub cascadeMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles cascadeMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub horizonMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles horizonMenuItem.Click

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub verticalMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles verticalMenuItem.Click

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub aboutMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles aboutMenuItem.Click

Dim form5 As New Form5

form5.MdiParent = Me

form5.WindowState = FormWindowState.Normal

form5.Show()

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton1.Click

selectinfoMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton2.Click

updateinfoMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton3.Click

importscoreMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton4.Click

cascadeMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton5.Click

aboutMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton6.Click

quitMenuItem.PerformClick()

End Sub

Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripStatusLabel1.Click

aboutMenuItem.PerformClick()

End Sub End Class

八．参考文库

百度文库，百度知道