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

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

《vb课程设计题目设备管理系统本科论文.docx》由会员分享，可在线阅读，更多相关《vb课程设计题目设备管理系统本科论文.docx（12页珍藏版）》请在冰豆网上搜索。

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

VB程序设计

课程设计

课程设计题目

设备管理系统

目录

一、课程设计的目的与要求

二、任务描述

对系统要实现的功能进行确切的描述。

三、设计

详细说明程序的设计思想，所用到的算法、数据结构技巧等

四、效果及存在问题

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

五、总结

课程设计的目的与要求

1、教学目的

使学生在理论课程结束后，通过课程设计能进一步巩固对VB编程机制的理解，真正掌握运用VB进行软件开发的方法和原理，从而锻炼学生开发能力、程序调试的能力，及程序错误处理的能力。

2、教学要求

从课程设计的目的出发，通过课程设计的各个环节，达到以下教学要求

（1）进一步掌握VB语言程序设计的基本思想和方法；

（2）掌握面向对象的可视化程序设计的基本原理及应用；

任务描述

建立设备数据库表，存储设备的信息，包括设备的名称、数量、型号、规格等信息；能够实现对设备的查询、修改、添加等操作。

设计

1、设备管理系统的功能

1、查看设备：

用来实现对设备的浏览、删除

2、查询设备：

用来实现对设备的查询

3、添加设备：

用来实现对设备的添加

2、连接数据源

利用ADO控件将Access数据源连接到程序中

建立Access数据库

打开Access，建立名为“设备”的数据库。

在数据库中选择“使用设计器创建表”输入名称、型号、单价、数量、规格、购买日期。

保存命名为“设备管理”。

3、窗体

名称

标题

From1

登陆界面

From2

查看设备

From3

添加设备

From4

查找设备

（1）登陆界面

From1代码如下：

PrivateSubCommand1_Click（）

Form2.Show

EndSub

（2）查看设备

Form2代码如下：

PrivateSubCommand1_Click（）

Adodc1.Recordset.MovePrevious’数据移到上一条

IfAdodc1.Recordset.BOFThen

Adodc1.Recordset.MoveFirst

MsgBox"已经是第一条"

EndIf

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.MoveNext’数据移到下一条

IfAdodc1.Recordset.EOFThen

Adodc1.Recordset.MoveLast

MsgBox"已经是最后一条"

EndIf

EndSub

PrivateSubCommand3_Click（）

Form3.Show

EndSub

PrivateSubCommand4_Click（）

Form4.Show

EndSub

PrivateSubCommand5_Click（）

OnErrorResumeNext

IfMsgBox（"确定删除该记录？

",vbOKCancel,"提示"）=vbOKThen

Adodc1.Recordset.Delete’删除正显示的记录

Adodc1.Recordset.MoveNext’显示下一条数据

IfAdodc1.Recordset.EOFThen

Adodc1.Recordset.MoveLast

EndIf

EndIf

EndSub

PrivateSubCommand6_Click（）

End

EndSub

PrivateSubCommand7_Click（）

Adodc1.Recordset.MoveFirst’显示第一条数据

EndSub

PrivateSubCommand8_Click（）

Adodc1.Recordset.MoveLast’显示最后一条数据

EndSub

（3）添加设备

Form3代码如下：

PrivateSubCommand1_Click（）

Adodc1.Refresh

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields

（1）=Trim（Text1）

Adodc1.Recordset.Fields

（2）=Trim（Text2）

Adodc1.Recordset.Fields（3）=Trim（Text3）

Adodc1.Recordset.Fields（4）=Trim（Text4）

Adodc1.Recordset.Fields（5）=Trim（Text5）

Adodc1.Recordset.Fields（6）=Trim（Text6）’将文本框中的值赋值给数据库

Adodc1.Recordset.Update

Adodc1.Recordset.MoveLast

MsgBox"该设备已添加"

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

Text6.Text=""

EndSub

PrivateSubCommand3_Click（）

UnloadMe

Form2.Show

EndSub

Form4代码如下：

PrivateSubCommand1_Click（）

DimcheckAsInteger

Adodc1.Refresh

Adodc1.Recordset.MoveFirst

M=Trim（Text1）

WhileAdodc1.Recordset.EOF<>True

IfAdodc1.Recordset.Fields

