VB程序设计实训报告

《VB程序设计》实训报告

实训名称：教学信息管理系统实训

专业：计算机应用技术

班级：计算机10A1

学号：*********

姓名：陈健

指导教师：***

2011 年6月18 日

实训成绩

一、实训目的

1. 学会综合运用VB有关的控件、函数和对象的知识，掌握VB的程序设计方法和技术。

2.通过一个教学信息管理系统的开发，掌握VB与ACCESS数据库的综合编程方法。

3. 掌握ACCESS数据库的设计；数据库的连接；绑定控件的属性设置、ADO数据控件的属性和方法；功能模块的编程和实现方法。

4.提高学生分析和解决实际问题的能力，调试和分析应用程序的能力，达到一定的应用程序设计水平。

二、实训报告内容

2.1实训内容：

教学信息管理系统采用C/S体系结构，采用Visual Basic 6.0作为开发工具，采用ACCESS数据库作为后台管理。

1.根据需求分析，创建ACCESS数据库和数据表

2.主窗体和系统菜单设计

3.用户管理，用户登录界面设计

4.学生信息管理模块设计

5.课程管理、班级管理、教师管理模块设计

6.学生成绩管理模块设计

根据实训项目各个模块任务要求，进行程序设计和调试。实现信息的录入、编辑修改、删除、浏览功能，能实现信息的一般查询功能和条件查询功能，并进行系统总体整合和调试。

2.2 实训设备或软、硬件

1. PC计算机，Windows XP操作系统

2.Visual Basic 6.0集成开发环境

3.ACCESS 2003数据库系统

三、结论

经过近两周的实训，我发现我对《VＢ程序设计》这门课有了更深的了解，以下是我对这次实训所做的总结：

这次实训做的是“教学信息管理系统”，需要掌握ＶＢ与ＡＣＣＥＳＳ数据库的综合编程方法，所以首先要熟练掌握ＡＣＣＥＳＳ数据库的创建。

实训第一天，我首先了解了这次实训的目的及意义；然后便是完成当天的主要任务，即根据“教学信息管理系统”中的需求分析，创建ＡＣＣＥＳＳ数据库及数据表。结合实际，需要在数据库中创建学生信息表、课程信息表、学生成绩表、班级信息表、教师信息表、教学安排表、用户表、创建查询等八个数据表。在创建学生成绩表和教学安排表时我发现一个数据表中可以设置多个主键。在录入数据的时候，各个表格之间的相同数据项必须也要录入相同的数据。如果表格之间的数据没有联系起来，将会在后面的程序调试时出现一些影响。

在数据库及数据表创建完成之后，接下来便是主窗体和系统菜单的设计。主窗体是负责应用程序的主界面，因此应该具有操作性好、界面清晰等特点，而且由于设计这个系统是供人使用的，所以也要讲

究美观，使用户在使用时能够感觉到舒适方便。为使用户更方便的使用，系统菜单的设计应该包括系统管理、学生管理、班级管理、课程管理、成绩管理、教师管理、教学安排及帮助项等八个菜单项。可以通过点击界面中的菜单项进入相应的功能界面。在菜单项设计完后，需要在主窗体上添加ｓｔａｔｕｓｂａｒ控件和ｔｉｍｅｒ控件，在添加ｓｔａｔｕｓｂａｒ控件时，要注意控件窗格的个数及宽度。另外为了界面的美观，可以在主界面的其他部分添加Ｉｍａｇｅ控件，添加一张漂亮的图片。

主界面设计完成后，紧接着就是用户登录界面的设定。这时便需要用到ＡＤＯ数据控件，所以必须熟练地掌握ＡＤＯ数据控件的使用方法。通过ＡＤＯ数据控件使登录窗口与ＡＣＣＥＳＳ数据库连接起来。在设置ＡＤＯ控件的属性时，有许多需要注意的地方。首先在设置数据连接属性时，一定要选择测试连接，如果连接不成功，则需要从新设置。在设置完数据连接属性后，在ＡＤＯ控件属性窗口设置ＲｅｃｏｒｄＳｏｕｒｃｅ属性，在记录源属性页对话框中，命令类型选为２－ａｄＣｍｄＴａｂｌｅ选项，在“表或存储过程名称”中选择相应的用户表，千万不能选错，一旦选错将无法和数据库进行正确的连接。最后将Ａｄｏｄｃ１的Ｖｉｓｂｉｌｅ属性设置为Ｆａｌｓｅ，将ＡＤＯ控件隐藏起来。控件的属性设置好之后，将程序代码输入。在编写代码时，隐藏窗体的代码没有用ｕｎｌｏａｄｍｅ而是用到了ｍｅｈｉｄｅ，是因为ｍｅｈｉｄｅ是将窗体隐藏，但它实际上仍然在内存中；而ｕｎｌｏａｄｍｅ则是将所在窗体本身从

内存中移除。

接下来是对学生管理窗口的设计，学生管理窗口包括添加学生信息、修改删除学生信息和查询学生信息三个窗口。在这三个窗体中都需要设置照片显示，程序为Text9.Text = Text1.Text & ".bmp" Image1.Picture = LoadPicture(App.Path & "\zp\" & Text9.Text) 我在设置完成调试时这里总是出现问题，经过调试和探讨发现，首先照片的存放地点必须明确，其次照片的格式必须是ｂｍｐ格式，否则程序是无法读出相应的照片的。在设置“修改删除学生信息”窗体时，要注意设置提示信息，比如设置第一条信息的记录时的程序为：If Adodc1.Recordset.AbsolutePosition = adPosBOF Then

Adodc1.Recordset.MoveFirst

MsgBox "已经是第一条记录!", vbExclamation, "提示信息"

当用户所查询的信息已经是第一条记录时就会显示出提示信息。“修改删除学生信息”窗体设计完成后，就是对查询信息窗体的设计了。查询窗体的设计，很重要的一点是ＡＤＯ控件的属性设置与其他窗体有所不同，开始我把查询窗体的属性设置和其他窗体设置成一样，发现调试后根本不能完成查询，通过老师的讲解和同学的帮助我才发现查询窗体的ＡＤＯ属性中的记录源命令类型应该选择１－ａ

ｄＣｍｄＴｅｘｔ，并在命令文本中输入ｓｅｌｅｃｔ＊ｆｒｏｍ……才能正确的实现查询功能。

在学生管理窗口设计完成后，其他窗口也是按照“学生管理”窗口中添加、修改删除和查询三个窗口来设计的。要注意的是在“成绩