vb课程设计题目 设备管理系统本科论文.doc

《vb课程设计题目 设备管理系统本科论文.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB程序设计课程设计课程设计题目设备管理系统目录一、课程设计的目的与要求二、任务描述对系统要实现的功能进行确切的描述。三、设计详细说明程序的设计思想，所用到的算法、数据结构技巧等四、效果及存在问题说明系统的运行效果（附上界面图形）、存在哪些不足以及预期的解决办法五、总结课程设计的目的与要求1、教学目的使学生在理论课程结束后，通过课程设计能进一步巩固对VB编程机制的理解，真正掌握运用VB进行软件开发的方法和原理，从而锻炼学生开发能力、程序调试的能力，及程序错误处理的能力。2、教学要求从课程设计的目的出发，通过课程设计的各个环节，达

2、到以下教学要求（1）进一步掌握VB语言程序设计的基本思想和方法；（2）掌握面向对象的可视化程序设计的基本原理及应用；任务描述建立设备数据库表，存储设备的信息，包括设备的名称、数量、型号、规格等信息；能够实现对设备的查询、修改、添加等操作。设计1、设备管理系统的功能1、查看设备：用来实现对设备的浏览、删除2、查询设备：用来实现对设备的查询3、添加设备：用来实现对设备的添加2、连接数据源利用ADO控件将Access数据源连接到程序中建立Access数据库打开Access，建立名为“设备”的数据库。在数据库中选择“使用设计器创建表”输

3、入名称、型号、单价、数量、规格、购买日期。保存命名为“设备管理”。3、窗体名称标题From1登陆界面From2查看设备From3添加设备From4查找设备（1）登陆界面From1代码如下：PrivateSubCommand1_Click()Form2.ShowEndSub（2）查看设备Form2代码如下：PrivateSubCommand1_Click()Adodc1.Recordset.MovePrevious’数据移到上一条IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirs

4、tMsgBox"已经是第一条"EndIfEndSubPrivateSubCommand2_Click()Adodc1.Recordset.MoveNext’数据移到下一条IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastMsgBox"已经是最后一条"EndIfEndSubPrivateSubCommand3_Click()Form3.ShowEndSubPrivateSubCommand4_Click()Form4.ShowEndSubPrivateSubCommand5_Cl

5、ick()OnErrorResumeNextIfMsgBox("确定删除该记录？",vbOKCancel,"提示")=vbOKThenAdodc1.Recordset.Delete’删除正显示的记录Adodc1.Recordset.MoveNext’显示下一条数据IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndIfEndSubPrivateSubCommand6_Click()EndEndSubPrivateSubCommand7_Click()Adodc1.

6、Recordset.MoveFirst’显示第一条数据EndSubPrivateSubCommand8_Click()Adodc1.Recordset.MoveLast’显示最后一条数据EndSub（3）添加设备Form3代码如下：PrivateSubCommand1_Click()Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(1)=Trim(Text1)Adodc1.Recordset.Fields(2)=Trim(Text2)Adodc1.Recor

7、dset.Fields(3)=Trim(Text3)Adodc1.Recordset.Fields(4)=Trim(Text4)Adodc1.Recordset.Fields(5)=Trim(Text5)Adodc1.Recordset.Fields(6)=Trim(Text6)’将文本框中的值赋值给数据库Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox"该设备已添加"EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.

8、Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""EndSubPrivateSubCommand3_Click()UnloadMeForm2.ShowEndSubForm4代码如下：Privat