（1）=MThen

Text2.Text=Adodc1.Recordset.Fields

（2）

Text3.Text=Adodc1.Recordset.Fields（3）

Text4.Text=Adodc1.Recordset.Fields（4）

Text5.Text=Adodc1.Recordset.Fields（5）

Text6.Text=Adodc1.Recordset.Fields（6）

check=check+1’用循环语句判断文本框中的

EndIf值是否等于数据库中相应

Adodc1.Recordset.MoveNext的值

Wend

Adodc1.Refresh

X=Trim（Text2）

WhileAdodc1.Recordset.EOF<>True

IfAdodc1.Recordset.Fields

（2）=XThen

Text1.Text=Adodc1.Recordset.Fields

（1）

Text3.Text=Adodc1.Recordset.Fields（3）

Text4.Text=Adodc1.Recordset.Fields（4）

Text5.Text=Adodc1.Recordset.Fields（5）

Text6.Text=Adodc1.Recordset.Fields（6）

check=check+1

EndIf

Adodc1.Recordset.MoveNext

Wend

Adodc1.Refresh

D=Val（Trim（Text3））

WhileAdodc1.Recordset.EOF<>True

IfAdodc1.Recordset.Fields（3）=DThen

Text1.Text=Adodc1.Recordset.Fields

（1）

Text2.Text=Adodc1.Recordset.Fields

（2）

Text4.Text=Adodc1.Recordset.Fields（4）

Text5.Text=Adodc1.Recordset.Fields（5）

Text6.Text=Adodc1.Recordset.Fields（6）

check=check+1

EndIf

Adodc1.Recordset.MoveNext

Wend

Adodc1.Refresh

S=Val（Trim（Text4））

Adodc1.Recordset.MoveFirst

WhileAdodc1.Recordset.EOF<>True

IfAdodc1.Recordset.Fields（4）=SThen

Text1.Text=Adodc1.Recordset.Fields

（1）

Text2.Text=Adodc1.Recordset.Fields

（2）

Text3.Text=Adodc1.Recordset.Fields（3）

Text5.Text=Adodc1.Recordset.Fields（5）

Text6.Text=Adodc1.Recordset.Fields（6）

check=check+1

EndIf

Adodc1.Recordset.MoveNext

Wend

Adodc1.Refresh

G=Trim（Text5）

WhileAdodc1.Recordset.EOF<>True

IfAdodc1.Recordset.Fields（5）=GThen

Text1.Text=Adodc1.Recordset.Fields

（1）

Text2.Text=Adodc1.Recordset.Fields

（2）

Text3.Text=Adodc1.Recordset.Fields（3）

Text4.Text=Adodc1.Recordset.Fields（4）

Text6.Text=Adodc1.Recordset.Fields（6）

check=check+1

EndIf

Adodc1.Recordset.MoveNext

Wend

Adodc1.Refresh

R=Trim（Text6）

WhileAdodc1.Recordset.EOF<>True

IfAdodc1.Recordset.Fields（6）=RThen

Text1.Text=Adodc1.Recordset.Fields

（1）

Text2.Text=Adodc1.Recordset.Fields

（2）

Text3.Text=Adodc1.Recordset.Fields（3）

Text4.Text=Adodc1.Recordset.Fields（4）

Text5.Text=Adodc1.Recordset.Fields（5）

check=check+1

EndIf

Adodc1.Recordset.MoveNext

Wend

Ifcheck=0Then

MsgBox（"无此设备!

"）

EndIf

Text1.Locked=True’显示查询结果后，文本框内容不可更改

Text2.Locked=True

Text3.Locked=True

Text4.Locked=True

Text5.Locked=True

Text6.Locked=True

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

Text6.Text=""

Text1.Locked=False’按清除键后，文本框内容不可更改

Text2.Locked=False

Text3.Locked=False

Text4.Locked=False

Text5.Locked=False

Text6.Locked=False

EndSub

效果及存在问题

不能将添加的设备马上显示出来，功能较为简单，不够完善

总结

通过这次实验周的实践，我感受到了VB设计的趣味性，了解了VB的实用性。

虽然在实践时出现了许多问题，但通过老师和同学们的帮助，顺利的完成了课程设计，使我对VB有了进一步的认识，更渐渐喜欢上VB。