vb课程设计题目--设备管理系统.doc

VB程序设计
课程设计

课程设计题目
设备管理系统

目 录

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

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

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

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

五、总结

课程设计的目的与要求

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

2、教学要求
从课程设计的目的出发，通过课程设计的各个环节，达到以下教学要求
（1）进一步掌握VB语言程序设计的基本思想和方法；
（2）掌握面向对象的可视化程序设计的基本原理及应用；

任务描述
建立设备数据库表，存储设备的信息，包括设备的名称、数量、型号、规格等信息；能够实现对设备的查询、修改、添加等操作。
设计
1、设备管理系统的功能
1、查看设备：用来实现对设备的浏览、删除
2、查询设备：用来实现对设备的查询
3、添加设备：用来实现对设备的添加
2、连接数据源
利用ADO控件将Access数据源连接到程序中
建立Access数据库
打开Access，建立名为“设备”的数据库。在数据库中选择“使用设计器创建表”输入名称、型号、单价、数量、规格、购买日期。保存命名为“设备管理”。
3、窗体
名称
标题
From1
登陆界面
From2
查看设备
From3
添加设备
From4
查找设备

（1）登陆界面

From1 代码如下：
Private Sub Command1_Click()
Form2.Show
End Sub
（2）查看设备

Form2 代码如下：
Private Sub Command1_Click()
Adodc1.Recordset.MovePrevious ’数据移到上一条
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
MsgBox "已经是第一条"
End If
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MoveNext ’ 数据移到下一条

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox "已经是最后一条"
End If
End Sub

Private Sub Command3_Click()
Form3.Show
End Sub

Private Sub Command4_Click()
Form4.Show
End Sub

Private Sub Command5_Click()
On Error Resume Next
If MsgBox("确定删除该记录？", vbOKCancel, "提示") = vbOK Then
Adodc1.Recordset.Delete ’删除正显示的记录
Adodc1.Recordset.MoveNext ’显示下一条数据
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End If
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
Adodc1Recordset.MoveFirst ’ 显示第一条数据
End Sub

Private Sub Command8_Click()
Adodc1.Recordset.MoveLast ’ 显示最后一条数据
End Sub
（3）添加设备

Form3 代码如下：
Private Sub Command1_Click()
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(1) = Trim(Text1)
Adodc1.RecordsetFields(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 "该设备已添加"
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()
Unload Me
Form2.Show
End Sub

Form4 代码如下：
Private Sub Command1_Click()
Dim check As Integer
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
M = Trim(Text1)
While Adodc1.Recordset.EOF <> True
If Adodc1.Recordset.Fields(1) = M Then
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 ’用循环语句判断文本框中的
End If 值 是否等于数据库中相应
Adodc1.Recordset.MoveNext 的值
Wend
Adodc1.Refresh
X = Trim(Text2)
While Adodc1.Recordset.EOF <> True
If Adodc1.Recordset.Fields(2) = X Then
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
End If
Adodc1.Recordset.MoveNext
Wend
Adodc1.Refresh
D = Val(Trim(Text3))
While Adodc1.Recordset.EOF <> True
If Adodc1.Recordset.Fields(3) = D Then
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
End If
Adodc1.Recordset.MoveNext
Wend
Adodc1.Refresh
S = Val(Trim(Text4))
Adodc1.Recordset.MoveFirst
While Adodc1.Recordset.EOF <> True
If Adodc1.Recordset.Fields(4) = S Then
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
End If
Adodc1.Recordset.MoveNext
Wend
Adodc1.Refresh
G = Trim(Text5)
While Adodc1.Recordset.EOF <> True
If Adodc1.Recordset.Fields(5) = G Then
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
End If
Adodc1.Recordset.MoveNext
Wend
Adodc1.Refresh
R = Trim(Text6)
While Adodc1.Recordset.EOF <> True
If Adodc1.Recordset.Fields(6) = R Then
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
End If
Adodc1.Recordset.MoveNext
Wend
If check = 0 Then
MsgBox ("无此设备!")
End If
Text1.Locked = True ’显示查询结果后，文本框内容不可更改
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Text6.Locked = True
End Sub

Private Sub Command2_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
End Sub

效果及存在问题
不能将添加的设备马上显示出来，功能较为简单，不够完善
总结
通过这次实验周的实践，我感受到了VB设计的趣味性，了解了VB的实用性。
虽然在实践时出现了许多问题，但通过老师和同学们的帮助，顺利的完成了课程设计，使我对VB有了进一步的认识，更渐渐喜欢上VB。
目 录
第一章　项目概要 1
1.1 项目背景 1
1.2 项目建设内容与工期 2
1.3 投资估算和资金筹措 3
1.3.1投资估算 3
1.3.2 资金筹措方案 3
1.4 效益分析 4
1.4.1 经济效益 4
1.4.2 社会效益 5
1.4.3 生态效益 5
第二章 项目区概况 6
2.1 自然概况 6
2.2 社会经济状况 8
第三章 项目建设的必要性和可行性 10
3.1 项目区农业发展的制约因素 10
3.2项目建设的必要性 10
3.3 项目建设的可行性 13
第四章 水资源评价及水利工程设施 14
4.1 项目区水资源概况 14
4.2 水利工程措施 14
第五章 规划设计 18
5.1 指导思想 18
5.2 选项原则 18
5.3 建设标准 18
5.4 道路建设 19
5.5 建设规模 20
5.6 规划布局 20
第六章 开发任务与开发原则 22
6.1 开发任务 22
6.2 开发原则 22
第七章 投资估算与资金筹措 24
7.1投资估算 24
7.2 资金来源构成及筹措方案 24
第八章 综合效益分析 26
8.1 经济效益 26
8.2 社会效益 26
8.3 生态效益 26
第九章 组织实施和运行管护 28
9.1 组织机构设置 28
9.2 项目实施管理 29
9.3 运行管理和维护 29
第十章 环境影响与评价 31
10.1生态影响分析评价 31
10.2 环境质量影响分析评价 31
第十一章 可行性研究结论和建议 33
11.1 项目可行性研究的总体评价 33
11.2 主要污染物及治理措施 35
11.3 问题与建议 36